Return to the Sample Job Stream List

MV05506B Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=MV05506B,SYSID=1
* $$ LST CLASS=A,DISP=D,FNO=1P14,COPY=1,LST=SYSLST
// JOB MV05506B 10                     EXCEPTION TABLE RESTORE
// PAUSE
// ASSGN SYS020,DISK,VOL=PERM51,SHR
// DLBL MVAFXS1,'MVAFXS1.EXCEPTION.TABLE.FILE'
// EXTENT SYS020,PERM51,1,0,1149,1
// TLBL EXCBKUP,'MV8FYB5,U'            I/P EXCEPTION TABLE BACKUP
// EXEC DYL280,SIZE=250K
    OPTION RESTORE MVLF0101
    FIN
/*
// JOB ARNITE      ARNITE - ASSIGNED RISK NIGHT CYCLE - CA-DART
* ********************************************** *
* ******  BEGIN ASSIGNED RISK NIGHT CYCLE  ***** *
* ********************************************** *
// ASSGN SYS001,SYSLST
* $$ LST DISP=L,CLASS=Z,FNO=PRT1,USER='BACKUPS'
// DLBL SORTIN1,'MVVGGF.CDL.LIC.INPUT.CLUSTER',,VSAM,CAT=PRM53CT
// EXEC SORT,SIZE=256K
 OPTION PRINT=CRITICAL,LABEL=(S,S,S)
 SORT FIELDS=(1,8,A),FORMAT=BI,WORK=1,FILES=1
 INCLUDE COND=(1230,1,CH,NE,C'C')
 INPFIL VSAM
 RECORD TYPE=F,LENGTH=(1250)
 OUTREC FIELDS=(1,8,3X,1177,2,3X)
 OUTFIL CADART
 END
   DATA NAMES=(D1=00001,00008,CH)
   BREAK FIELDS=(D1)
   COLUMN HEADS=(POLICY)
   PRINT FIELDS=(D1)
   DATA NAMES=(D2=00009,00008,CH)
   COLUMN HEADS=(    OPERATOR)
   PRINT FIELDS=(D2)
   HEADER=ASSIGNED RISK
   HEADER=NEW BUSINESS/CHANGES INCOMPLETE TRANSACTIONS
/*   EOF
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//MV05506B JOB (MV05506B),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PGM=SORT                                              DYL280
//*
//STEP0010 EXEC PGM=SORT
//* MODULE DYL280 PROCESSED BY PLUG-IN LCP280
//* MT I SYS010 UA    EXCBKUP  'MV8FYB5,U'                              MVLF0101
//SORTIN   DD  DSN=VTMV.DICSZFYB.BXXXX.EXCP.TABLE,
//             DISP=SHR
//* SD O SYS011 UA    MVAFXS1  'MVAFXS1.EXCEPTION.TABLE.FILE'           MVLF0101
//SORTOUT  DD  DSN=VTMV.DICSZFXS.BXXXX.EXCEPT.TABLE,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(1,1),RLSE),
//             UNIT=SYSDA
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 SORT FIELDS=COPY
/*
//*
//* ********************************************** *
//* ******  BEGIN ASSIGNED RISK NIGHT CYCLE  ***** *
//* ********************************************** *
//*
//*     STEP0020  PGM=SORT
//*
//STEP0020 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* VS VS    I PRM53CT    SORTIN1  'MVVGGF.CDL.LIC.INPUT.CLUSTER'
//SORTIN   DD  DSN=VTMV.DICSZGGF.BXXXX.CDL.LIC,
//             DISP=SHR
//* PR O SYS001 00E 0002
//SORTOUT  DD  SYSOUT=(Z,,PRT1)
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
*OPTION PRINT=CRITICAL,LABEL=(S,S,S)
 SORT  FIELDS=(1,8,A),FORMAT=BI
 INCLUDE COND=(1230,1,CH,NE,C'C')
*INPFIL VSAM
 RECORD TYPE=F,LENGTH=(1250)
 OUTREC FIELDS=(1,8,3X,1177,2,3X)
*OUTFIL CADART
 MODS E35=(CADART,0)
 END
/*
//* CD I
//CADART   DD  *
   DATA NAMES=(D1=00001,00008,CH)
   BREAK FIELDS=(D1)
   COLUMN HEADS=(POLICY)
   PRINT FIELDS=(D1)
   DATA NAMES=(D2=00009,00008,CH)
   COLUMN HEADS=(    OPERATOR)
   PRINT FIELDS=(D2)
   HEADER=ASSIGNED RISK
   HEADER=NEW BUSINESS/CHANGES INCOMPLETE TRANSACTIONS
/*
//
   

Return to the Sample Job Stream List