Previous Topic: Download Zip FilesNext Topic: Sample JCL: CA HOLDDATA File


Sample JCL: Copy a Zip file to a USS Directory

//CAZIPCPY JOB 'ACCT INFO',CLASS=A,MSGCLASS=X                         
//*-----------------------------------------------------------------**
//*                                                                 **
//*                     * CAZIPCPY *                                **
//*                                                                 **
//*  FUNCTION:  SAMPLE JOB USED TO COPY A ZIP FILE CREATED BY       **
//*             CA SUPPORT ONLINE TO A USS DIRECTORY.               **
//*                                                                 **
//*                                                                 **
//*  INSTRUCTIONS:                                                  **
//*                                                                 **
//*  1. Update the job card.                                        **
//*                                                                 **
//*  2. Change youremail@address to your valid email address.       **
//*                                                                 **
//*  3. Replace siteid/ordernumber with the information found on    **
//*     CA Support Online under the 'Alternate FTP' link.           **
//*                                                                 **
//*  4. Some sites may require the SYSTCPD DD below.  Consult       **
//*     your network support staff for the correct data set name.   **
//*     If required, uncomment //SYSTCPD and update DSN.            **
//*                                                                 **
//*  5. Replace scartX.zip with a new name.                         **
//*                                                                 **
//*-----------------------------------------------------------------**
//*  COPYRIGHT (C) 2013 CA.  ALL RIGHTS RESERVED.                   **
//*-----------------------------------------------------------------**
//*
//ZIPCOPY EXEC PGM=FTP,REGION=0K
//SYSPRINT DD SYSOUT=*
//OUTPUT   DD SYSOUT=*
//*SYSTCPD DD  DISP=SHR,DSN=your.TCPIP.DATA
//INPUT DD *
scftpd.ca.com
anonymous  youremail@address
cd /ftp/orders/siteid/ordernumber/
bin
get scart0.zip /**your USS directory** /scartX.zip
quit
/*