in

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>

Execute the program & if you give any value to the input field (n1) then only CHECK_N1  module will execute. Press SHOW & BACK button many times to see the effect.

What do you think?

Written by admin

Leave a Reply

Your email address will not be published. Required fields are marked *

MODULE POOL PROGRAM – ON INPUT

MODULE POOL PROGRAM – ON CHAIN-INPUT