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"
"DELSTACK"
"FREE F(INDD1)"
"FREE F(OUTDD1)"
"FREE F(SYSIN)"
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
