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