Example 9: Using SYSUT2 to allocate an unload data set

The JCL example in Figure 1 invokes the AMAPDUPL program to transfer partitioned data set H44IPCS.PDS.DATA to the testcase.boulder.ibm.com. The optional SYSUT2 statement is used to allocate an unload sequential data set for the IEBCOPY utility invoked by the PDUU.

Figure 1. Using SYSUT2 statement for allocating an unload data set

//FTP EXEC PGM=AMAPDUPL  
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*           
//SYSUT1  DD DSN=H44IPCS.PDS.DATA,DISP=SHR  
//SYSUT2  DD DSN=H44IPCS.UNLOAD.DASD,DISP=(NEW,CATLG),   
//  DCB=(RECFM=VS),                                      
//  SPACE=(CYL,(1,1),RLSE),UNIT=SYSDA                    
//SYSIN DD *                                             
USERID=anonymous
PASSWORD=anonymous
TARGET_SYS=testcase.boulder.ibm.com
TARGET_DSN=wessamp.bigfile
WORK_DSN=wes.ftpout
CC_FTP=03
WORK_DSN_SIZE=500
DIRECTORY=/toibm/mvs/
PMR=12345.123.123
//