* $$ JOB JNM=ZSE5JCL1,CLASS=2,DISP=D DAILY POLICY PROCESSING PART 1 * $$ LST CLASS=J,DISP=H,DEST=* * DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END; // JOB ZSE5JCL1 POLICY PROCESSING CYCLE PART I // OPTION PARSTD // DLBL CMWKF01,'NATURAL WORK FILE 1' // EXTENT ,PRDSEQ,1,0,1,250 // DLBL CMWKF02,'NATURAL WORK FILE 2' // EXTENT ,PRDSEQ,1,0,1,250 // DLBL CMWKF03,'NATURAL WORK FILE 3' // EXTENT ,PRDSEQ,1,0,1,250 // DLBL CMWKF04,'NATURAL WORK FILE 4' // EXTENT ,PRDSEQ,1,0,1,250 // OPTION USRLABEL /. C /. C *********************** WARNING ************************** /. C *** IF RENUMBERING STEPS PGMS D2100AB AND D2120FC WILL *** /. C *** HAVE TO BE CHANGED THEY CONTAIN ERROR ROUTINES *** /. C *** WITH HARD CODED STEP NUMBERS. *** /. C ********************************************************** /* // PAUSE IF THIS IS A RESTART TYPE: GOTO STEPNNN OTHERWISE HIT ENTER. /* * $$ LST CLASS=J,DISP=H,DEST=* * STEP=010 PGM=D2050AA CHECK SYSTEM RECORD FOR PERSONAL // ASSGN SYS000,SYSRDR // ASSGN SYS020,SYSLST ++ // DLBL D9CSF,'PRD.D5.PERS.POLICY.CHECK.SYSTEM' // EXEC D2050AA,SIZE=AUTO * $$ SLI MEM=PRD.D2050AA ADARUN DBID=227 /* /. STEP020 * STEP=020 PGM=D2050AA CHECK SYSTEM RECORD FOR COMMERCIAL // ASSGN SYS000,SYSRDR // DLBL D9CSF,'PRD.D2.COML.POLICY.CHECK.SYSTEM' // EXEC D2050AA,SIZE=AUTO * $$ SLI MEM=PRD.D2050AB ADARUN DBID=227 /* /. STEP030 * STEP=030 PGM=XBPUWRC2 EXTRACT FOR UNDERWRITER RECALL REPORT // ASSGN SYS000,IGN // ASSGN SYS009,SYSLST // DLBL CMWKF01,'PRD.UNDERWRT.RECALL.EXT' // EXTENT ,PRDSEQ,1,0,1,150 // OPTION SYSPARM='SYSRDR' // EXEC NATBATCH,SIZE=NATBATCH SYS=PRD BWORKD=(1,41,5504,FB) /* PRODLIB,PASSWORD XBPUWRC2 /* /. STEP040 * $$ LST CLASS=J,DISP=H,DEST=* * STEP=040 PGM=TSIDSRT SORT THE MULTIPLE EXTRACT FILE // ASSGN SYS000,IGN // DLBL SORTIN1,'PRD.UNDERWRT.RECALL.EXT' // EXTENT ,PRDSEQ,1,0,1,150 // DLBL SORTOUT,'PRD.UNDERWRT.RECALL.SORT' // EXTENT ,PRDSEQ,1,0,1,150 // DLBL SORTWK1,'$$$.PRDWK1' // EXEC TSIDSRT OPTION PRINT=ALL,FILNM=(SORTOUT,SORTIN1) SORT FIELDS=(1,19,A),FORMAT=CH,WORK=1 RECORD TYPE=F,LENGTH=128 INPFIL BLKSIZE=5504 OUTFIL BLKSIZE=5504 END /* /. STEP050 * $$ LST CLASS=C,DISP=K,DEST=* * DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END; * STEP=050 PGM=XBPUWRC3 PRINT UNDERWRITER RECALL REPORT // ASSGN SYS000,IGN // ASSGN SYS009,SYSLST // DLBL CMWKF01,'PRD.UNDERWRT.RECALL.SORT' // EXTENT ,PRDSEQ,1,0,1,150 // OPTION NODUMP,SYSPARM='SYSRDR' // EXEC NATBATCH,SIZE=NATBATCH SYS=PRD BWORKD=(1,41,5504,FB) /* PRODLIB,PASSWORD ADHOC ************************************************************************ * * * TITLE: CLAIMS - INITIALIZE BEGINNING OF DAY (PART II) * * * ************************************************************************ DEFINE DATA GLOBAL USING XTGDA01 LOCAL 1 CLAIMS-RESV-VIEW VIEW OF CLAIMS-RESERVE 2 RECORD-TYPE 2 LINE-UNIT 2 CLAIMANT 2 C*COVERAGE-DATA 2 DIR-AMOUNT(1:12) 2 EXP-AMOUNT(1:12) 2 DIR-BEG-DAY(1:12) 2 EXP-BEG-DAY(1:12) 2 RES-CLAIM-NUMBER * 1 INPUT-RECORD (A29) 1 REDEFINE INPUT-RECORD 2 INPUT-RECORD-TYPE (A1) 2 INPUT-RES-CLAIM-NUMBER (A12) 2 INPUT-LINE-UNIT (A5) 2 INPUT-CLAIMANT (N3) 2 INPUT-ISN (N8) * 1 #I (P9) 1 UPDATE-CTR (P9) 1 ET-CTR (P3) END-DEFINE * FORMAT PS=55 LS=132 * READ WORK FILE 1 INPUT-RECORD GET CLAIMS-RESV-VIEW INPUT-ISN IF RECORD-TYPE NOT= INPUT-RECORD-TYPE OR RES-CLAIM-NUMBER NOT= INPUT-RES-CLAIM-NUMBER WRITE 'RECORD NOT FOUND' INPUT-RES-CLAIM-NUMBER 2X INPUT-ISN ELSE WRITE / INPUT-RECORD WRITE '=' DIR-AMOUNT(#I) 2X '=' DIR-BEG-DAY(#I) 2X #I WRITE '=' EXP-AMOUNT(#I) 2X '=' EXP-BEG-DAY(#I) 2X #I UPDATE(0420) UPDATE-CTR := UPDATE-CTR + 1 ET-CTR := ET-CTR + 1 END-IF IF ET-CTR > 500 END TRANSACTION RESET ET-CTR END-IF END-WORK IF ET-CTR > 0 END TRANSACTION END-IF WRITE '=' UPDATE-CTR ENDHOC /* /. STEP060 * $$ LST CLASS=C,DISP=K,DEST=* * DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END; * STEP=060 PGM=XBPTRANS AUTO IMM AGENCY TRANS STATUS CODE CHECK // ASSGN SYS000,SYSRDR // DLBL CMWKF01,'PRD.D5.PERS.POLICY.AGTTSFER' // DLBL CMWKF02,'PRD.D5.AGTTRNSF.AUDIT' // DLBL CMWKF03,'PRD.D5.AGTTRNSF.CLAIM' // DLBL CMWKF04,'PRD.D5.CMWKF04' // DLBL SORTWK1,'$$$.PRDWK1' // OPTION NODUMP,SYSPARM='SYSRDR' // UPSI XX1 // EXEC NATBATCH,SIZE=2048K SYS=PRD BWORKD=(1,41,6100,FB,2,42,6084,FB) BWORKD=(3,43,6100,FB,4,44,6100,FB) /* ADARUN DBID=227 /* PRODLIB,PASSWORD XPGLOBAL X XBPTRANS XBPTRPRT XBPTRWRT XCGLOBAL XT140AA1 /* /. STEP070 * $$ LST CLASS=J,DISP=H,DEST=* * DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END; * STEP=070 PGM=XT140AA2 AUTO IMM AGENCY TRANS STATUS CODE CHECK // ASSGN SYS000,SYSRDR // OPTION SYSPARM='SYSRDR' // DLBL CMWKF04,'PRD.D5.CMWKF04' // DLBL SORTWK1,'$$$.PRDWK1' // EXEC NATBATCH,SIZE=2048K SYS=PRD BWORKD=(1,41,6100,FB,2,42,6100,FB,3,43,6100,FB,4,44,6100,FB) /* ADARUN DBID=227 /* PRODLIB,PASSWORD XT140AA2 /* // RESET SYSLST /* /& * DJDE COPIES=1,JDE=DFLT,DUPLEX=YES,END; * $$ EOJ
Return to the Sample Job Stream List
//ZSE5JCL1 JOB (ZSE5JCL1),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END; //* STEP=010 PGM=D2050AA CHECK SYSTEM RECORD FOR PERSONAL //* //* STEP0010 PGM=D2050AA //* //STEP0010 EXEC PGM=D2050AA //* MODULE ADABAS PROCESSED BY PLUG-IN JCLTADAB //* SD I 'PRD.D5.PERS.POLICY.CHECK.SYSTEM' //D9CSF DD DSN=MVS.PRD.D5.PERS.POLICY.CHECK.SYSTEM, // DISP=SHR //SYSOUT INCLUDE MEMBER=SYSOUT //* CD I SYS019 UA //SYS019 DD * * $$ SLI MEM=PRD.D2050AA ADARUN DBID=227 /* //* CD I SYSRDR 00C ADABAS //DDCARD DD * ADARUN DBID=227 /* //* //* STEP=020 PGM=D2050AA CHECK SYSTEM RECORD FOR COMMERCIAL //*/. STEP020 //* //* STEP0020 PGM=D2050AA //* //STEP0020 EXEC PGM=D2050AA //* MODULE ADABAS PROCESSED BY PLUG-IN JCLTADAB //* SD I 'PRD.D2.COML.POLICY.CHECK.SYSTEM' //D9CSF DD DSN=MVS.PRD.D2.COML.POLICY.CHECK.SYSTEM, // DISP=SHR //SYSOUT INCLUDE MEMBER=SYSOUT //* CD I SYS019 UA //SYS019 DD * * $$ SLI MEM=PRD.D2050AB ADARUN DBID=227 /* //* CD I SYSRDR 00C ADABAS //DDCARD DD * ADARUN DBID=227 /* //* //* STEP=030 PGM=XBPUWRC2 EXTRACT FOR UNDERWRITER RECALL REPORT //*/. STEP030 //* //* STEP0030 PROC=NATURAL NATBATCH //* //STEP0030 EXEC PROC=NATURAL //* MODULE NATBATCH PROCESSED BY PLUG-IN JCLTNATB //* SD O SYS041 UA 'PRD.UNDERWRT.RECALL.EXT' XBPUWRC2 //CMWKF01 DD DSN=MVS.PRD.UNDERWRT.RECALL.EXT, // DISP=(NEW,CATLG,DELETE), // BLKSIZE=5504, // LRECL=128, // RECFM=FB, // SPACE=(TRK,(150,37),RLSE), // UNIT=SYSDA //* PR O XBPUWRC2 //CMPRT01 DD SYSOUT=* //* CD I SYSIPT 00C //CMPRMIN DD * SYS=PRD /* //* CD I //CMSYNIN DD * PRODLIB,PASSWORD XBPUWRC2 /* //* //* STEP=040 PGM=TSIDSRT SORT THE MULTIPLE EXTRACT FILE //*/. STEP040 //* //* STEP0040 PGM=SORT TSIDSRT //* //STEP0040 EXEC PGM=SORT //* MODULE TSIDSRT PROCESSED BY PLUG-IN JCLTSORT //* SD I SYS002 UA SORTIN1 'PRD.UNDERWRT.RECALL.EXT' SORT //SORTIN DD DSN=MVS.PRD.UNDERWRT.RECALL.EXT, // DISP=OLD //* SD O SYS001 UA 'PRD.UNDERWRT.RECALL.SORT' SORT //SORTOUT DD DSN=MVS.PRD.UNDERWRT.RECALL.SORT, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(150,37),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * * OPTION PRINT=ALL,FILNM=(SORTOUT,SORTIN1) SORT FIELDS=(1,19,A),FORMAT=CH RECORD TYPE=F,LENGTH=128 * INPFIL BLKSIZE=5504 * OUTFIL BLKSIZE=5504 END /* //* //* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END; //* STEP=050 PGM=XBPUWRC3 PRINT UNDERWRITER RECALL REPORT //*/. STEP050 //* //* STEP0050 PROC=NATURAL NATBATCH //* //STEP0050 EXEC PROC=NATURAL //* MODULE NATBATCH PROCESSED BY PLUG-IN JCLTNATB //* SD I SYS041 UA 'PRD.UNDERWRT.RECALL.SORT' //CMWKF01 DD DSN=MVS.PRD.UNDERWRT.RECALL.SORT, // DISP=OLD, // BLKSIZE=5504, // LRECL=128, // RECFM=FB //* PR O //CMPRT01 DD SYSOUT=* //* CD I SYSIPT 00C //CMPRMIN DD * SYS=PRD /* //* CD I //CMSYNIN DD * PRODLIB,PASSWORD ADHOC ************************************************************************ * * * TITLE: CLAIMS - INITIALIZE BEGINNING OF DAY (PART II) * * * ************************************************************************ DEFINE DATA GLOBAL USING XTGDA01 LOCAL 1 CLAIMS-RESV-VIEW VIEW OF CLAIMS-RESERVE 2 RECORD-TYPE 2 LINE-UNIT 2 CLAIMANT 2 C*COVERAGE-DATA 2 DIR-AMOUNT(1:12) 2 EXP-AMOUNT(1:12) 2 DIR-BEG-DAY(1:12) 2 EXP-BEG-DAY(1:12) 2 RES-CLAIM-NUMBER * 1 INPUT-RECORD (A29) 1 REDEFINE INPUT-RECORD 2 INPUT-RECORD-TYPE (A1) 2 INPUT-RES-CLAIM-NUMBER (A12) 2 INPUT-LINE-UNIT (A5) 2 INPUT-CLAIMANT (N3) 2 INPUT-ISN (N8) * 1 #I (P9) 1 UPDATE-CTR (P9) 1 ET-CTR (P3) END-DEFINE * FORMAT PS=55 LS=132 * READ WORK FILE 1 INPUT-RECORD GET CLAIMS-RESV-VIEW INPUT-ISN IF RECORD-TYPE NOT= INPUT-RECORD-TYPE OR RES-CLAIM-NUMBER NOT= INPUT-RES-CLAIM-NUMBER WRITE 'RECORD NOT FOUND' INPUT-RES-CLAIM-NUMBER 2X INPUT-ISN ELSE WRITE / INPUT-RECORD WRITE '=' DIR-AMOUNT(#I) 2X '=' DIR-BEG-DAY(#I) 2X #I WRITE '=' EXP-AMOUNT(#I) 2X '=' EXP-BEG-DAY(#I) 2X #I UPDATE(0420) UPDATE-CTR := UPDATE-CTR + 1 ET-CTR := ET-CTR + 1 END-IF IF ET-CTR > 500 END TRANSACTION RESET ET-CTR END-IF END-WORK IF ET-CTR > 0 END TRANSACTION END-IF WRITE '=' UPDATE-CTR ENDHOC /* //* //* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END; //* STEP=060 PGM=XBPTRANS AUTO IMM AGENCY TRANS STATUS CODE CHECK //*/. STEP060 //* //* STEP0060 PROC=NATURAL NATBATCH //* //STEP0060 EXEC PROC=NATURAL //* MODULE NATBATCH PROCESSED BY PLUG-IN JCLTNATB //* MODULE XPGLOBAL WAS NOT FOUND //* MODULE XCGLOBAL WAS NOT FOUND //* SD O SYS041 UA 'PRD.D5.PERS.POLICY.AGTTSFER' XBPTRANS //CMWKF01 DD DSN=MVS.PRD.D5.PERS.POLICY.AGTTSFER, // DISP=(NEW,CATLG,DELETE), // BLKSIZE=6100, // RECFM=FB, // SPACE=(TRK,(1000,250),RLSE), // UNIT=SYSDA //* SD O SYS042 UA 'PRD.D5.AGTTRNSF.AUDIT' XBPTRANS //CMWKF02 DD DSN=MVS.PRD.D5.AGTTRNSF.AUDIT, // DISP=(NEW,CATLG,DELETE), // BLKSIZE=6084, // RECFM=FB, // SPACE=(TRK,(1000,250),RLSE), // UNIT=SYSDA //* SD O SYS043 UA 'PRD.D5.AGTTRNSF.CLAIM' XBPTRWRT //CMWKF03 DD DSN=MVS.PRD.D5.AGTTRNSF.CLAIM, // DISP=(NEW,CATLG,DELETE), // BLKSIZE=6100, // RECFM=FB, // SPACE=(TRK,(1000,250),RLSE), // UNIT=SYSDA //* SD O SYS044 UA 'PRD.D5.CMWKF04' XT140AA1 //CMWKF04 DD DSN=MVS.PRD.D5.CMWKF04, // DISP=(NEW,CATLG,DELETE), // BLKSIZE=6100, // RECFM=FB, // SPACE=(TRK,(1000,250),RLSE), // UNIT=SYSDA //* PR O XBPTRANS //* PR O XBPTRPRT //* PR O XBPTRWRT //* PR O XT140AA1 //CMPRT01 DD SYSOUT=* //* CD I SYSIPT 00C //CMPRMIN DD * SYS=PRD /* //* CD I SYSIPT 00C //DDCARD DD * ADARUN DBID=227 /* //* CD I //CMSYNIN DD * PRODLIB,PASSWORD XPGLOBAL X XBPTRANS XBPTRPRT XBPTRWRT XCGLOBAL XT140AA1 /* //* //* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END; //* STEP=070 PGM=XT140AA2 AUTO IMM AGENCY TRANS STATUS CODE CHECK //*/. STEP070 //* //* STEP0070 PROC=NATURAL NATBATCH //* //STEP0070 EXEC PROC=NATURAL //* MODULE NATBATCH PROCESSED BY PLUG-IN JCLTNATB //* SD I SYS044 UA 'PRD.D5.CMWKF04' XT140AA2 //CMWKF04 DD DSN=MVS.PRD.D5.CMWKF04, // DISP=OLD, // BLKSIZE=6100, // RECFM=FB //* PR O XT140AA2 //CMPRT01 DD SYSOUT=* //* CD I SYSIPT 00C //CMPRMIN DD * SYS=PRD /* //* CD I SYSIPT 00C //DDCARD DD * ADARUN DBID=227 /* //* CD I //CMSYNIN DD * PRODLIB,PASSWORD XT140AA2 /* //* //SCRATCH EXEC PGM=IEFBR14 //* //DEL001 DD DSN=MVS.PRD.UNDERWRT.RECALL.EXT,DISP=(MOD,DELETE) //DEL002 DD DSN=MVS.PRD.UNDERWRT.RECALL.SORT,DISP=(MOD,DELETE) //DEL003 DD DSN=MVS.PRD.D5.CMWKF04,DISP=(MOD,DELETE) //
Return to the Sample Job Stream List