PK84632: SOME COPY BOOKS E.G. A17DS, D2GDS AND D2RDS ARE INCORRECT.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Some variables are defined as a signed fixed binary in precision
  of 8. This occupies 2 bytes of storage. This is wrong. Only 1
  byte of storage should be allocated.
  

Local fix

• Use char(1) or bit(8) or BIN FIXED(8) unsigned.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All                                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: PL/I copybooks DFHA17DS, DFHD2GDS and   *
  *                      DFHD2RDS contain data items that have   *
  *                      been declared in a manner which causes  *
  *                      the length to be incorrect.             *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  DFHA17DS, DFHD2GDS and DFHD2RDS contain declarations for data
  items, some of which are one byte in length. Those data items
  that have been given an attribute of BIN FIXED(8) have two bytes
  reserved for them by the PL/I compiler, causing the data items
  that follow to be at the wrong offset.
  
  Keywords: PL1 PL/1 PLI A17POOL D2G_RESYNCMEMBER D2R_AUTHTYPE
  A17FILL3 A17STRNO A17RNAME A17RSYS A17DSTYP A17FILL4 A17BDSNM
  A17DSASC A17DSASW A17LOPNT A17LCLST A17GOPNT A17GCLST A17DSBRU
  A17RLSWT A17DTCON A17DTCFP A17DTLDS A17FCXCC
  D2GFILL1 D2GFILL2 D2G_POOL_STATS D2G_POOL_PLAN_NAME
  D2G_POOL_PLANEXIT_NAME D2G_POOL_AUTHID D2G_POOL_AUTHTYPE
  D2G_POOL_ACCOUNTREC D2G_POOL_THREADWAIT D2G_POOL_PRIORITY
  D2G_POOL_CALLS D2G_POOL_SIGNONS D2G_POOL_COMMITS D2G_POOL_ABORTS
  D2G_POOL_SINGLE_PHASE D2G_POOL_THREAD_REUSE D2G_POOL_THREAD_TERM
  D2G_POOL_THREAD_WAITS D2G_POOL_THREAD_LIMIT
  D2G_POOL_THREAD_CURRENT D2G_POOL_THREAD_HWM
  D2G_POOL_TASK_CURRENT D2G_POOL_TASK_HWM D2G_POOL_TASK_TOTAL
  D2G_POOL_READYQ_CURRENT D2G_POOL_READYQ_HWM
  D2G_POOL_PARTIAL_SIGNONS D2GFILL3 D2G_COMMAND_STATS
  D2G_COMD_AUTHID D2G_COMD_AUTHTYPE D2GFILL4 D2G_COMD_CALLS
  D2G_COMD_SIGNONS D2G_COMD_THREAD_TERM D2G_COMD_THREAD_OVERF
  D2G_COMD_THREAD_LIMIT D2G_COMD_THREAD_CURRENT
  D2G_COMD_THREAD_HWM D2GFILL5 D2G_DCL_VERSION
  D2G_RESYNCMEMBER_RESYNC D2G_RESYNCMEMBER_NORESYNC
  D2G_AUTHTYPE_NA D2G_AUTHTYPE_USERID D2G_AUTHTYPE_OPID
  D2G_AUTHTYPE_GROUP D2G_AUTHTYPE_SIGNID D2G_AUTHTYPE_TERM
  D2G_AUTHTYPE_TXID D2G_ACCOUNTREC_NONE D2G_ACCOUNTREC_TXID
  D2G_ACCOUNTREC_TASK D2G_ACCOUNTREC_UOW D2G_THREADWAIT_YES
  D2G_THREADWAIT_NO D2G_PRIORITY_NA D2G_PRIORITY_HIGH
  D2G_PRIORITY_EQUAL D2G_PRIORITY_LOW
  D2R_ACCOUNTREC D2R_THREADWAIT D2R_PRIORITY D2R_CALLS D2R_SIGNONS
  D2R_COMMITS D2R_ABORTS D2R_SINGLE_PHASE D2R_THREAD_REUSE
  D2R_THREAD_TERM D2R_THREAD_WAIT_OR_OVERF D2R_THREAD_LIMIT
  D2R_THREAD_CURRENT D2R_THREAD_HWM D2R_PTHREAD_LIMIT
  D2R_PTHREAD_CURRENT D2R_PTHREAD_HWM D2R_TASK_CURRENT
  D2R_TASK_HWM D2R_TASK_TOTAL D2R_READYQ_CURRENT D2R_READYQ_HWM
  D2R_PARTIAL_SIGNONS D2R_DCL_VERSION D2R_AUTHTYPE_NA
  D2R_AUTHTYPE_USERID D2R_AUTHTYPE_OPID D2R_AUTHTYPE_GROUP
  D2R_AUTHTYPE_SIGNID D2R_AUTHTYPE_TERM D2R_AUTHTYPE_TXID
  D2R_ACCOUNTREC_NONE D2R_ACCOUNTREC_TXID D2R_ACCOUNTREC_TASK
  D2R_ACCOUNTREC_UOW D2R_THREADWAIT_YES D2R_THREADWAIT_NO
  D2R_THREADWAIT_POOL D2R_PRIORITY_NA D2R_PRIORITY_HIGH
  D2R_PRIORITY_EQUAL D2R_PRIORITY_LOW
  

Problem conclusion

• DFHA17DS, DFHD2GDS and DFHD2RDS have been changed to add
  UNSIGNED to the one byte data items that have been declared
  with the BIN FIXED(8) attributes. This will instruct the
  compiler to reserve one byte instead of two.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

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

  PK89764 UK48731 UK48732

Modules/Macros

•    DFHA17DS DFHD2GDS DFHD2RDS
  

Fix information

• Fixed component name

  CICSTS V3 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R402 PSY UK48731

     UP09/07/31 P F907

• R502 PSY UK48732

     UP09/07/31 P F907

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.