data : N1 type i.
data : N2 type i.
data : ok_code type sy-ucomm.
module STATUS_9000 output.
* SET PF-STATUS ‘xxxxxxxx’.
* SET TITLEBAR ‘xxx’.
endmodule. ” STATUS_9000 OUTPUT
module USER_COMMAND_9000 input.
CASE OK_CODE.
WHEN ‘SHOW’.
CALL SCREEN 9001.
ENDCASE.
endmodule. ” USER_COMMAND_9000 INPUT
module STATUS_9001 output.
* SET PF-STATUS ‘xxxxxxxx’.
* SET TITLEBAR ‘xxx’.
N2 = N1.
endmodule. ” STATUS_9001 OUTPUT
module USER_COMMAND_9001 input.
CASE OK_CODE.
WHEN ‘BACK’.
CALL SCREEN 9000.
ENDCASE.
endmodule. ” USER_COMMAND_9001 INPUT
module CHECK_N1 input.
N1 = N1 + 10.
endmodule. ” CHECK_M1 INPUT
FLOW LOGIC OF SCREEN 9000
PROCESS BEFORE OUTPUT.
MODULE STATUS_9000.
PROCESS AFTER INPUT.
FIELD N1 MODULE CHECK_N1 ON INPUT.
MODULE USER_COMMAND_9000.
FLOW LOGIC OF SCREEN 9001
PROCESS BEFORE OUTPUT.
MODULE STATUS_9001.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_9001.
Run the program and if you give any value to the input field (n1) then only CHECK_N1 module will execute . press SHOW & BACK button many times to see the change. If it finds any value in the input field (n1) then every time CHECK_N1 module will execute and it will add up 10 to its value.
SAPCODES 