A fix is available
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:
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