Parameterübergabe bei SUBMIT

Code: Alles auswählen.

    SUBMIT RPTABS50
           WITH PNPBEGDA eq vondat
           WITH PNPENDDA eq bisdat
           WITH PNPPERNR eq pernr
           WITH PNPTIMED eq ' '
           and return.

Code: Alles auswählen.

SELECTION-SCREEN  BEGIN OF BLOCK selec
             WITH FRAME TITLE text-z09."'Selektionsangaben'(z09).
SELECT-OPTIONS awart_s FOR p2001-awart MODIF ID aw1.
SELECT-OPTIONS anart_s FOR p2002-awart MODIF ID aw2.
SELECT-OPTIONS abstp_s FOR t554s-abstp MODIF ID aw3.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN PUSHBUTTON /1(40) ap0text USER-COMMAND apa0
                                                        MODIF ID ap0.

SELECTION-SCREEN PUSHBUTTON /1(40) ap1text USER-COMMAND apa1
                                                        MODIF ID ap1.

SELECTION-SCREEN PUSHBUTTON /1(40) ap2text USER-COMMAND apa2
                                                       MODIF ID ap2.

SELECTION-SCREEN PUSHBUTTON /1(40) ap3text USER-COMMAND apa3
                                                       MODIF ID ap3.
SELECTION-SCREEN END OF BLOCK selec.