REXX Batch unable to allocate sortin and sysin dd for calling external

[scouter48]

When attempting to have an external sort rexx will not allow allocatio9n of sorting & sysin that is required for the sort. This code work in TSO but issues in batch.

"SUPMSGS."
srto = "'"userid()".SORTOUT.TEMP'"
"'.SORTOUT.TEMP'"
address tso "del" srto
"del '.SORTOUT.TEMP'"
RC(8) +++
address tso "FREE FI(SYSOUT SORTIN SORTOUT SYSIN)"
"FREE FI(SYSOUT SORTIN SORTOUT SYSIN)"
RC(12) +++
address tso "ALLOC FI(sysout) SPACE(1,1) TRACK LRECL(80) RECF
"ALLOC FI(sysout) SPACE(1,1) TRACK LRECL(80) RECFM(F) BLK
address tso "allocate fi(sortin) space(10,10) cylinders ",

"allocate fi(sortin) space(10,10) cylinders lrecl(53) blk
RC(12) +++

 

[superk01]

RC=8 and RC=12 on basic TSO commands? Are you sure that TSO is available?

 

[rexxhead]

It looks like "Userid()" is returning a null. What??


Frank Clarke
--America's source for adverse opinions since 1943.