Downloading the PAYDIST FTP.JCL and FTP.DATA libs

Build two local libs where JCL and DATA will be transferred from (UCCMVSB) PAYDIST.FTP.JCL and PAYDIST.FTP.DATA:

//BLD$LIBS JOBCARD GOES HERE
/*JOBPARM  L=30,COPIES=1
//PSFPRNT  OUTPUT DEFAULT=YES,JESDS=ALL,FORMDEF=PRIMT,PAGEDEF=L1D,      
//         DEST=K8N1                                                    
//*---------------------------------------------------------------
//ALLOC  EXEC PGM=IEFBR14                                               
//FTPJCL   DD  DSN=USERACCT.FTP.JCL,DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(16,8,48)),UNIT=SYSDA,                       
//             DCB=(RECFM=FB,LRECL=80,DSORG=PO)                         
//FTPDATA  DD  DSN=USERACCT.FTP.DATA,DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(48,16,48)),UNIT=SYSDA,                       
//             DCB=(RECFM=FB,LRECL=132,DSORG=PO)                         
//*---------------------------------------------------------------
//

FTP the contents of the two (UCOP) UCCMVSB libs to your (local) USERACCT equivalent libs:

//FTP$LIBS JOBCARD GOES HERE
/*JOBPARM  T=1,L=30                                                     
//PSFPRNT  OUTPUT DEFAULT=YES,JESDS=ALL,FORMDEF=PRIMT,PAGEDEF=L1D,      
//         DEST=K8N1                                                    
//*---------------------------------------------------------------
//FTP EXEC PGM=FTP
//INPUT DD *
UCCMVSB.UCOP.EDU
*acct* *passwd*
CWD 'PAYDIST.FTP'
LCD 'USERACCT.FTP'
MGET JCL(*)  (REPLACE
MGET DATA(*) (REPLACE
QUIT
//OUTPUT DD DSN=USERACCT.FTP.DATA(FTP$LIBS),DISP=SHR
//SYSPRINT DD SYSOUT=*
//*---------------------------------------------------------------
//

Notice the diagnostics/messages related to the FTP job were placed in your local USERACCT.FTP.DATA(FTP$LIBS) for your review.

This document last updated 9/5/96