hangshuo652/jcl-cobol-git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
hsyx3952501
2026-05-25 12:27:00 +08:00
commit 8e551c35d9
17 changed files with 2080 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
copybooks/DATESUB.cpy
+4
View File
@@ -0,0 +1,4 @@
01 :TAG:-DATE.
05 :TAG:-YYYY PIC 9(4).
05 :TAG:-MM PIC 9(2).
05 :TAG:-DD PIC 9(2).
copybooks/MEMCPY.cpy
+15
View File
@@ -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).
copybooks/RATECPY.cpy
+6
View File
@@ -0,0 +1,6 @@
01 RATE-RECORD.
05 RATE-TYPE PIC X.
88 RATE-CASH VALUE 'C'.
88 RATE-OVERDUE VALUE 'O'.
05 RATE-PCT PIC 9(1)V9(4) COMP-3.
05 RATE-EFF-DATE PIC 9(8).
copybooks/TXCPY.cpy
+17
View File
@@ -0,0 +1,17 @@
01 TX-RECORD.
05 TX-CARD-NO PIC 9(16).
05 TX-DATE PIC 9(8).
05 TX-TYPE PIC X.
88 TX-PURCHASE VALUE 'P'.
88 TX-CASH VALUE 'C'.
88 TX-REFUND VALUE 'R'.
05 TX-AMOUNT PIC S9(9)V99.
05 TX-CURRENCY PIC X(3).
05 TX-MERCHANT PIC X(20).
05 TX-DETAIL.
10 TX-DETAIL-PURCHASE.
15 TX-MCC PIC 9(4).
15 TX-INSTALL PIC 9(2).
10 TX-DETAIL-CASH REDEFINES TX-DETAIL-PURCHASE.
15 TX-ATM-ID PIC X(10).
15 TX-FEE-RATE PIC 9(1)V99.