MODULE POOL PROGRAM – ON INPUT

Data : N1 type i, 
       N2 type i,
       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.

  • Execute the program and if you give any value to the input field (n1) then only CHECK_N1 module will execute.

  • Now Click the SHOW & BACK button many times to see the change. If it search any value in the input field (n1) then every time CHECK_N1 module will run & it will add up 10 to its value.

Advertisement

Leave a Comment