Return to the Sample Job Stream List

P1145M1 Sample Job Stream

Original JCL (VSE)

// PIF (PL3 EQ '14').SELTPE
// PIF (PL3 EQ '17').SELTPE
// PGO     .ENDING
//.SELTPE  PNOP ,
.* USE SELCOPY TO COPY OUTPUT DISK FILE TO TAPE WHICH WILL BE USED BY
.* CMS JOB 'SENDACE' TO RUN DOWNLOAD FOR SG & MY
// DLBL DISK10,'===P11451 INPUT,(D)'
// EXTENT SYS010,AEI004,,,1,600
// TLBL TAPE11,'PCIMPTVA INPUT &PL3',,,,,,2
// EXEC SELCOPY
 IN F=DISK10 L=200
  N F=TAPE11 L=200  B=200
/*
//.&PL4    PNOP ,
//.ENDING  PNOP ,
/&
/+
/*
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//P1145M1  JOB (P1145M1),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PGM=SELCOPY
//*
//STEP0010 EXEC PGM=SELCOPY
//* MODULE SELCOPY PROCESSED BY PLUG-IN JCLTSELC
//* SD I                       '===P11451 INPUT,(D)'
//DISK10   DD  DSN=AEI.P11451.INPUT,
//             DISP=(OLD,DELETE,KEEP)
//* MT O                       'PCIMPTVA INPUT &PL3'
//TAPE11   DD  DSN=PCI.MPTVA.INPUT.&PL3,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O SYSLST 00E
//SYSPRINT DD  SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN    DD  *
 IN F=DISK10 L=200
  N F=TAPE11 L=200  B=200
/*
//
   

Return to the Sample Job Stream List