//FTP$@@@@ 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.R@@@@'
LCD 'USERACCT.R@@@@'
MGET ACCTFUND    (REPLACE
MGET ANALYSIS(*) (REPLACE
MGET BIND(*)     (REPLACE
MGET BMSLIB(*)   (REPLACE
MGET CARDEXP(*)  (REPLACE
MGET CARDLIB(*)  (REPLACE
MGET COBOL(*)    (REPLACE
MGET COPYLIB(*)  (REPLACE
MGET DDL(*)      (REPLACE
MGET DGIPNL(*)   (REPLACE
MGET EDBCHG      (REPLACE
MGET EMPLOYEE    (REPLACE
MGET FCPAPPT     (REPLACE
MGET FNLPARMO    (REPLACE
MGET FOCAFD(*)   (REPLACE
MGET FOCEXEC(*)  (REPLACE
MGET FOCMAST(*)  (REPLACE
MGET HELPDDSE    (REPLACE
MGET INCLUDE(*)  (REPLACE
MGET JCL(*)      (REPLACE
MGET MAPLIB(*)   (REPLACE
MGET NEWACTIV    (REPLACE
MGET RCSTORE     (REPLACE
MGET REPORTS(*)  (REPLACE
MGET UDB2CTL(*)  (REPLACE
MGET UDB2EDB(*)  (REPLACE
MGET UDB2EDB2(*) (REPLACE
MGET UDB2PAR(*)  (REPLACE
MGET WIDETIME(*) (REPLACE
QUIT
//OUTPUT DD DSN=USERACCT.FTP.DATA(FTP$@@@@),DISP=SHR
//SYSPRINT DD SYSOUT=*