* $$ 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
//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