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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ3110 991109 61VASE PS ASEX100 V100 ABS0C4     ASEXDBGR 991109 ??00836
Abend S0C4 when using ISPZIP under ISPF to compress a large PDS.

_PROBLEM DESCRIPTION:
Abend S0C4 occurs when using the ISPZIP ISPF option to compress a PDS
that has a large number of members.

_PROBLEM SUMMARY:
USERS AFFECTED: All users of ISPZIP under ISPF

ISPZIP calls ASEXDBGR to manage the listing file created by the compress
operation. ISPZIP runs in amode 31. ASEXDBGR expects its caller to
be in amode 24.  ASEXDBGR incorrectly switched to amode 24 before
returning to ISPZIP which caused a subsequent abend in ISPZIP.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply PTF ASP0836.

ASEXDBGR will be modified to accept callers in amode 24 or 31.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE OR EMAIL: HELP@ASE.COM.AU

       */
++VER(Z038) FMID(ASEX100).