JCL to FTP from Web to z/OS

Document ID : KB000045440
Last Modified Date : 14/02/2018
Show Technical Document Details

 

Summary: 

When using SAMPJCL, this JCL will get PTFs from support.ca.com to a PDS defined as FB=80 BLKSZ=3120.   This will avoid downloading from the web to the PC and then upload to z/OS.  Multiple PTFs can be downloading with one batch job run.  Add a JOBCARD and only change what is highlighted.  It is case sensitive so be sure to enter as shown.  All Gen 8.5 PTFs are in binary format.  Do NOT use this JCL to transfer files or dumps.  There is another knowledge document with JCL for transferring files and dumps.

 

Instructions:

//*                                                                    

//*To FTP PACKED file (PTFs) directly to the mainframe:   

//* 1. Add JOBCARD       

//* 2. Replace * email address * with your valid email address.         

//* 3. Replace ‘get’ statement with a valid z/OS data set name.

//*     The dataset will be created if it does not already exist.                   

//*                                                                    

//FTPSTEP  EXEC PGM=FTP,REGION=0M,PARM=' (TIME 40'                     

//SYSPRINT DD   SYSOUT=*                                                

//OUTPUT   DD   SYSOUT=*                                               

//INPUT    DD *                                                        

ftp.ca.com                                                             

anonymous                                                              

johle05@ca.com                 =========èyour email address                                                                          

cd /apars/d19/pCGHE/r8.5/oOS                                           

dir                                                                     

bin                                                                    

locsite CYL primary=001 secondary=001    

get RO69161.BIN 'JOHLE05.FTPPTF(RO69161)'  (rep   ===ècreate a library FB80 for PTFs sent binary

/*                                               

// ** Delete the arrows and comments in yellow above **

//**  Repeat the 'get' statement for multiple PTFs **