First Commit (2026.08.28)

2026-08-28 00:31:38 +00:00
parent c0ee4b26f0
commit ef241d888e
61 changed files with 16193 additions and 0 deletions
@@ -0,0 +1,110 @@
+*&---------------------------------------------------------------------*
+*& 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