JCL for FTP - Is it possible to get current date

superk · Posted: Sun Nov 27, 2005 4:33 am

Try this method instead:

zahari · New User Joined: 25 Nov 2005 Posts: 5 Location: M'sia

Thanks Superk for your reply. I try it this way:

//SYSPFTP JOB 090000,CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID,
// REGION=3072K
//*
// SET DATE=1128
// SET WIN=A
//*
//FTP EXEC PGM=FTP
//OUTPUT DD SYSOUT=*
//SYSUT1 DD DSN=D&DATE,DISP=SHR
//SYSUT2 DD DSN=MNC&DATE&WIN..TXT,DISP=SHR
//SYSIN DD *
// DD DSN=SYSP002.JCLLIB(INFO),DISP=SHR
// DD *
PROMPT
LCD JCLLIB
CD MEPS
CD ABB
PUT //DD:SYSUT1
GET //DD:SYSUT2
QUIT
/*

But the JCL give me this error:

SYSPFTP FTP SYSUT1 - DATA SET NOT FOUND
SYSPFTP FTP - STEP WAS NOT EXECUTED.

Can you/anyone tell me what is wrong with my JCL.

khamarutheen · Active Member Joined: 23 Aug 2005 Posts: 677 Location: NJ

Hi frnd,

Plz check out this code

zahari · New User Joined: 25 Nov 2005 Posts: 5 Location: M'sia

Hi Kamarutheen,

Thanks for the reply. But my below JCL still have some error.

//SYSPFTP JOB 090000,CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID,
// REGION=3072K
//*
// SET DATE=1128
// SET WIN=A
//*
//FTP EXEC PGM=FTP,PARM='(EXIT'
//OUTPUT DD SYSOUT=*
//SYSUT1 DD DSN=SYSP002.TEST.MNC&DATE&WIN,DISP=SHR
//SYSIN DD *
// DD DSN=SYSP002.JCLLIB(INFO),DISP=SHR *IP & USER ID/PASSWD
// DD *
PROMPT OFF
LCD JCLLIB
CD MEPS
CD ABB
PUT //DD:SYSUT1
QUIT
/*

My above JCL give me this error:
EZA1736I PUT //DD:SYSUT1
EZA1685W Invalid local file identifier
EZA1735I FTP Return Code = 27000

It seems that the SYSUT1 DSN was not understood by the FTP JCL.
Help me anybody!

khamarutheen · Active Member Joined: 23 Aug 2005 Posts: 677 Location: NJ

hi frnd,
u r using this code na...

superk · Posted: Mon Nov 28, 2005 7:18 pm

zahari, my apologies, but it appears I may have been misleading you. A quick test showed that FTP does not substitute the dataset name as the target dataset when using the PUT command as I originally showed.

khamarutheen is correct in stating that you will have to supply the target filename. It looks like you will have to write the code, or use a standard utility program, to generate the required PUT statement with an appropriate date value.

An easy solution using REXX would be:

zahari · New User Joined: 25 Nov 2005 Posts: 5 Location: M'sia

Thank you very much Superk.

The REXX JCL works as my requirement.
Need another help on how to shorten the JCL since we have many FI (more 25). If I put all FI (cd FI1, cd FI2 ... and then the GET/PUT command) it going to be lenghty (see below JCL).

superk · Posted: Tue Nov 29, 2005 9:34 pm

superk · Posted: Tue Nov 29, 2005 9:54 pm

zahari · New User Joined: 25 Nov 2005 Posts: 5 Location: M'sia

Thanks Superk.

Then why not use a language/utility that you ARE familiar with? The process is the same:
- Get the date value from the PARM <or>
- Use the current system date.
- Build the FTP GET or PUT records.
- Write the records to an output DD.
- Use those GET/PUT records in the FTP step.

I'm new with this JCL and REXX. My expertise is more to Windows application area. I have a VB program doing the Job all the while, but the management has decided to run the Job from the mainframe instead of Server for a security reason. So here I am, struggling with this new line.
I hope you can understand.

And for :

PUT 'SYSP002.TEST.MNCABB' MRT"ARG(1)A.TXT
PUT 'SYSP002.TEST.MNCABB' MRT"ARG(1)A.TXT
PUT 'SYSP002.TEST.MNCABB' MRT"ARG(1)A.TXT
PUT 'SYSP002.TEST.MNCABB' MRT"ARG(1)A.TXT

You are right the put should put different dataset to a different files. I have copied the wrong line. Sorry. Anyway this is what I try to achive:

For each FI1..F2.. F3...n
PUT 'SYSP002.TEST.PRDABB' DIST"ARG(1)A.TXT
PUT 'SYSP002.TEST.PEDABB' DISTREC"ARG(1)A.TXT
PUT 'SYSP002.TEST.PRCABB' COLL"ARG(1)A.TXT
PUT 'SYSP002.TEST.PECABB' COLLREC"ARG(1)A.TXT

Sorry again if I confuse everyone.