MODULE POOL PROGRAM – ON CHAIN-INPUT

<strong>DATA: N1TYPEi.

DATA: N2TYPEi.

DATA: N3TYPEi.

DATA:resTYPEi.

DATA:ok_codeTYPEsy-ucomm.</strong>

<strong>MODULEstatus_9000OUTPUT.</strong>

<strong>*SETPF-STATUSxxxxxxxx.</strong>

<strong>*SETTITLEBARxxx.</strong>

<strong>ENDMODULE.STATUS_9000OUTPUT</strong>

<strong>MODULEuser_command_9000INPUT.</strong>

<strong>CASEok_code.</strong>

<strong>WHENADD.</strong>

<strong>CALLSCREEN9001.</strong>

<strong>ENDCASE.</strong>

<strong>ENDMODULE.USER_COMMAND_9000INPUT</strong>

<strong>MODULEstatus_9001OUTPUT.</strong>

<strong>*SETPF-STATUSxxxxxxxx.</strong>

<strong>*SETTITLEBARxxx.</strong>

<strong>res= N1+ N2+ N3.</strong>

<strong>ENDMODULE.STATUS_9001OUTPUT</strong>

<strong>MODULEuser_command_9001INPUT.</strong>

<strong>CASEok_code.</strong>

<strong>WHENBACK.</strong>

<strong>CALLSCREEN9000.</strong>

<strong>ENDCASE.</strong>

<strong>ENDMODULE.USER_COMMAND_9001INPUT</strong>

<strong>moduleCHECK_TWO_NUMBERinput.</strong>

<strong>N1= N1+10.</strong>

<strong>N2= N2+10.</strong>

<strong>endmodule.CKECK_THREE_NUMBERINPUT</strong>

<strong><u>FLOW LOGIC OF SCREEN 9000</u></strong>

<strong>PROCESSBEFOREOUTPUT.</strong>

<strong>MODULEstatus_9000.</strong>

<strong>PROCESSAFTERINPUT.</strong>

<strong>CHAIN.</strong>

<strong>FIELD: N1,N2.</strong>

<strong>MODULE CHECK_TWO_NUMBER ONCHAIN-INPUT.</strong>

<strong>ENDCHAIN.</strong>

<strong>MODULEuser_command_9000.</strong>

<strong><u>FLOW LOGIC OF SCREEN 9001</u></strong>

<strong>PROCESSBEFOREOUTPUT.

MODULESTATUS_9001.</strong>

<strong>PROCESSAFTERINPUT.</strong>

<strong>MODULEUSER_COMMAND_9001.</strong>