Example
Figure 64. Sample JCL for the CSQUTIL SCOPY functions. The sample shows two instances of the SCOPY function--one SCOPY to the default DDNAME, CSQUOUT; the other to DDNAME OUTPUTA, which overrides CSQUOUT.//SCOPY EXEC PGM=CSQUTIL //STEPLIB DD DISP=SHR,DSN=thlqual.SCSQANLE // DD DISP=SHR,DSN=thlqual.SCSQAUTH //OUTPUTA DD DSN=SAMPLE.UTILITY.COPYA,DISP=(NEW,CATLG), // SPACE=(CYL,(5,1),RLSE),UNIT=SYSDA, // DCB=(RECFM=VBS,BLKSIZE=23200) //CSQUOUT DD DSN=SAMPLE.UTILITY.COPY3,DISP=(NEW,CATLG), // SPACE=(CYL,(5,1),RLSE),UNIT=SYSDA, // DCB=(RECFM=VBS,BLKSIZE=23200) //CSQP0000 DD DISP=OLD,DSN=pageset.dsname0 //CSQP0003 DD DISP=OLD,DSN=pageset.dsname3 //CSQP0006 DD DISP=OLD,DSN=pageset.dsname6 //SYSPRINT DD SYSOUT=* //SYSIN DD * * COPY WHOLE PAGE SET TO 'CSQUOUT' SCOPY PSID(03) * COPY ONE QUEUE TO 'OUTPUT' - QUEUE IS ON PAGE SET 6 SCOPY QUEUE(ABC123A) DDNAME(OUTPUTA) /*