Return to the Sample Job Stream List

ESZ001 Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=ESZ001,CLASS=5
* $$ LST CLASS=R,DEST=*
// JOB ESZ001
// ASSGN SYSLST,00E
// ASSGN SYS046,DISK,VOL=TREAS3,SHR
// PAUSE   MOUNT CARTRIDGE & ASSGN SYS000
// TLBL SYS000,'        '
// DLBL PCPAUL,'PCPAUL',,VSAM,CAT=BBCAT
// EXEC IDCAMS,SIZE=AUTO
   DEL (PCPAUL) CL CAT (TREAS.UCAT.BB BBCAT) PURGE
   DEF CL (NAME(PCPAUL) VOL(TREAS3) NONINDEXED -
                RECSZ(577,577) RECORDS(1000 100))         -
                DATA(NAME(PCPAUL.ESDS) CISZ(5120))  -
                CAT(TREAS.UCAT.BB)
     /* FOLLOWING AIX & PATH ENTRIES ADDED TO TEST XFERD1 */
   DEF AIX(NAME(PCPAUL.AIX) REL(PCPAUL)) CAT(TREAS.UCAT.BB)
   DEF PATH(NAME(PCPAUL.PATH) PENT(PCPAUL.AIX)) CAT(TREAS.UCAT.BB)
   DEF AIX(NAME(PCPAUL.AIX2) REL(PCPAUL)) CAT(TREAS.UCAT.BB)
   DEF PATH(NAME(PCPAUL.PATH2) PENT(PCPAUL.AIX2)) CAT(TREAS.UCAT.BB)
/*
// EXEC EZTPA00,SIZE=512K
   LIST OFF
   PARM DEVICE (FBA) +
        DEBUG(NOCLIST, NODMAP) +
        LIST(NOFILE NOPARM) +
        SORT(MSG (NO))
*
*  PGM ESZ001  TAPE TO DISK
*
FILE SYS000 TAPE (REWIND) FB(577 32312)
*
FILE PCPAUL VS (ES)
*
JOB  INPUT  SYS000
*
PUT PCPAUL FROM SYS000
PRINT REP-001
*
REPORT REP-001     LINESIZE 132 SUMMARY
  CONTROL
  TITLE  01  'ESCHEATS RECORDS COPIED'
  TITLE  02  'EZT PLUS PROGRAM ESZ001'
  LINE   01  TALLY
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//ESZ001   JOB (ESZ001),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PGM=IDCAMS
//*
//STEP0010 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//*    VS    I BBCAT    A          'PCPAUL'                             DELETE
//#DELETE  DD  DUMMY,DSN=MVS.PCPAUL
//* VS VS    I BBCAT    A          'PCPAUL'                             DEFAIX
//#DEFAIX  DD  DUMMY,DSN=MVS.PCPAUL
//* VS VS IX I BBCAT    A          'PCPAUL.AIX'                         DEFPATH
//#DEFPATH DD  DUMMY,DSN=MVS.PCPAUL.AIX
//* VS VS    I BBCAT    A          'PCPAUL'                             DEFAIX
//#DEFAIX  DD  DUMMY,DSN=MVS.PCPAUL
//* VS VS IX I BBCAT    A          'PCPAUL.AIX2'                        DEFPATH
//#DEFPATH DD  DUMMY,DSN=MVS.PCPAUL.AIX2
//* VS VS ES O BBCAT    A          'PCPAUL'                             DEFCL
//#DEFCL   DD  DUMMY,DSN=MVS.PCPAUL
//* VS VS IX O BBCAT    A          'PCPAUL.AIX'                         DEFAIX
//#DEFAIX  DD  DUMMY,DSN=MVS.PCPAUL.AIX
//* VS VS PH O BBCAT    A          'PCPAUL.PATH'                        DEFPATH
//#DEFPATH DD  DUMMY,DSN=MVS.PCPAUL.PATH
//* VS VS IX O BBCAT    A          'PCPAUL.AIX2'                        DEFAIX
//#DEFAIX  DD  DUMMY,DSN=MVS.PCPAUL.AIX2
//* VS VS PH O BBCAT    A          'PCPAUL.PATH2'                       DEFPATH
//#DEFPATH DD  DUMMY,DSN=MVS.PCPAUL.PATH2
//* PR O
//SYSPRINT DD  SYSOUT=*
//*TLBL SYS000,'--> NO FILE-ID ON TLBL <--'
//*DLBL PCPAUL,'PCPAUL',,VSAM,CAT=BBCAT
//* CD I
//SYSIN    DD  *
   DEL (MVS.PCPAUL) CL                       PURGE
 IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
   DEF CL (NAME(MVS.PCPAUL) VOL(TREAS3) NONINDEXED -
                RECSZ(577,577) RECORDS(1000 100))         -
                DATA(                  CISZ(5120))
     /* FOLLOWING AIX & PATH ENTRIES ADDED TO TEST XFERD1 */
   DEF AIX(NAME(MVS.PCPAUL.AIX) REL(MVS.PCPAUL))
   DEF PATH(NAME(MVS.PCPAUL.PATH) PENT(MVS.PCPAUL.AIX))
   DEF AIX(NAME(MVS.PCPAUL.AIX2) REL(MVS.PCPAUL))
   DEF PATH(NAME(MVS.PCPAUL.PATH2) PENT(MVS.PCPAUL.AIX2))
/*
//*
//*     STEP0020  PGM=EZTPA00
//*
//STEP0020 EXEC PGM=EZTPA00
//* MODULE EZTPA00 PROCESSED BY PLUG-IN LCPEZP
//* MT I            C          '--> NO FILE-ID ON TLBL <--'
//SYS000   DD  DSN='--> NO FILE-ID ON TLBL <--',
//             BLKSIZE=32312,
//             RECFM=FB
//* SD W            EZTVFM       /0/0 OPT=Y
//* VS VS ES O BBCAT    C          'PCPAUL'
//PCPAUL   DD  DSN=MVS.PCPAUL,
//             DISP=SHR
//* PR O SYSLST 00E 0001
//SYSPRINT DD  SYSOUT=R
//* CD I
//SYSIN    DD  *
   LIST OFF
   PARM DEVICE (FBA) +
        DEBUG(NOCLIST, NODMAP) +
        LIST(NOFILE NOPARM) +
 
*
*  PGM ESZ001  TAPE TO DISK
*
FILE SYS000               FB(577 0)
*
FILE PCPAUL VS (ES)
*
JOB  INPUT  SYS000
*
PUT PCPAUL FROM SYS000
PRINT REP-001
*
REPORT REP-001     LINESIZE 132 SUMMARY
  CONTROL
  TITLE  01  'ESCHEATS RECORDS COPIED'
  TITLE  02  'EZT PLUS PROGRAM ESZ001'
  LINE   01  TALLY
/*
//
   

Return to the Sample Job Stream List