//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=*