SUBMIT - 程序里运行其他program

          DATA: P1,
                P2.
          CLEAR: P1,P2.
          IF SAVE_OK = 'FERT' .
            P1 = 'X'.
          ELSE.
            P2 = 'X'.
          ENDIF.

          SUBMIT ZRIE002 WITH  P_DATE    = GS_ZTIE001-GJAHR
                         WITH  S_SEQ    INCL     GS_ZTIE001-SEQ
                         WITH  S_IESUCE INCL GS_ZTIE001-IESUCE
                         WITH  P1       = P1
                         WITH  P2       = P2
                         AND RETURN.