|
<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>
|