++PTF(ASP0864).  /* --------------------------------------------------
ASP0864 000509 ASEX100 V100 PM RUN ASEXDBGR IN 31 BIT MODE

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2000.

_APARLIST:

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

ASZ3151 000509 411PAS TB ASEX100 P836 ABS806     ASEXDBGR 000509 ??00864
Abend S806 for module OMCSARC after applying ASP0836.

_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 it's 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 ASP0864.

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) SUP(ASZ3110,ASP0836).
++JCLIN.
//STEP1    EXEC PGM=IEWL,
//            PARM='LIST,MAP,NCAL,REUS,AMODE=31'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLMOD  DD DSN=ASE.SASELMD,DISP=SHR
//AASEMOD  DD DSN=ASE.AASEMOD,DISP=SHR
//SYSLIN   DD *
 INCLUDE AASEMOD(ASEXARC2)
 NAME ASEXARC2(R)
++MOD(ASEXARC2) DISTLIB(AASEMOD) LEPARM(RENT,REUS).
++MOD(ASEXDBGR).
++MOD(ASEXDBRM).
++MOD(ASEXDBIO).
++MOD(ASEXDBBM).
++MOD(ASEXDBIM).
++MOD(ASEXDBFM).
++MOD(ASEXDBDM).
++MOD(ASEXDBCF).