Nits,
Frederico has it.
In your first FTP step create a file using the OUTPUT DD:
//FTP1 EXEC PGM=FTP
...
//OUTPUT DD DISP=(NEW,CATLG,DELETE),
// DSN=your.ftp.log,
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE),
//...
Nits,
What I've done in the past, is run a two step FTP process. First, I run and FTP and do a DIR (list) command. I then scan through the ftplog with a program to find the dataset names and create the GET commands. I then use the GET commands in the second FTP step.
BTW: different servers...
I'm (also) an MVS person, however on IBM's z/VSE site they have a REXX/VSE Introduction pdf which mentions:
// EXEC REXX=yourrexx
Where yourrexx should reside in a VSE library as a member type PROC.
You may want to go to REXXLA also to see what's there.
Good Luck
Hi guys,
I like webrabbit's TR suggestion. Others are good but I'm lazy.
Assuming you are FTP'ing from TSO:
You can create your own translate table for the ftp. As the FTP is using a translate table to begin with there is no additional overhead. Just make sure you start with whatever default...
This has left REXX and gone into JES2. (You may want to check a JES site, if there is one)
You might want to check out either of these two commands:
$D O J with the OUTDISP=HOLD parameter
this only shows hold q, but many lines each
$D J with the TYPE=JOB parameter...
Use getmsg to issue $D CONDEF (JES2 command), it will display the current values of CONDEF.
$T CONDEF may be used to change the values, however, CONDEF is for all consoles and you should really check into the init and tunning guide for JES2 first. (You don't want your console buffers to fill)...
The $D N,ALL returns multiple multi-line responses ($HASP890 messages). A single getmsg will only get the first response message.
If you code:
CR = GETMSG('MENSA.1.','SOL','JES20001',,60)
CR = GETMSG('MENSA.2.','SOL','JES20001')
CR = GETMSG('MENSA.3.','SOL','JES20001')
You'll get the first...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.