//FTP$1081 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.R1081'
LCD 'USERACCT.R1081'
MGET ACCTFUND    (REPLACE
MGET ANALYSIS(*) (REPLACE
MGET BIND(*)     (REPLACE
MGET BMSLIB(*)   (REPLACE
MGET CARDLIB(*)  (REPLACE
MGET COBOL(*)    (REPLACE
MGET COPYLIB(*)  (REPLACE
MGET DGIPNL(*)   (REPLACE
MGET EDBCHG      (REPLACE
MGET EMPLOYEE    (REPLACE
MGET FCPAPPT     (REPLACE
MGET FNLPARMO    (REPLACE
MGET HELPDDSE    (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$1081),DISP=SHR
//SYSPRINT DD SYSOUT=*