Create Screen along with PBO and PAI modulesThe next step is to create screen 100, to do this double click on the '100' within the call screen
command(Call screen 100.). Enter short description and select 'Normal' as screen type.
* Screen flow logic code PROCESS BEFORE OUTPUT. MODULE STATUS_0100. * PROCESS AFTER INPUT. MODULE USER_COMMAND_0100. *-----------------------------------------------------------* ***INCLUDE Z......O01 . *-----------------------------------------------------------* *&----------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&----------------------------------------------------------* * PBO Module *-----------------------------------------------------------* module status_0100 output. * SET PF-STATUS 'xxxxxxxx'. * SET TITLEBAR 'xxx'. endmodule. " STATUS_0100 OUTPUT *-------------------------------------------------------------------* ***INCLUDE Z......I01 . *-------------------------------------------------------------------* *&------------------------------------------------------------------* *& Module USER_COMMAND_0100 INPUT *&------------------------------------------------------------------* * PAI Module *-------------------------------------------------------------------* module user_command_0100 input. endmodule. " USER_COMMAND_0100 INPUT
|
||||||||