MODULE POOL PROGRAM – ON CHAIN-INPUT

DATA : N1 TYPE i.
DATA : N2 TYPE i.
DATA : N3 TYPE i.
DATA : res 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 ‘ADD’.
CALL  SCREEN 9001.
ENDCASE.
ENDMODULE.                 ” USER_COMMAND_9000  INPUT

MODULE status_9001 OUTPUT.
*  SET PF-STATUS ‘xxxxxxxx’.
*  SET TITLEBAR ‘xxx’.
res = N1 + N2 + N3.
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_TWO_NUMBER input.
N1 = N1 + 10.
N2 = N2 + 10.

endmodule.                 ” CKECK_THREE_NUMBER  INPUT

FLOW LOGIC OF SCREEN 9000

PROCESS BEFORE OUTPUT.

  MODULE status_9000.

PROCESS AFTER INPUT.

  CHAIN.

    FIELD : N1,N2.

    MODULE CHECK_TWO_NUMBER ON CHAIN-INPUT.

  ENDCHAIN.

  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 provide any value to either n1 or n2  or both  then only  CHECK_TWO_NUMBER  module will run. Click on ADD & BACK button many times to see the change.