Return to the Sample Job Stream List

ZSE5JCL1 Sample Job Stream

Original JCL (VSE)

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

Translated JCL (MVS)

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