On Thu, 16 Feb 2012 08:14:03 +0200 Mark Jones <[email protected]> wrote:
:>Hi
:>I havent had a problem with this
:>/* REXX */
:>"FREE F(INDD1)"
:>"FREE F(OUTDD1)"
:>"FREE F(SYSIN)"
:>"ALLOC FI(INDD1) DSN('xxxxx.xxxx.aaa') SHR"
:>"ALLOC FI(OUTDD1) DSN('xxxxx.xxxx.bbb') SHR"
:>"ALLOC FI(SYSIN) DSN('xxxxx.xxxx.ccc') SHR"
:>"NEWSTACK"
:>V1 = " C I=((INDD1,R)),O=OUTDD1"
:>V2 = " SELECT MEMBER=((MSJT,,R))"
:>V3 = " SELECT MEMBER=((MSJTST1,,R))"
:>V4 = " SELECT MEMBER=((MSJTST2,,R))"
:>V5 = " SELECT MEMBER=((MSJTST7,,R))"
:>QUEUE V1
:>QUEUE V2
:>QUEUE V3
:>QUEUE V4
:>QUEUE V5
:>"EXECIO" QUEUED() "DISKW SYSIN (FINIS"
:>"TSOEXEC IEBCOPY"
Could lead to trouble if IEBCOPY looks at the parms.
:>"DELSTACK"
:>"FREE F(INDD1)"
:>"FREE F(OUTDD1)"
:>"FREE F(SYSIN)"
--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
