出帐票同时打印

  PERFORM WRITE_OK.

  COMMIT WORK.
  LEAVE TO LIST-PROCESSING.  
  PERFORM OUTPUT_RESULT_TO_SPOOL.
 

 

FORM OUTPUT_RESULT_TO_SPOOL .

  CLEAR SY-PAGNO.
  DATA:
    L_WK_IMMEDIATELY TYPE PRI_PARAMS-PRIMM,
    L_WK_LINE_COUNT  TYPE PRI_PARAMS-LINCT,
    L_WK_LINE_SIZE   TYPE PRI_PARAMS-LINSZ,
    L_WK_LIST_TEXT   TYPE PRI_PARAMS-PRTXT,
    L_WK_RELEASE     TYPE PRI_PARAMS-PRREL,
    L_WK_LAYOUT      TYPE PRI_PARAMS-PAART,
    L_WA_PRI_PARAMS  TYPE PRI_PARAMS,
    L_WK_VALID(1)    TYPE C.

  L_WK_IMMEDIATELY = 'X'.       " 即時出力
  L_WK_LINE_COUNT  = 65.         " 行数
  L_WK_LINE_SIZE   = 165.        " 列数
  L_WK_LIST_TEXT   = TEXT-T01.   " 表題
  L_WK_LAYOUT      = 'Z_65_165'. " 書式
  L_WK_RELEASE     = SPACE.      " 出力後削除

 

注意su3,把参数设置上。sp01,和既时出力

  CALL FUNCTION 'GET_PRINT_PARAMETERS'
    EXPORTING
      IMMEDIATELY            = L_WK_IMMEDIATELY
      LINE_COUNT             = L_WK_LINE_COUNT
      LINE_SIZE              = L_WK_LINE_SIZE
      LAYOUT                 = L_WK_LAYOUT
      LIST_TEXT              = L_WK_LIST_TEXT
      NO_DIALOG              = 'X'
      RELEASE                = L_WK_RELEASE
    IMPORTING
      OUT_PARAMETERS         = L_WA_PRI_PARAMS
      VALID                  = L_WK_VALID
    EXCEPTIONS
      ARCHIVE_INFO_NOT_FOUND = 1
      INVALID_PRINT_PARAMS   = 2
      INVALID_ARCHIVE_PARAMS = 3
      OTHERS                 = 4.

  IF  SY-SUBRC   = 0
  AND L_WK_VALID = 'X'.
    NEW-PAGE
      PRINT ON
      PARAMETERS L_WA_PRI_PARAMS
      NO DIALOG.
*     結果リスト出力
    PERFORM WRITE_OK.
    "    NEW-PAGE PRINT OFF.
  ELSE.
    MESSAGE S248(COV) WITH SY-SUBRC DISPLAY LIKE 'E'.
*     GET_PRINT_PARAMETERS エラー: Sy-subrc = &1
  ENDIF.

ENDFORM.                    " OUTPUT_RESULT_TO_SPOOL