PM15152: DFS1000I IMS101 ABEND U0102 MODULE=DFSZD210 LABEL=C4C30001 R14=800498C6

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• a BMP with an empty GSAM dataset during XRST results in :
  DFS1000I IMS101 ABEND U0102 MODULE=DFSZD210 LABEL=C4C30001
  R14=800498C6
  with PK90294 applied
  

Local fix

• Restore V10 UK56158
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS V10 users of GSAM and APAR/PTF       *
  *                 PK90294/UK56158 applied.                     *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABENDU0102 LABEL=C4C30001 occurs in     *
  *                      module DFSZD210 during an extended      *
  *                      restart (XRST) of an empty GSAM         *
  *                      database.                               *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  An ABENDU0102 occurs in module DFSZD210 during extended restart
  (XRST) of an empty GSAM database with APAR/PTF PK90294/UK56158
  applied.  The problem occurs in module DFSZD210 routine GUREQ
  because code to set GBBLKRF0 in the code path for basic format
  datasets did not exist.  Since this bit was not set, a branch to
  label CONTXRST in routine PNTRTN do not occur.  Instead, GSAM
  enhancement code, PK89932, was executed and detected an empty
  dataset.  When the empty dataset was detected after label
  CHKLSTAR, GBCRTNCD was set to x'44' after label XDSEMPTY
  indicating to module DFSZDC00 an invalid empty dataset condition
  exits during XRST and issues an U0102.
  
  Additional keywords:
  
  DFS1000I IMS101 ABEND U0102 MODULE=DFSZD210 LABEL=C4C30001
  

Problem conclusion

• GEN:
  KEYWORDS:
  
  *** END IMS KEYWORDS ***
  
  Several modules have been changed to resolve the problems.  Code
  has been added to handle the case of less than 64K track during
  an XRST call of an empty GSAM database.  Detailed changes to
  each module are as follows.
  
    ************
    * DFSLOG18 *
    ************
  
  A bit was added in log record x'18' to indicate a large format
  dataset is used.  The flag name is XGB64TRK which equates to
  x'80'.  This flag is required because the GSAM database may not
  be open during extended restart time (XRST) so XGB64TRK will be
  set during extended checkpoint (CHKP) time if a large format
  dataset is used.
  
    ************
    * DFSZDC00 *
    ************
  
  Code was added in module DFSZDC00 in routine OPENED to disable
  GBZFLAG when the Z bit in the RSA during a GU (get unique) call
  is disabled for larger than 64K track data set code path.
  
    ************
    * DFSZD210 *
    ************
  
  GBBLKRF0 flag is set in routine GUREQ (less than 64K track
  dataset code path) during an XRST call when GBBLKREF is equal to
  zero.  This flag indicates a valid case of an empty data set
  during an XRST call.
  
    ************
    * DFSZSC00 *
    ************
  
  Code was added to module DFSZSC00 after label DBPCBRT5 to enable
  XGB64TRK when flags GBOPEN and GB64KTRK are enabled.  Since
  GB64KTRK can only be set when the GSAM database is open, GBOPEN
  must be enabled before GB64KTRK can be checked.  Consequently,
  flags XGB64TRK and GBZFLAG can be set in variable XGBZFLAG.
  
    ************
    * DFSZSR10 *
    ************
  
  Code was changed in module DFSZSR10 after labels GSPCB100 and
  GSPCB200 from CLI (Compare Logical Immediate), BE (Branch on
  Equal), and MVI (Move Immediate) to instructions TM (Test under
  Mask), BO (Branch if Ones), and OI (Or Immediate) because
  variable XGBZFLAG can now have 2 flags enabled, XGB64TRK and
  GBZFLAG.
  
  Code was added to module DFSZSR10 after label GSPCB200 to check
  if XGB64TRK is enabled.
  
    **************
    * DOC CHANGE *
    **************
  
  DOCUMENTATION CHANGE FOR APAR PM15152
  THIS MAINTENANCE IS BEING HELD SO YOU WILL BE
  AWARE OF DOCUMENTATION CHANGE TO MANUAL(S):
  SC18969801
  -
  THE FOLLOWING TEXT DESCRIBES THE DOC CHANGE:
  -
  Application Programming Guide  (SC18969801)
  
  Under section: Symbolic CHKP and XRST with GSAM
  
  Add another bullet under "Restriction:  When restarting GSAM
  databases:"
  
  * The GSAM database dataset must have the same dataset format
    (BASIC or LARGE) as when the symbolic CHKP call was issued.
  

Temporary fix

• *********
  * HIPER *
  *********
  

Comments

APAR Information

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

  PM15147

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

  UK58297

Modules/Macros

• DFSLOG18 DFSZDC00 DFSZD210 DFSZSC00 DFSZSR10
  

Fix information

• Fixed component name

  IMS V10

• Fixed component ID

  5635A0100

Applicable component levels

• R010 PSY UK58297

     UP10/07/01 P F006 «

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.