*&---------------------------------------------------------------------* *& Include ZCOPATD0010I01 *&---------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module SET_DATAR INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE set_datar INPUT. PERFORM set_datar. ENDMODULE. *&---------------------------------------------------------------------* *& Module LOOP_PAI_201 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE loop_pai_201 INPUT. PERFORM LOOP_PAI_201. ENDMODULE. *&---------------------------------------------------------------------* *& Module OK_CODE_201 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE ok_code_201 INPUT. PERFORM OK_CODE_201. ENDMODULE. *&---------------------------------------------------------------------* *& Module EXIT_1000 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE exit_1000 INPUT. PERFORM EXIT_1000. ENDMODULE. *&---------------------------------------------------------------------* *& Module LOOP_PAI_1100 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE loop_pai_1100 INPUT. PERFORM LOOP_PAI_1100. ENDMODULE. *&---------------------------------------------------------------------* *& Module OK_CODE_1100 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE ok_code_1100 INPUT. PERFORM OK_CODE_1100. ENDMODULE. *&---------------------------------------------------------------------* *& Module HELP_MLOW INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE help_mlow INPUT. PERFORM HELP_CRITERIA. ENDMODULE. *----------------------------------------------------------------------* * MODULE VAL_SRC_FROM INPUT * *----------------------------------------------------------------------* MODULE VAL_SRC_FROM INPUT. PERFORM VAL_CRITERIA_VALUE_1000 USING GT_REF-SRC_LOW 'GT_REF-SRC_LOW_TXT'. ENDMODULE. "VAL_SRC_FROM INPUT *----------------------------------------------------------------------* * MODULE VAL_SRC_TO INPUT * *----------------------------------------------------------------------* MODULE VAL_SRC_TO INPUT. PERFORM VAL_CRITERIA_VALUE_1000 USING GT_REF-SRC_HIGH 'GT_REF-SRC_HIGH_TXT'. ENDMODULE. "VAL_SRC_TO INPUT *----------------------------------------------------------------------* * MODULE VAL_REF_FROM INPUT * *----------------------------------------------------------------------* MODULE VAL_REF_FROM INPUT. PERFORM VAL_CRITERIA_VALUE_1000 USING GT_REF-REF_LOW 'GT_REF-REF_LOW_TXT'. ENDMODULE. "VAL_REF_FROM INPUT *----------------------------------------------------------------------* * MODULE VAL_REF_TO INPUT * *----------------------------------------------------------------------* MODULE VAL_REF_TO INPUT. PERFORM VAL_CRITERIA_VALUE_1000 USING GT_REF-REF_HIGH 'GT_REF-REF_HIGH_TXT'. ENDMODULE. "VAL_REF_TO INPUT