BKPD047 Sample Job Stream

Original JCL (VSE)

>SUB,R,N
>* BKPD047 - BACKUP D047 TO T047
* $$ JOB JNM=BKPD047,CLASS=8,USER='44-R.WALKO'
* $$ PRT CLASS=B,DISP=H
// JOB BKPD047 BACKUP D047 TO T047
// DLBL D047,'D047.ADPDCS.INPUT  ',,VSAM,CAT=PRODCAT,BUFSP=40960
// TLBL FILEB,'T047,U'
// EXEC EASYTREV
INCLUDE   EZBKVSES D047 VS VB 750 8352  UNLOAD
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//BKPD047  JOB (BKPD047),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PGM=SORT                                              EASYTREV
//*
//STEP0010 EXEC PGM=SORT
//* MODULE EASYTREV PROCESSED BY PLUG-IN LCPEZT
//* VS VS    I PRODCAT    D047     'D047.ADPDCS.INPUT'
//SORTIN   DD  DSN=MVS.D047.ADPDCS.INPUT,
//             DISP=SHR
//* MT O              FILEB    'T047,U'
//SORTOUT  DD  DSN=MVS.T047,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
*INCLUDE   EZBKVSES D047 VS VB 750 8352  UNLOAD
 SORT FIELDS=COPY
 RECORD TYPE=V,LENGTH=750
/*
//
   

Return to the Sample Job Stream List