PDP25X Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=PDP25X,CLASS=C
* $$ LST CLASS=B,DISP=H
// JOB BACKUP FILE 3370 DISK
// ASSGN SYS005,XXX  WRITE MINI LABELED PDP UNSORTED A-Z (FA OR HO)
// TLBL TAPE,'BACKUP.FILE'
// DLBL IJSYSUC,'USER.CATALOG.ARAM113',,VSAM
// DLBL WSRSORT,'PDP.SPEC.WSR.SORTED',,VSAM
// EXEC IDCAMS,SIZE=AUTO
         BACKUP (PDP.SPEC.WSR.NOT.SORTED-
                 PDP.SPEC.WSR.SORTED)-
         STDLABEL (TAPE)
 
 IF LASTCC = 0 THEN -
   REPRO IFILE(SYSIPT) OFILE(WSRSORT) REUSE
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//PDP25X   JOB (PDP25X),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//* ASSGN SYS005,XXX  WRITE MINI LABELED PDP UNSORTED A-Z (FA OR HO)
//*
//*     STEP0010  PGM=ADRDSSU                                           IDCAMS
//*
//STEP0010 EXEC PGM=ADRDSSU
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//*    VS    I UCAT113  A          'PDP.SPEC.WSR.NOT.SORTED'            BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PDP.SPEC.WSR.NOT.SORTED
//*    VS    I UCAT113  A          'PDP.SPEC.WSR.SORTED'                BACKUP
//#BACKUP  DD  DUMMY,DSN=MVS.PDP.SPEC.WSR.SORTED
//* MT O SYS005 UA             'BACKUP.FILE'                            BACKUP
//TAPE     DD  DSN=MVS.BACKUP.FILE(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 DUMP -
   DATASET( -
     INCLUDE( -
       MVS.PDP.SPEC.WSR.NOT.SORTED -
       MVS.PDP.SPEC.WSR.SORTED -
            )) -
   SPHERE -
   SHARE -
   OUTDD(TAPE)
/*
// IF (STEP0010.RC = 0) THEN
//*
//*     STEP0020  PGM=IDCAMS
//*
//STEP0020 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* VS VS    O UCAT113             'PDP.SPEC.WSR.SORTED'                REPRO
//WSRSORT  DD  DSN=MVS.PDP.SPEC.WSR.SORTED,
//             DISP=SHR
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
   REPRO IFILE(SYSIN) OFILE(WSRSORT) REUSE
/*
// ENDIF
//
   

Return to the Sample Job Stream List