111 lines
4.0 KiB
ABAP
111 lines
4.0 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& 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
|