Initial commit: COBOL+JCL credit card billing system with COMP-3, OCCURS, COPY REPLACING, INSPECT, and JCL runner

2026-05-25 12:27:00 +08:00
commit 8e551c35d9
17 changed files with 2080 additions and 0 deletions
@@ -0,0 +1,15 @@
+       01 MEMBER-RECORD.
+           05 MEM-ID            PIC 9(16).
+           05 MEM-NAME          PIC X(30).
+           05 MEM-CREDIT-LIMIT  PIC 9(9)V99.
+           05 MEM-TYPE          PIC X.
+               88 MEM-GOLD         VALUE 'G'.
+               88 MEM-PLATINUM     VALUE 'P'.
+               88 MEM-STANDARD     VALUE 'S'.
+           05 MEM-STATUS        PIC X.
+               88 MEM-ACTIVE       VALUE 'A'.
+               88 MEM-FROZEN       VALUE 'F'.
+               88 MEM-CLOSED       VALUE 'C'.
+           05 MEM-BALANCE       PIC S9(9)V99.
+           05 MEM-MIN-PAYMENT   PIC 9(9)V99.
+           05 MEM-ADDRESS       PIC X(60).