At the risk of going overboard, here is JCL that will do this with Rexx.
The only advantage of this over PGM=EZACFSM1 (which is simpler) is that you
can do date manipulation (e.g. yesterday or next month).
The comments are, of course, optional.
//FTPTEST JOB (JOB,JOB),'RHARRIS',CLASS=Z,MSGCLASS=M
//*
//* Create a temp DSN with dates in it.
//GETDATE EXEC PGM=IKJEFT1B
//SYSEXEC DD DISP=(NEW,PASS),DSN=&&SYSEXEC,
// LRECL=80,RECFM=FB,DSORG=PO,SPACE=(TRK,(1,1,1))
//MEMBER DD DISP=(OLD,DELETE),VOL=REF=*.SYSEXEC,DSN=&&SYSEXEC
(REXX)
//PARM DD DISP=(NEW,PASS),DSN=&&PARM,
// LRECL=80,RECFM=FB,SPACE=(TRK,(1,1))
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
REPRO INFILE(REXX) OUTFILE(MEMBER)
%REXX
/*
//REXX DD DATA,DLM=$$
/* Rexx program */
parse VALUE Date(S) Date(B) WITH Year +4 Month +2 Day Base
/* Year + n: */
/* Year = Year+n */
/* Month + n: */
/* Month = Month+n */
/* tM = 12*Year+(Month-1) */
/* Year = tM%12 */
/* Month = tM//12 +1 */
/* Day + n: */
/* parse VALUE Date('S',Base+n,'B') WITH Year +4 Month +2 Day */
/* skip 1st 2 chars of year - century */
YyMmDd = SubStr(Date('S',Year||Month||Day,'S'),3)
queue "xxx.xxx.xxx.xxx"
queue "userid password"
queue "PUT 'randys.test.ftp.dataset' 'randys.test.ftp.dataset.D"Yymmdd"'"
queue "QUIT"
"ExecIO" Queued() "DiskW PARM (FINIS"
$$
//*
//* FTP the dataset
//STEP01 EXEC PGM=FTP
//SYSFTPD DD DSN=parmlib(FTPSDATA),DISP=(SHR,KEEP)
//SYSTCPD DD DSN=parmlib(TCPDATA),DISP=(SHR,KEEP)
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//INPUT DD DISP=OLD,DSN=&&PARM
On Thu, 16 Sep 2010 15:47:59 -0500, Harris, Randy
<rhar...@furniturebrands.com> wrote:
>Trying to do an ftp from mainframe (z/OS v1.7) to a network server.
>I would like to be able append the system date to the dataset in the put
statement.
>Is there a symbolic parameter for date that will allow me to do this?
>
-----<removed JCL>---------
>
>Thanks,
>
>Randy Harris
>Lane Furniture Industries, Inc.
>Tupelo, MS 38802
>Phone: 662-566-3447
>rhar...@furniturebrands.com<mailto:rhar...@furniturebrands.com>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
