Code: Select all
//DATETEST JOB (XXXX,YYY),'INTERNET ONLY',MSGCLASS=A,MSGLEVEL=(1,1),
// CLASS=B,USER=ABCD,PASSWORD=QQQQQ
//*
//STEP01 EXEC PGM=EZACFSM1
//SYSOUT DD DSN=&&CNTL,DISP=(,PASS),
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
ALTER 'RFA195.DATA.FILE' -
NEWNAME('RFA195.DATA.FILE.D&YR2&MON&DAY')
/*
//*
//LASTSTEP EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&&CNTL,DISP=(OLD,DELETE)
//FTPSTD EXEC PGM=FTP
//* PARM=('TIMEOUT 60 EXIT=12'
//*
//SYSPRINT DD SYSOUT=A
//OUTPUT DD SYSOUT=*
//*
//*================================================================
//* DATA INPUT DD * ARE SERVER, USERID, PASSWORD, MVS DATASET, PCDSN
//* PARAMETERS ARE FOR PRESIDIUM LEARNING INC.
//*================================================================
//INPUT DD *
myservername
mydomainname\userid
password
cd /mydirectoryname
bin
PUT 'RFA195.DIS.FILE.D&LYYMMDD' RFA195.D&LYYMMDD
QUIT /\ /\
//* || ||
*** errors outon this ===|| and this ===||
*** what needs to be placed at these points?