++APAR(ASZ3400). /*-----------------------------------------------------

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2005.

ASZ3400 051117 61VNAB DD ASEB200 V220 ABS906     OMCSXWPS 051202 S_-PMD
AbendS906 for module IGG019AH after multiple spool I/O errors

_PROBLEM DESCRIPTION:
Apar ASZ3301, which addresses the problem described by IBM apar
OW57577, causes spool I/O errors on GET operations to be retried
200 times before actually failing the I/O. This causes the SYNAD
exit for the dataset to be driven 200 times. Each time the exit is driven
the module IGG019AH is loaded by the exit. In the situation where a large
number of datasets have I/O errors, such as when an IPL occurs over a
running machine, this can cause IGG019AH to be loaded more than 32767 times.
This will result in an S906 Abend causing the writer to fail.

_PROBLEM SUMMARY:
USERS AFFECTED: ALL

See Problem Description.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3400

The SYNAD exit in OMCSXWPS will be changed to return control to
the operating system so that the IGG019AH module can be deleted.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0995).
++ZAP(OMCSXWPS).
NAME OMCSXWPS
IDRDATA ASZ3400
VER 1D70 000000C8       /* LOOP 200 TIMES
VER 1DAE 00000000       /* PATCH AREA
VER 0648 48E0A582
VER 07A6 184E,47F0BD22
VER 1D68 47F0C63E
VER 03B8 00
VER 1D54 4780C7AC
VER 1D58 4110000A
REP 1D70 00000014       /* SET LOOP COUNT 20
REP 1DAE 59F0BDBE,4780C63E,48E0A582,47F0C64C /*RETRY GET IF ERROR
REP 1DBE 00000008
REP 0648 47F0BDAE
REP 1DC2 900FA6F4,41D0A774,47F0BD22  /* SAVE REGISTERS
REP 07A6 47F0BDC2
REP 1DCE 9802A6F4,984FA704,41F00008,07FE /* RESTORE REGS EXCEPT R3
REP 1D68 47F0BDCE
REP 03B8 40 /* SET EROPT SKP
REP 1DDC 9802A6F4,984FA704,47F0C7AC /* REAL ERROR RESTORE REGS
REP 1D54 4780BDDC
REP 1DE8 0000000A /* CORRECT STIMER BUG
REP 1D58 4110BDE8
*LMOD OMCSXWPS