PROCESS BEFORE
OUTPUT
.
MODULE STATUS_100 .
CALL SUBSCREEN : AREA1 INCLUDING SY - REPID NUMBER1 ,
AREA2 INCLUDING SY - REPID NUMBER2 .
PROCESS AFTER INPUT .
MODULE CANCEL AT EXIT - COMMAND .
MODULE SAVE_OK .
CALL SUBSCREEN : AREA1 ,
AREA2 .
MODULE USER_COMMAND_100 .
说明:
PBO:
先执行主屏幕PBO,然后用 CALL SUBSCREEN执行子屏幕的PBO
PAI顺序:
第一,退出MODULE
第二,赋值SAVE_OK,并清空OK_CODE。因为子屏幕没有自己的OK_CODE,所以这一步要放到子屏幕PAI之前。
第三,用 CALL SUBSCREEN 来执行子屏幕的PAI
第四,执行主屏幕PAI
MODULE STATUS_100 .
CALL SUBSCREEN : AREA1 INCLUDING SY - REPID NUMBER1 ,
AREA2 INCLUDING SY - REPID NUMBER2 .
PROCESS AFTER INPUT .
MODULE CANCEL AT EXIT - COMMAND .
MODULE SAVE_OK .
CALL SUBSCREEN : AREA1 ,
AREA2 .
MODULE USER_COMMAND_100 .
说明:
PBO:
先执行主屏幕PBO,然后用 CALL SUBSCREEN执行子屏幕的PBO
PAI顺序:
第一,退出MODULE
第二,赋值SAVE_OK,并清空OK_CODE。因为子屏幕没有自己的OK_CODE,所以这一步要放到子屏幕PAI之前。
第三,用 CALL SUBSCREEN 来执行子屏幕的PAI
第四,执行主屏幕PAI