IBM Support

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

A fix is available

Subscribe

You can track all active APARs for this component.

 

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.             *
    *                      Message IBM1352I is issued by the PL/I  *
    *                      compiler.                               *
    ****************************************************************
    * 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. Other data items have
    been given an attribute of BIN FIXED(16) and have four bytes
    reserved for them instead of two.
    
    Message IBM1352I is issued by the PL/I compiler because of
    missing underscores in the declarations of
    A17_FILE_UNKNOWN_AGENT, D2R_INSTALL_TIME and D2R_INSTALL_USERID.
    
    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
    A17_FILE_DEFINE_SOURCE A17_FILE_CHANGE_TIME
    A17_FILE_CHANGE_USERID A17_FILE_CHANGE_AGENT
    A17_FILE_INSTALL_AGENT A17_FILE_INSTALL_TIME
    A17_FILE_INSTALL_USERID A17_FILE_UNKNOWN_AGENT
    A17_FILE_CSDAPI A17_FILE_CSDBATCH A17_FILE_DREPAPI
    A17_FILE_CREATE_SPI A17_FILE_GRPLIST A17_FILE_SYSTEM
    A17_FILE_TABLE
    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_DB2CONN_RESOURCE_SIG
    D2G_DB2CONN_DEFINE_SOURCE D2G_DB2CONN_CHANGE_TIME
    D2G_DB2CONN_CHANGE_USERID D2G_DB2CONN_CHANGE_AGENT
    D2G_DB2CONN_INSTALL_AGENT D2G_DB2CONN_INSTALL_TIME
    D2G_DB2CONN_INSTALL_USERID D2G_POOL_THREAD_CREATE
    D2G_COMD_THREAD_CREATE D2G_DB2CONN_UNKNOWN_AGENT
    D2G_DB2CONN_CSDAPI D2G_DB2CONN_CSDBATCH D2G_DB2CONN_DREPAPI
    D2G_DB2CONN_CREATE_SPI D2G_DB2CONN_GRPLIST
    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_THREAD_CREATE D2R_FILLER1
    D2R_DEFINE_SOURCE D2R_CHANGE_TIME D2R_CHANGE_USERID
    D2R_CHANGE_AGENT D2R_INSTALL_AGENT D2R_INSTALL_TIME
    D2R_INSTALL_USERID D2R_FILLER2 D2R_UNKNOWN_AGENT
    D2R_CSDAPI D2R_CSDBATCH D2R_DREPAPI D2R_CREATE_SPI D2R_GRPLIST
    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. They have also been changed to
    add UNSIGNED to the two byte data items that have been declared
    with the BIN FIXED(16) attributes. This will instruct the
    compiler to reserve two bytes instead of four.
    The data items with incorrect names have been corrected.
    

Temporary fix

  • FIX AVAILABLE BY PTF ONLY
    

Comments

APAR Information

  • APAR number

    PK89764

  • Reported component name

    CICS TS Z/OS V4

  • Reported component ID

    5655S9700

  • Reported release

    600

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2009-06-24

  • Closed date

    2009-07-24

  • Last modified date

    2009-08-03

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

    PK84632

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

    UK48703

Modules/Macros

  • DFHA17DS DFHD2GDS DFHD2RDS
    

Fix information

  • Fixed component name

    CICS TS Z/OS V4

  • Fixed component ID

    5655S9700

Applicable component levels

  • R602 PSY UK48703

       UP09/07/29 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.

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"4.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"4.1","Edition":"","Line of Business":{"code":"","label":""}}]

Document Information

Modified date:
03 August 2009