9 *-* say BPXWDYN( 'alloc dd(SYSUT1) path(''/etc/services'')
filedata(TEXT)' ,
'recfm(V,B) LRECL(32760) blksize(32767) reuse msg(WTP)' )
>>> "0"
0
11 *-* address 'MVS' 'EXECIO * DISKR SYSUT1 (finis stem JUNK.'
>>> "EXECIO * DISKR SYSUT1 (finis stem JUNK."
12 *-* say JUNK.0
>>> "203"
203
???
IEBGENER fails (as it should) with the same SYSUT1:
IEC141I 013-34,IGG0199G,user,$STCTSO1,SYSUT1
IRX0250E System abend code 013, reason code 00000052.
... And here I'm dissatisfied. M&C gives eight possible explanations for
RC=34.
That's bad. Each reason should have a distinct reason code rather than
requiring
the programmer to investigate each of the eight.
And here, none of the eight seems to apply. If someone can't supply what I fail
to understand, I may go to SR.
And damn Rexx for showing RC in decimal when all the reference material show
hex!
Postel's law was a bad idea.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
