CAUNZIP Utility › Download Zip Files › Sample JCL: CA HOLDDATA File

Sample JCL: CA HOLDDATA File

//*===================================================================*
//* This sample job can be used to download the CA HOLDDATA file      *
//* file from CA FTP server to your z/OS system.  Before submitting:  *
//* 1. Change 'youremail@address' to a valid email adress             *
//* 2. Some environments require the SYSTCPD DD below to provide      *
//*    access to the correct TCPIP stack for external network access. *
//*    Consult with your Network Support staff.  If required,         *
//*    uncomment the SYSTCPD DD and provide the correct Data set name. *
//* 3. Replace <holddata file name> with one of the following         *
//     HOLDDATA files to download                                     *
//*        Monthly - MONTHLY-HOLDDATA.TXT                             *
//*        Quarterly - QUARTER-HOLDDATA.TXT                           *
//*        Yearly - YEARLY-HOLDDATA.TXT                               *
//*        ALL - ALL-HOLDDATA.TXT                                     *
//*    If you are not sure which file is appropriate, download the    *
//*    ALL-HOLDDATA.TXT to obtain all hold information available.     *
//* 4. Change <your PTFHOLD DSN> to the Data set name where you want   *
//*    the HOLDDATA to be saved.                                      *
//* 5. Supply a JOB statement before this sample JCL                  *
//*===================================================================*
//GETHOLD  EXEC PGM=FTP,REGION=0M
//SYSPRINT DD SYSOUT=*
//OUTPUT   DD SYSOUT=*
//* Some environments require the SYSTCPD DD below to provide access  *
//* to the correct TCPIP stack for external network access.  Consult  *
//* with your Network Support staff.  If required, uncomment the      *
//* statement below and provide the correct Data set name.             *
//*SYSTCPD  DD   DSN=<your TCPIP.DATA file>,DISP=SHR
//INPUT    DD *
ftp.ca.com 21
anonymous
youremail@address
cd /pub/HoldData/
dir
asc
locsite LR=80 REC=FB BLOCKSI=0
locsite PRI=20 SEC=10 CY
get <holddata file name> '<your PTFHOLD DSN>' (REPLACE
quit
/*