PM88954: SERVER - POTENTIAL ABEND S0C4 IN MODULE EDIQSS AFTER UPGRADE TO Z/OS 1.13 WHEN USING BUFNO > 1

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Environment:  WDI 3.3.0 and z/OS 1.13.
  S0C4 began occurring after upgrading z/OS to 1.13
  There exists the potential for an abend S0C4 in EDIQSS as
  reported via LE message:
   CEE3204S The system detected a protection exception (System
     Completion Code=0C4).
   From entry point main at compile unit offset +00000406 at
     entry offset +00000406 at address 2A012816.
  And, from CEEDUMP Traceback:
  DSA  Entry     E  Offset  Statement   Load Mod    Status
   1   CEEHDSP   +0000422C              CEEPLPKA    Call
   2   DIQSS  12/19/0615.25 5655-I40 (c) Copyright IBM Corp.
                 +0000069A              EDIQSS      Exception
   3   FXXZCSD   2010.082
                 +00001656              EDIZCSD     Call
   4   main      +00000406              EDIIOS      Call
   5   eiclose   -2A103740              EDIEIEX     Call
   6   main      +00001A80              EDIEIEX     Call
   7   eximport  -29F2EA28              EDIFFUS     Call
   8   proccmd   +0000019E              EDIFFUS     Call
   9   main      +00000BB4              EDIFFUS     Call
   10  main      -295AD280              EDIFFUT     Call
   11  EDCZMINV  +000000C2              CEEEV003    Call
   12  CEEBBEXT  +000001C4              CEEPLPKA    Call
  
  The issue, as reported, occurs after PERFORM EXPORT of TPPROF's
  and upon close (FREEPOOL) of the EDIEIPRF file when BUFNO > 1.
  Example allocation:
  //EDIEIPRF  DD DSN=EDIS.GDG.EDIEIPRF(+1),DISP=(NEW,CATLG,CATLG),
  //             UNIT=DISK,BUFNO=20,AVGREC=K,
  //             DCB=(RECFM=VB,LRECL=8152,BLKSIZE=8156),
  //             SPACE=(8152,(1,1),RLSE)
  Note that the prtfile from PERFORM EXPORT export shows as
  complete:
  FF0512 Export processing has completed successfully on behalf
  of a PERFORM EXPORT command.
  
  Keywords: file close fclose free pool freepool buffer number
  ABEND0C4 ABENDS0C4 0C4 protection exception
  

Local fix

• Change EDIEIPRF dd statement allocation to use BUFNO=1, e.g.
  //EDIEIPRF  DD DSN=EDIS.GDG.EDIEIPRF(+1),DISP=(NEW,CATLG,CATLG),
  //             UNIT=DISK,BUFNO=1,AVGREC=K,
  //             DCB=(RECFM=VB,LRECL=8152,BLKSIZE=8156),
  //             SPACE=(8152,(1,1),RLSE)
  

Problem summary

• The issue, as reported, occurs after PERFORM EXPORT of TPPROF'
  and upon close (FREEPOOL) of the EDIEIPRF file when BUFNO > 1.
  Example allocation:
  //EDIEIPRF  DD DSN=EDIS.GDG.EDIEIPRF(+1),DISP=(NEW,CATLG,CATLG
  //             UNIT=DISK,BUFNO=20,AVGREC=K,
  //             DCB=(RECFM=VB,LRECL=8152,BLKSIZE=8156),
  //             SPACE=(8152,(1,1),RLSE)
  Note that the prtfile from PERFORM EXPORT export shows as
  complete:
  FF0512 Export processing has completed successfully on behalf
  of a PERFORM EXPORT command.
  

Problem conclusion

• The FREEPOOL macro has changed.  The current FREEPOOL code
  expansion uses XR to clear a register and an
  ICM to load a 24 bit address.  The code described in the dump /
  analysis showed a Load storage command L
  xxxx.  In the current FREEPOOL there is also a check to see if
  the buffers have been freed previously, TM xxx followed by BZ,
  and the bit is set with an
  OI
  

Temporary fix

Comments

• WDI 3.3 z/OS product only
  ž**** PE13/06/19 FIX IN ERROR. SEE APAR PM91428  FOR DESCRIPTION
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UK94513

Modules/Macros

• ASSEMBLE EDIQSS
  

Fix information

• Fixed component name

  WEBS DI ZOS

• Fixed component ID

  5655I4003

Applicable component levels

• R330 PSY UK94513

     UP13/05/30 P F305

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.