Put this in a SYSPROC/SYSEXEC library and use it as a line command in
3.4
/* REXX MAKEXMI */
/* Xmit PDS into data set for FTP */
PARSE UPPER ARG dsn
@dsn = dsn
@dsn2 = STRIP(@dsn,B,"'")
say 'Processing' @dsn 'into XMIT format'
Address "TSO"
"XMIT MVS.IBMUSER",
"PDS",
"NOLOG",
"SYSOUT(X)",
"DATASET(" || @dsn || ")",
"OUTDATASET('" || @dsn2 || ".XMI')"
Return 0
You can make any variation that works for you locally for instance I
also have
/* REXX MAKEXMIU */
/* Xmit PDS into data set for FTP with userid prefix */
PARSE UPPER ARG dsn
@dsn = dsn
@dsn2 = STRIP(@dsn,B,"'")
@who = sysvar(SYSUID)
say 'Processing' @dsn 'into XMIT format'
Address "TSO"
"XMIT MVS.IBMUSER",
"PDS",
"NOLOG",
"SYSOUT(X)",
"DATASET(" || @dsn || ")",
"OUTDATASET('" || @who || '.' || @dsn2 || ".XMI')"
Return rc
Thanks, Sam
-----Original Message-----> OK, I seem to be having an Alzheimer's
moment. I want to put
> a PDS in XMIT
> format (PS), so I can transfer it to the PC and go from
> there. I don't seem to
> have any JCL left laying around for that, and can't remember
> how to do it.
> This would be similar to the CBTTAPE format methodology.
>
> Any and all helf would be appreciated. I'm sure it's just a
> few lines of
> XMIT/RECV commands, right?!
>
>
> THANX,
> Mark
====================
This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
