Program – On Input


data : N1 type i.

data : N2 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 ‘SHOW’.
CALL  SCREEN 9001.
ENDCASE.
endmodule.                 ” USER_COMMAND_9000  INPUT

module STATUS_9001 output.
*  SET PF-STATUS ‘xxxxxxxx’.
*  SET TITLEBAR ‘xxx’.
N2 = N1.
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_N1 input.
N1 = N1 + 10.
endmodule.                 ” CHECK_M1  INPUT

FLOW LOGIC OF SCREEN 9000

PROCESS BEFORE OUTPUT.
MODULE STATUS_9000.

PROCESS AFTER INPUT.
FIELD N1 MODULE CHECK_N1 ON INPUT.
MODULE USER_COMMAND_9000.



FLOW LOGIC OF SCREEN 9001

PROCESS BEFORE OUTPUT.
MODULE STATUS_9001.

PROCESS AFTER INPUT.
MODULE USER_COMMAND_9001.

 Run the program and 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 change. If it finds any value in the input field (n1) then every time  CHECK_N1 module will execute and it will add up 10 to its value.


 

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

w

Connecting to %s