MODULE POOL PROGRAM – ON REQUEST

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 + 20.
endmodule.                 ” CKECK_N1  INPUT

FLOW LOGIC OF SCREEN 9000

PROCESS BEFORE OUTPUT.
MODULE STATUS_9000.
*
PROCESS AFTER INPUT.
field N1 MODULE CHECK_N1 on REQUEST.
MODULE USER_COMMAND_9000.

FLOW LOGIC OF SCREEN 9001

PROCESS BEFORE OUTPUT.
MODULE STATUS_9001.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_9001.

Execute the program & 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 effect.

Advertisement

Leave a Comment