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,31 @@
+//CREDIT25  JOB (CRD),'MONTHLY BILLING',CLASS=B,MSGCLASS=X
+//*
+//* 信用卡月结批处理 - 每月25日运行
+//* 系统: COBOL+JCL 学习验证平台
+//*
+//STEP1    EXEC PGM=SORT
+//SORTIN   DD DSN=data/input/transactions.dat,DISP=SHR
+//SORTOUT  DD DSN=data/work/sorted_tx.dat,DISP=(NEW,DELETE)
+//SYSIN    DD *
+  SORT FIELDS=(1,16,CH,A,17,8,CH,A)
+/*
+//*
+//STEP2    EXEC PGM=CRDVAL,COND=(0,NE)
+//TRANSIN  DD DSN=data/work/sorted_tx.dat,DISP=SHR
+//MEMBER   DD DSN=data/input/member.dat,DISP=SHR
+//VALIDOUT DD DSN=data/work/validated_tx.dat,DISP=(NEW,DELETE)
+//REJECT   DD DSN=data/output/rejected_tx.dat,DISP=(NEW,CATLG)
+//REPORTERR DD DSN=data/output/error_report.dat,DISP=(NEW,CATLG)
+//SYSOUT   DD SYSOUT=*
+//*
+//STEP3    EXEC PGM=CRDCALC,COND=(0,NE)
+//VALIDIN  DD DSN=data/work/validated_tx.dat,DISP=SHR
+//RATE     DD DSN=data/input/rate.dat,DISP=SHR
+//CALCOUT  DD DSN=data/work/billing_result.dat,DISP=(NEW,DELETE)
+//SYSOUT   DD SYSOUT=*
+//*
+//STEP4    EXEC PGM=CRDRPT,COND=(0,NE)
+//BILLING  DD DSN=data/work/billing_result.dat,DISP=SHR
+//STMT     DD DSN=data/output/monthly_statement.dat,DISP=(NEW,CATLG)
+//SUMMARY  DD DSN=data/output/summary_report.dat,DISP=(NEW,CATLG)
+//SYSOUT   DD SYSOUT=*