hsyx3952501
32 lines
1.2 KiB
Plaintext
32 lines
1.2 KiB
Plaintext
//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=*
|