Implementing a subscreen

The following code implements a subscreen(0150). This is done by placing the subscreen into the subscreen area
created on the original screen(0100).

*Flow logic for screen 0100
PROCESS BEFORE OUTPUT.

 MODULE STATUS_0100.
 CALL SUBSCREEN GD_SUBSCREENAREA INCLUDING  'program_name'  'subscreen_number'.
*   i.e. CALL SUBSCREEN GD_SUBSCREENAREA INCLUDING 'ZTESTPROG'  '0150'.

PROCESS AFTER INPUT.
 MODULE USER_COMMAND_0100.

More...