* $$ 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