SAP ABAP连续打印 no_close no_open

 程序可以通过 NO_CLOSE NO_OPEN控制单据的连续打印，无效在表单中控制

 DATA:LV_DOCUMENT_OUTPUT TYPE  SSFCRESPD,
       LV_JOB_OUTPUT      TYPE  SSFCRESCL,
       LV_JOB_OPTIONS     TYPE  SSFCRESOP.
  DATA:LS_INFOS TYPE   ZMMS_BARCODE_PRINT .
  DATA: LV_SSFCRESPD TYPE SSFCRESPD. "Smart Forms: 返回文档信息
  DATA: LW_OUTPUT_OPTIONS TYPE SSFCOMPOP .
  DATA: LV_FUNC_NAME          TYPE RS38L_FNAM, "数据元素
        LV_SMARTFORM          TYPE TDSFNAME,
        LV_CONTROL_PARAMETERS TYPE SSFCTRLOP. "Smart Forms: 控制结构
  CLEAR LV_CONTROL_PARAMETERS.
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME           = 'ZPP_SF_BARCODE2_PRINT'
    IMPORTING
      FM_NAME            = LV_FUNC_NAME
    EXCEPTIONS
      NO_FORM            = 1
      NO_FUNCTION_MODULE = 2
      OTHERS             = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  LOOP AT IT_INFOS INTO LS_INFOS.
    AT FIRST.
      LV_CONTROL_PARAMETERS-NO_CLOSE = 'X'.
    ENDAT.
    AT LAST.
      LV_CONTROL_PARAMETERS-NO_CLOSE = SPACE.
    ENDAT.
    CALL FUNCTION LV_FUNC_NAME
      EXPORTING
*       ARCHIVE_INDEX        =
*       ARCHIVE_INDEX_TAB    =
*       ARCHIVE_PARAMETERS   =
        CONTROL_PARAMETERS   = LV_CONTROL_PARAMETERS
*       MAIL_APPL_OBJ        =
*       MAIL_RECIPIENT       =
*       MAIL_SENDER          =
        OUTPUT_OPTIONS       = LW_OUTPUT_OPTIONS
*       USER_SETTINGS        = 'X'
        IS_INFO              = LS_INFOS
      IMPORTING
        DOCUMENT_OUTPUT_INFO = LV_DOCUMENT_OUTPUT
        JOB_OUTPUT_INFO      = LV_JOB_OUTPUT
        JOB_OUTPUT_OPTIONS   = LV_JOB_OPTIONS
      EXCEPTIONS
        FORMATTING_ERROR     = 1
        INTERNAL_ERROR       = 2
        SEND_ERROR           = 3
        USER_CANCELED        = 4
        OTHERS               = 5.
    IF SY-SUBRC <> 0.
      RETURN .
    ENDIF .
    LV_CONTROL_PARAMETERS-NO_OPEN = 'X'.
  ENDLOOP .