On 13/06/2011 02:24 AM, Paul Gilmartin wrote:
It hasn't changed a whole lot; it's still way easy to get Sx13 ABENDs:
READY
allocate dd(sysin) shr reuse dsn('sys1.maclib(nonesuch)')
READY
call *(iebgener)
DATA SET UTILITY - GENERATE PAGE 0001
IEC141I 013-18,IGG0191B,user,$STCTSO1,SYSIN,4140,MVS3RS,SYS1.MACLIB(NONESUCH)
IKJ56641I IEBGENER ENDED DUE TO ERROR+
READY
-- gil
Gil,
an unfair test.
The test should be
OPEN (TEXTDCB,,CONVDCB,(OUTPUT),PRINTDCB, X
(OUTPUT))
LTR RF,RF
BZ OPEN_OK
various error testing routines
wrapped of course in the rest of the module, compiled, linked and
executed with the appropriate JCL.
I don't, without going top the MVS 3.8 source know the extent of
IEBGENER's error checking
Ken
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
