MODULE POOL PROGRAM – ON REQUEST

<strong>data: N1typei.

data: N2typei.

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>WHENSHOW.</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>N2=N1.</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_N1input.</strong>

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

<strong>endmodule.CKECK_N1INPUT</strong>

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

<strong>PROCESSBEFOREOUTPUT.

MODULESTATUS_9000.

*

PROCESSAFTERINPUT.

field N1MODULE CHECK_N1onREQUEST.

MODULEUSER_COMMAND_9000.</strong>

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

<strong>PROCESSBEFOREOUTPUT.

MODULESTATUS_9001.

*

PROCESSAFTERINPUT.

MODULEUSER_COMMAND_9001.</strong>