Return to the Sample Job Stream List

PXHRM01 Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=PXHRM01,CLASS=P,DISP=D
* $$ LST CLASS=J,DISP=K,DEST=*
* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
// JOB PXHRM01             HW LOAD DR.REPORT.RELEASE & MERGE WITH IBM
// OPTION PARSTD
// DLBL CMWKF01,'NATURAL WORK FILE 1'
// EXTENT ,PRDSEQ,1,0,1,150
// DLBL CMWKF02,'NATURAL WORK FILE 2'
// EXTENT ,PRDSEQ,1,0,1,150
// DLBL CMWKF03,'NATURAL WORK FILE 3'
// EXTENT ,PRDSEQ,1,0,1,150
// DLBL CMWKF04,'NATURAL WORK FILE 4'
// EXTENT ,PRDSEQ,1,0,1,150
// OPTION USRLABEL
/. C
/. C 03/04/02 WMB  ADDED LST CARD TO STEP=050
/. C 08/16/96 MXG  ADDED STEP060 & STEP070
/. C 10/18/95 DLG  MODIFIED FOR NEW PRD INTEGRATED ENV
/. C 10/15/95 RAM  ADDED ALL CHANGES FOR AUTO PROJECT
/. C 08/30/95 JAC  CONVERTED 'BRIDGE' TAPES TO EPIC FILES.
/. C 11/05/94 DLG  CONVERTED PRD TO PRD VERSION FOR AB2 IMPL.
/*
// PAUSE IF THIS IS A RESTART TYPE:   GOTO STEPNNN   ELSE PRESS ENTER
/*
* STEP=005    PGM=IDCAMS     DELETE/DEFINE WORK FILES
// EXEC PROC=PRDGENWK
/*
* $$ LST CLASS=A,DISP=K,DEST=*
* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
* STEP=010    PGM=MHRLC02    LOAD HONEYWELL DRAFTS
/. C
/. C  NOTE ASSGN SYS011,IGN TO BYPASS MTD-ISSUED
/. C
/. C  // ASSGN SYS011,IGN
/. C
// ASSGN SYS000,SYSRDR
// ASSGN SYS020,SYSLST                                       ++
// TLBL  DRFFIL,'PRD.ME.MTD.ISSUED',,,,,,2
// DLBL WK20FIL,'PRD.GEN.WORK1',,VSAM,CAT=MOEUCAT
// DLBL WK30FIL,'PRD.GEN.WORK2',,VSAM,CAT=MOEUCAT
// DLBL  REPFIL,'PRD.DR.REPORT.RELEASE',,VSAM,CAT=MOEUCAT
// EXEC MHRLC02,SIZE=348K
DRAFTS
/*
ADARUN DBID=227
/*
/. STEP020
* $$ LST CLASS=A,DISP=K,DEST=*
* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
* STEP=020    PGM=MHRLC02    LOAD HONEYWELL RESERVES
/. C
/. C  NOTE ASSGN SYS012,IGN TO BYPASS RESERVES
/. C
/. C  // ASSGN SYS012,IGN
/. C
// ASSGN SYS000,SYSRDR
// DLBL  RESFIL,'PRD.RESERVES'
// DLBL WK20FIL,'PRD.GEN.WORK1',,VSAM,CAT=MOEUCAT
// DLBL WK30FIL,'PRD.GEN.WORK2',,VSAM,CAT=MOEUCAT
// DLBL  REPFIL,'PRD.DR.REPORT.RELEASE',,VSAM,CAT=MOEUCAT
// EXEC MHRLC02,SIZE=348K
RESERVES
/*
ADARUN DBID=227
/*
/. STEP030
* $$ LST CLASS=A,DISP=K,DEST=*
* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
* STEP=030    PGM=MHRLC02    LOAD HONEYWELL CLAIM RECOVERIES
/. C
/. C  NOTE ASSGN SYS013,IGN TO BYPASS CLAIMRECOV
/. C
/. C  // ASSGN SYS013,IGN
/. C
// ASSGN SYS000,SYSRDR
// TLBL  SSFIL,'PRD.CLAIM.RECOV',,,,,,2
// DLBL WK20FIL,'PRD.GEN.WORK1',,VSAM,CAT=MOEUCAT
// DLBL WK30FIL,'PRD.GEN.WORK2',,VSAM,CAT=MOEUCAT
// DLBL  REPFIL,'PRD.DR.REPORT.RELEASE',,VSAM,CAT=MOEUCAT
// EXEC MHRLC02,SIZE=348K
SALVAGE
/*
ADARUN DBID=227
/*
/. STEP040
* $$ LST CLASS=A,DISP=K,DEST=*
* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
* STEP=040    PGM=MHRLC01    LOAD HONEYWELL PREMIUM WRITTEN
/. C
/. C  NOTE ASSGN SYS011,IGN TO BYPASS MO-END-PW
/. C
/. C // ASSGN SYS011,IGN
/. C
// ASSGN SYS000,SYSRDR
// TLBL  PWFIL,'PRD.MO.END.PW',,,,,,2
// DLBL  WKFIL,'PRD.GEN.WORK1',,VSAM,CAT=MOEUCAT
// DLBL REPFIL,'PRD.DR.REPORT.RELEASE',,VSAM,CAT=MOEUCAT
// EXEC MHRLC01,SIZE=348K
PWMGD
/*
ADARUN DBID=227
/*
/. STEP050
* $$ LST CLASS=A,DISP=K,DEST=*,LST=01E
* STEP=050    PGM=DRP220     ADD MONTHLY TRANSACTIONS TO YTD BACKUP
// ASSGN SYS000,SYSRDR
// TLBL DRFM220,'PRD.DR.YTD.DET.BU',,,,,,2
// TLBL DRFK220,'PRD.DR.YTD.TMP.BU',,,,,,1
// DLBL DRFD195,'PRD.DR.REPORT.RELEASE',0,VSAM,CAT=MOEUCAT
// EXEC DRP220,SIZE=AUTO
ADARUN DBID=227
/*
ONLY USE RELEASE FILE...BYPASS PREVIOUS YEAR'S TAPE TO START NEW YEAR
/*
/. STEP060
* $$ LST CLASS=A,DISP=K,DEST=*,LST=01E
* STEP=060    PGM=MMRRN07    DRAFT EXPERIENCE BY STATE
/. C
/. C  DJDE STMT IS I/P TO PGM, NOT JCL CARD
/. C
// ASSGN SYS000,IGN
// ASSGN SYS010,01E
// DLBL  RPTREL,'PRD.DR.REPORT.RELEASE',,VSAM,CAT=MOEUCAT
// DLBL SORTWK1,'$$$.PRDWK1'
// OPTION NODUMP,SYSPARM='SYSRDR'
// UPSI XX1
// EXEC NATBATCH,SIZE=2048K
SYS=PRD
BWORKD=(1,30,6600,VB)
BPRINTD=(1,10,133)
/*
PRODLIB,PASSWORD
EXEC MMRRN07
* DJDE COPIES=1 DUPLEX=NO END;
FIN
/*
/. STEP070
* $$ LST CLASS=A,DISP=K,DEST=*,LST=02E
* STEP=070    PGM=MMRRN09    RESERVES EXPERIENCE BY EXAMINER
/. C
/. C  DJDE STMT IS I/P TO PGM, NOT JCL CARD
/. C
// ASSGN SYS000,IGN
// ASSGN SYS011,02E
// DLBL  RPTREL,'PRD.DR.REPORT.RELEASE',,VSAM,CAT=MOEUCAT
// DLBL SORTWK1,'$$$.PRDWK1'
// OPTION NODUMP,SYSPARM='SYSRDR'
// UPSI XX1
// EXEC NATBATCH,SIZE=2048K
SYS=PRD
BWORKD=(1,30,6600,VB)
BPRINTD=(1,11,133)
/*
PRODLIB,PASSWORD
EXEC MMRRN09
* DJDE COPIES=1 DUPLEX=NO END;
FIN
/*
/&
* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//PXHRM01  JOB (PXHRM01),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
//* STEP=005    PGM=IDCAMS     DELETE/DEFINE WORK FILES
//* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
//* STEP=010    PGM=MHRLC02    LOAD HONEYWELL DRAFTS
//*
//*     STEP0010  PGM=MHRLC02
//*
//STEP0010 EXEC PGM=MHRLC02
//* MODULE ADABAS PROCESSED BY PLUG-IN JCLTADAB
//* MT I SYS011 UA             'PRD.ME.MTD.ISSUED'
//DRFFIL   DD  DSN=MVS.PRD.ME.MTD.ISSUED,
//             DISP=SHR
//*    VS    U MOEUCAT             'PRD.DR.REPORT.RELEASE'
//REPFIL   DD  DSN=MVS.PRD.DR.REPORT.RELEASE,
//             DISP=SHR
//*    VS    W MOEUCAT             'PRD.GEN.WORK1'
//WK20FIL  DD  DSN=&&WK20FIL,
//             SPACE=(TRK,(1000,250)),
//             UNIT=SYSDA
//*    VS    W MOEUCAT             'PRD.GEN.WORK2'
//WK30FIL  DD  DSN=&&WK30FIL,
//             SPACE=(TRK,(1000,250)),
//             UNIT=SYSDA
//* PR O SYS020 00E 0002
//SYS020   DD  SYSOUT=A
//* CD I SYS000 00C
//SYS000   DD  *
DRAFTS
/*
//* CD I SYSRDR 00C                                                     ADABAS
//DDCARD   DD  *
ADARUN DBID=227
/*
//*
//* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
//* STEP=020    PGM=MHRLC02    LOAD HONEYWELL RESERVES
//*/. STEP020
//*
//*     STEP0020  PGM=MHRLC02
//*
//STEP0020 EXEC PGM=MHRLC02
//* MODULE ADABAS PROCESSED BY PLUG-IN JCLTADAB
//* SD I SYS011 UA             'PRD.RESERVES'
//RESFIL   DD  DSN=MVS.PRD.RESERVES,
//             DISP=SHR
//*    VS    U MOEUCAT             'PRD.DR.REPORT.RELEASE'
//REPFIL   DD  DSN=MVS.PRD.DR.REPORT.RELEASE,
//             DISP=SHR
//*    VS    W MOEUCAT             'PRD.GEN.WORK1'
//WK20FIL  DD  DSN=&&WK20FIL,
//             SPACE=(TRK,(1000,250)),
//             UNIT=SYSDA
//*    VS    W MOEUCAT             'PRD.GEN.WORK2'
//WK30FIL  DD  DSN=&&WK30FIL,
//             SPACE=(TRK,(1000,250)),
//             UNIT=SYSDA
//* PR O SYS020 00E 0003
//SYS020   DD  SYSOUT=A
//* CD I SYS000 00C
//SYS000   DD  *
RESERVES
/*
//* CD I SYSRDR 00C                                                     ADABAS
//DDCARD   DD  *
ADARUN DBID=227
/*
//*
//* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
//* STEP=030    PGM=MHRLC02    LOAD HONEYWELL CLAIM RECOVERIES
//*/. STEP030
//*
//*     STEP0030  PGM=MHRLC02
//*
//STEP0030 EXEC PGM=MHRLC02
//* MODULE ADABAS PROCESSED BY PLUG-IN JCLTADAB
//* MT I SYS011 UA             'PRD.CLAIM.RECOV'
//SSFIL    DD  DSN=MVS.PRD.CLAIM.RECOV,
//             DISP=SHR
//*    VS    U MOEUCAT             'PRD.DR.REPORT.RELEASE'
//REPFIL   DD  DSN=MVS.PRD.DR.REPORT.RELEASE,
//             DISP=SHR
//*    VS    W MOEUCAT             'PRD.GEN.WORK1'
//WK20FIL  DD  DSN=&&WK20FIL,
//             SPACE=(TRK,(1000,250)),
//             UNIT=SYSDA
//*    VS    W MOEUCAT             'PRD.GEN.WORK2'
//WK30FIL  DD  DSN=&&WK30FIL,
//             SPACE=(TRK,(1000,250)),
//             UNIT=SYSDA
//* PR O SYS020 00E 0004
//SYS020   DD  SYSOUT=A
//* CD I SYS000 00C
//SYS000   DD  *
SALVAGE
/*
//* CD I SYSRDR 00C                                                     ADABAS
//DDCARD   DD  *
ADARUN DBID=227
/*
//*
//* DJDE COPIES=1,JDE=DFLT,DUPLEX=NO,END;
//* STEP=040    PGM=MHRLC01    LOAD HONEYWELL PREMIUM WRITTEN
//*/. STEP040
//*
//*     STEP0040  PGM=MHRLC01
//*
//STEP0040 EXEC PGM=MHRLC01
//* MODULE ADABAS PROCESSED BY PLUG-IN JCLTADAB
//* MT I SYS011 UA             'PRD.MO.END.PW'
//PWFIL    DD  DSN=MVS.PRD.MO.END.PW,
//             DISP=SHR
//*    VS    U MOEUCAT             'PRD.DR.REPORT.RELEASE'
//REPFIL   DD  DSN=MVS.PRD.DR.REPORT.RELEASE,
//             DISP=SHR
//*    VS    W MOEUCAT             'PRD.GEN.WORK1'
//WKFIL    DD  DSN=&&WKFIL,
//             SPACE=(TRK,(1000,250)),
//             UNIT=SYSDA
//* PR O SYS020 00E 0005
//SYS020   DD  SYSOUT=A
//* CD I SYS000 00C
//SYS000   DD  *
PWMGD
/*
//* CD I SYSRDR 00C                                                     ADABAS
//DDCARD   DD  *
ADARUN DBID=227
/*
//*
//* STEP=050    PGM=DRP220     ADD MONTHLY TRANSACTIONS TO YTD BACKUP
//*/. STEP050
//*
//*     STEP0050  PGM=DRP220
//*
//STEP0050 EXEC PGM=DRP220
//* MODULE ADABAS PROCESSED BY PLUG-IN JCLTADAB
//*    VS    U MOEUCAT             'PRD.DR.REPORT.RELEASE'
//DRFD195  DD  DSN=MVS.PRD.DR.REPORT.RELEASE,
//             DISP=SHR
//* MT W                       'PRD.DR.YTD.DET.BU'
//DRFM220  DD  DSN=&&DRFM220,
//             UNIT=TAPE
//* MT W                       'PRD.DR.YTD.TMP.BU'
//DRFK220  DD  DSN=&&DRFK220,
//             UNIT=TAPE
//* CD I SYS000 00C
//SYS000   DD  *
ONLY USE RELEASE FILE...BYPASS PREVIOUS YEAR'S TAPE TO START NEW YEAR
/*
//* CD I SYSRDR 00C                                                     ADABAS
//DDCARD   DD  *
ADARUN DBID=227
/*
//*
//* STEP=060    PGM=MMRRN07    DRAFT EXPERIENCE BY STATE
//*/. STEP060
//*
//*     STEP0060  PROC=NATURAL                                          NATBATCH
//*
//STEP0060 EXEC PROC=NATURAL
//* MODULE NATBATCH PROCESSED BY PLUG-IN JCLTNATB
//*    VS    I MOEUCAT             'PRD.DR.REPORT.RELEASE'              MMRRN07
//RPTREL   DD  DSN=MVS.PRD.DR.REPORT.RELEASE,
//             DISP=SHR
//* SD W SYS030 UA  P          'NATURAL WORK FILE 1'                    MMRRN07
//CMWKF01  DD  DSN=&&CMWKF01,
//             BLKSIZE=6600,
//             RECFM=VB,
//             SPACE=(TRK,(150,37)),
//             UNIT=SYSDA
//* PR O SYS010 01E 0007                                                MMRRN07
//CMPRT01  DD  SYSOUT=A,
//             LRECL=133
//* CD I SYSIPT 00C
//CMPRMIN  DD  *
SYS=PRD
/*
//* CD I
//CMSYNIN  DD  *
PRODLIB,PASSWORD
EXEC MMRRN07
* DJDE COPIES=1 DUPLEX=NO END;
FIN
/*
//*
//* STEP=070    PGM=MMRRN09    RESERVES EXPERIENCE BY EXAMINER
//*/. STEP070
//*
//*     STEP0070  PROC=NATURAL                                          NATBATCH
//*
//STEP0070 EXEC PROC=NATURAL
//* MODULE NATBATCH PROCESSED BY PLUG-IN JCLTNATB
//*    VS    I MOEUCAT             'PRD.DR.REPORT.RELEASE'              MMRRN09
//RPTREL   DD  DSN=MVS.PRD.DR.REPORT.RELEASE,
//             DISP=SHR
//* SD W SYS030 UA  P          'NATURAL WORK FILE 1'                    MMRRN09
//CMWKF01  DD  DSN=&&CMWKF01,
//             BLKSIZE=6600,
//             RECFM=VB,
//             SPACE=(TRK,(150,37)),
//             UNIT=SYSDA
//* PR O SYS011 02E 0008                                                MMRRN09
//CMPRT01  DD  SYSOUT=A,
//             LRECL=133
//* CD I SYSIPT 00C
//CMPRMIN  DD  *
SYS=PRD
/*
//* CD I
//CMSYNIN  DD  *
PRODLIB,PASSWORD
EXEC MMRRN09
* DJDE COPIES=1 DUPLEX=NO END;
FIN
/*
//
   

Return to the Sample Job Stream List