PAYTRACK_MP

*&---------------------------------------------------------------------*
*& Module pool ZVVF_MR034_PAYTRACK_MP *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

PROGRAM ZVVF_MR034_PAYTRACK_MP .

data : ok_code like sy-ucomm,
save_ok like sy-ucomm.
*&---------------------------------------------------------------------*
*& Module STATUS_1001 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_1001 OUTPUT.
SET PF-STATUS 'SCREEN_1001'.
* SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_1001 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_1001 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_1001 INPUT.
save_ok = ok_code.
clear ok_code.

case save_ok.
when 'PT1'.
call transaction 'ZM034'.

when 'BACK'.
leave to screen '1001'.

when '%RW'.
leave program.

endcase.

ENDMODULE. " USER_COMMAND_1001 INPUT