CALL程式后台执行 通过MEMORY 传表 传参数

  DATA : lv_result(30),
         lv_path LIKE ibipparms-path VALUE '/usr/sap/Interface/FI/VOUCHER/INBOUND/',
         lv_server LIKE btctgtsrvr-srvname .

  DATA: lv_number           TYPE tbtcjob-jobcount,
        lv_name             TYPE tbtcjob-jobname,
        lv_print_parameters TYPE pri_params.

 

  

EXPORT    GT_ZGTT37
            GT_ZGTT37_TEMP
            LW_ZGTT36
            LW_ZGTT36_TEMP
  TO DATABASE INDX(ST) ID 'LV_NAME'.

 CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      JOBNAME          = LV_NAME
    IMPORTING
      JOBCOUNT         = LV_NUMBER
    EXCEPTIONS
      CANT_CREATE_JOB  = 1
      INVALID_JOB_DATA = 2
      JOBNAME_MISSING  = 3
      OTHERS           = 4.
  IF SY-SUBRC EQ 0.
    SUBMIT ZRGT024  WITH P_BUKRS = G_BUKRS
                    WITH P_GFTTYP = G_GFTTYP
                    WITH P_YYYYMM = G_DATE
                    WITH P_DATE = G_DATE_OUT
                    WITH P_AMT = G_AMT
                    WITH P_AMT_AD = G_AMT_AD
                    WITH P_CHK = G_CHK
                    WITH P_FORM = G_FORM
                    WITH P_PRGMOD = G_PRGMOD
                         TO SAP-SPOOL             "后台虚拟输出 SP02
                         SPOOL PARAMETERS LV_PRINT_PARAMETERS
                         WITHOUT SPOOL DYNPRO
                         VIA JOB LV_NAME NUMBER LV_NUMBER
                         AND RETURN.
    IF SY-SUBRC EQ 0.
      CALL FUNCTION 'JOB_CLOSE'
        EXPORTING
          JOBCOUNT             = LV_NUMBER
          JOBNAME              = LV_NAME
*            targetserver         = lv_server
          STRTIMMED            = 'X'
        EXCEPTIONS
          CANT_START_IMMEDIATE = 1
          INVALID_STARTDATE    = 2
          JOBNAME_MISSING      = 3
          JOB_CLOSE_FAILED     = 4
          JOB_NOSTEPS          = 5
          JOB_NOTEX            = 6
          LOCK_FAILED          = 7
          OTHERS               = 8.
      IF SY-SUBRC <> 0.
      ENDIF.
    ENDIF.
  ENDIF.