A fix is available
APAR status
Closed as program error.
Error description
The XFCAREQ and XCFAREQC exits the "resource signature" existence bits, and the corresponding FCIS_ADDRnn fields are not documented in the DFHFAUED DSECT.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Any CICS user coding a XFCAREQ or XFCAREQC * * exit. * **************************************************************** * PROBLEM DESCRIPTION: The DSECT DFHFAUED, which describes * * the command parameter list for exits * * XFCAREQ and XFCAREQC, does not contain * * definitions for the resource signature * * fields. * **************************************************************** * RECOMMENDATION: * **************************************************************** DSECT DFHFAUED describes the command parameter list passed to global user exits XFCAREQ and XFCAREQC. Although resource signature fields are supported on commands processed by these exits, neither existence bits nor addresses for these fields are defined in the DSECT. Definitions for the following fields are missing: DEFINESOURCE, INSTALLAGENT, INSTALLUSRid, CHANGEAGENT, CHANGEUSRID, CHANGEAGREL, DEFINTIME, CHANGETIME and INSTALLTIME.
Problem conclusion
DFHFAUED is updated to include existences bits and pointers to the resource signature fields. The CICS Transaction Server for z/OS, Version 4 Release 1 Customization Guide, SC34-7001-01 will be updated reflect the changes to command parameter list for the XFCAREQ and XFCAREQC exits. Chapter 1, Section 'File control EXEC interface SPI Exits XFCAREQ and XFACREQC' subsection 'The command-level parameter structure' beginning on page 112 will be changed as follows: Replace: "The command-level parameter list contains 58 addresses, FCIS_ADDR0 through FCIS_ADDR57. These are described in DSECT DFHFAUED, which you should copy into your program by including the statement COPY DFHFAUED." with: "The command-level parameter list contains 64 addresses, FCIS_ADDR0 through FCIS_ADDR63. These are described in DSECT DFHFAUED, which you should copy into your program by including the statement COPY DFHFAUED." For FCIS_BITS5, the following changes will be made: X'08' Set if the request contains an argument for the DEFINESOURCE keyword. If set, FCIS_ADDR37 is meaningful. X'04' Set if the request contains an argument for the INSTALLAGT keyword. If set, FCIS_ADDR38 is meaningful. X'02' Set if the request contains an argument for the INSTALLUSR keyword. If set, FCIS_ADDR39 is meaningful. X'01' Set if the request contains an argument for the CHANGEAGENT keyword. If set, FCIS_ADDR40 is meaningful. For FCIS_BITS8, the following changes will be made: X'20' Set if the request contains an argument for the CHANGEUSRID keyword. If set, FCIS_ADDR59 is meaningful. X'10' Set if the request contains an argument for the CHANGEAGREL keyword. If set, FCIS_ADDR60 is meaningful. X'08' Set if the request contains an argument for the DEFINETIME keyword. If set, FCIS_ADDR61 is meaningful. X'04' Set if the request contains an argument for the CHANGETIME keyword. If set, FCIS_ADDR62 is meaningful. X'02' Set if the request contains an argument for the INSTALLTIME keyword. If set, FCIS_ADDR63 is meaningful. The following will be added after FCIS_ADDR36 FCIS_ADDR37 is the address of a 8-byte area containing the data from DEFINESOURCE. FCIS_ADDR38 is the address of a 4-byte area containing the CVDA from INSTALLAGENT. FCIS_ADDR39 is the address of a 8-byte area containing the data from INSTALLUSRID. FCIS_ADDR40 is the address of a 4-byte area containing the CVDA from CHANGEAGENT. The following will be changed: "FCIS_ADDR37 to FCIS_ADDR51 are not used by file control" to: "FCIS_ADDR41 to FCIS_ADDR51 are not used by file control" The following will be added after FCIS_ADDR57: FCIS_ADDR58 is the address of a 4-byte area containing the CVDA from RBATYPE. FCIS_ADDR59 is the address of a 8-byte area containing the data from CHANGEUSRID. FCIS_ADDR60 is the address of a 4-byte area containing the data from CHANGEAGREL. FCIS_ADDR61 is the address of a 8-byte area containing the data from DEFINETIME. FCIS_ADDR62 is the address of a 8-byte area containing the data from CHANGETIME. FCIS_ADDR63 is the address of a 8-byte area containing the data from INSTALLTIME. The following rows will be added to table 6: Argument Keyword Data type Input/Output Arg37 DEFINESOURCE CHAR(8) Output Arg38 INSTALLAGENT BIN(31) Output Arg39 INSTALLUSRID CHAR(8) Output Arg40 CHANGEAGENT BIN(31) Output Arg58 RBATYPE BIN(31) Output Arg59 CHANGEUSRID CHAR(8) Output Arg60 CHANGEAGREL BIN(31) Output Arg61 DEFINETIME CHAR(8) Output Arg62 CHANGETIME CHAR(8) Output Arg63 INSTALLTIME CHAR(8) Output The following rows will be added to table 7: Argument Keyword Data type Input/Output Arg37 * * * Arg38 * * * Arg39 * * * Arg40 * * * Arg58 * * * Arg59 * * * Arg60 * * * Arg61 * * * Arg62 * * * Arg63 * * * In the section 'Modifying the EID' the following bullet: "The bits for the START, NEXT, and END keywords." will changed to: "The bits for the START, NEXT, END, DEFINESOURCE, INSTALLAGENT, INSTALLUSRID and CHANGEAGENT keywords." Similar updates will be made to the CICS Transaction Server for z/OS, Version 4 Release 2 Customization Guide, SC34-7161-00.
Temporary fix
CICS AR600 ++ APAR (AM44184). ++ VER (C150) FMID(HCI6600). ++ MACUPD (DFHFAUED) DISTLIB(ADFHMAC) SYSLIB(SDFHMAC) /* MODULE: DFHFAUED --- TYPE: COPY */. ./ CHANGE NAME=DFHFAUED,SEQFLD=738 * of 64 contiguous addresses. On a specific 00371000 * with an area of 64 contiguous addresses, s 00411000 * The 64 addresses are defined by FC_ADDR0 t 00441000 * FC_ADDR63. 00446000 * This DSECT defines FC_ADDR0 to FC_ADDR63 a 00471000 * FCIS_ADDR_LIST defines the 64 addresses, that f 01281000 * FCIS_ADDR1 to FCIS_ADDR64 may be modified by th 01341000 FCIS_ADDR37 DS A Address 37 @BA44184 01761000 FCIS_ADDR38 DS A Address 38 @BA44184 01771000 FCIS_ADDR39 DS A Address 39 @BA44184 01781000 FCIS_ADDR40 DS A Address 40 @BA44184 01791000 FCIS_ADDR59 DS A Address 59 @BA44184 01909300 FCIS_ADDR60 DS A Address 60 @BA44184 01909600 FCIS_ADDR61 DS A Address 61 @BA44184 01909900 FCIS_ADDR62 DS A Address 62 @BA44184 01910200 FCIS_ADDR63 DS A Address 63 @BA44184 01910500 * - the bits corresponding to the keywords ST 02071000 * END, DEFSOURCE, INSTALLAGT, INSTALLUSR an 02076000 FCIS_EXIST37 EQU X'08' FCIS_ADDR37 is valid. The @BA44184*03741000 command specified @BA44184*03743000 DEFSOURCE. May not be @BA44184*03745000 modified by the user exit. @BA44184 03747000 FCIS_EXIST38 EQU X'04' FCIS_ADDR38 is valid. The @BA44184*03751000 command specified @BA44184*03753000 INSTALLAGT. May not be @BA44184*03755000 modified by the user exit. @BA44184 03757000 FCIS_EXIST39 EQU X'02' FCIS_ADDR39 is valid. The @BA44184*03761000 command specified @BA44184*03763000 INSTALLUSR. May not be @BA44184*03765000 modified by the user exit. @BA44184 03767000 FCIS_EXIST40 EQU X'01' FCIS_ADDR40 is valid. The @BA44184*03771000 command specified @BA44184*03773000 CHANGEAGT. May not be @BA44184*03775000 modified by the user exit. @BA44184 03777000 FCIS_EXIST59 EQU X'20' FCIS_ADDR59 is valid. The @BA44184*04180040 command specified @BA44184*04180080 CHANGEUSR. May not be @BA44184*04180120 modified by the user exit. @BA44184 04180160 FCIS_EXIST60 EQU X'10' FCIS_ADDR60 is valid. The @BA44184*04180200 command specified @BA44184*04180240 CHANGEAGREL. May not be @BA44184*04180280 modified by the user exit. @BA44184 04180320 FCIS_EXIST61 EQU X'08' FCIS_ADDR61 is valid. The @BA44184*04180360 command specified @BA44184*04180400 DEFINETIME. May not be @BA44184*04180440 modified by the user exit. @BA44184 04180480 FCIS_EXIST62 EQU X'04' FCIS_ADDR62 is valid. The @BA44184*04180520 command specified @BA44184*04180560 CHANGETIME. May not be @BA44184*04180600 modified by the user exit. @BA44184 04180640 FCIS_EXIST63 EQU X'02' FCIS_ADDR63 is valid. The @BA44184*04180680 command specified @BA44184*04180720 INSTALLTIME. May not be @BA44184*04180760 modified by the user exit. @BA44184 04180800 * 06711300 * FCIS_ADDR37 addresses DEFSOURCE 06711600 * 06711900 SPACE 1 @BA44184 06712200 FCIS_DATA37 DSECT Addressed by FCIS_ADDR37 @BA44184 06712500 FCIS_DEFSOURCE DS CL8 Area For DEFSOURCE @BA44184 06712800 SPACE 2 @BA44184 06713100 * 06713400 * FCIS_ADDR38 addresses INSTALLAGT 06713700 * 06714000 SPACE 1 @BA44184 06714300 FCIS_DATA38 DSECT Addressed by FCIS_ADDR38 @BA44184 06714600 FCIS_INSTALLAGT DS F Area For INSTALLAGT @BA44184 06714900 SPACE 2 @BA44184 06715200 * 06715500 * FCIS_ADDR39 addresses INSTALLUSR 06715800 * 06716100 SPACE 1 @BA44184 06716400 FCIS_DATA39 DSECT Addressed by FCIS_ADDR39 @BA44184 06716700 FCIS_INSTALLUSR DS CL8 Area For INSTALLUSR @BA44184 06717000 SPACE 2 @BA44184 06717300 * 06717600 * FCIS_ADDR40 addresses CHANGEAGT 06717900 * 06718200 SPACE 1 @BA44184 06718500 FCIS_DATA40 DSECT Addressed by FCIS_ADDR40 @BA44184 06718800 FCIS_CHANGEAGT DS F Area For CHANGEAGT @BA44184 06719100 SPACE 2 @BA44184 06719400 * FCIS_ADDR41 to FCIS_ADDR51 are not used by F 06731000 * 06790510 * FCIS_ADDR59 addresses CHANGEUSR 06790520 * 06790530 SPACE 1 @BA44184 06790540 FCIS_DATA59 DSECT Addressed by FCIS_ADDR59 @BA44184 06790550 FCIS_CHANGEUSR DS CL8 Area For CHANGEUSR @BA44184 06790560 SPACE 2 @BA44184 06790570 * 06790580 * FCIS_ADDR60 addresses CHANGEAGREL 06790590 * 06790600 SPACE 1 @BA44184 06790610 FCIS_DATA60 DSECT Addressed by FCIS_ADDR60 @BA44184 06790620 FCIS_CHANGEAGREL DS CL4 Area For CHANGEAGREL @BA44184 06790630 SPACE 2 @BA44184 06790640 * 06790650 * FCIS_ADDR61 addresses DEFINETIME 06790660 * 06790670 SPACE 1 @BA44184 06790680 FCIS_DATA61 DSECT Addressed by FCIS_ADDR61 @BA44184 06790690 FCIS_DEFINETIME DS CL8 Area For DEFINETIME @BA44184 06790700 SPACE 2 @BA44184 06790710 * 06790720 * FCIS_ADDR62 addresses CHANGETIME 06790730 * 06790740 SPACE 1 @BA44184 06790750 FCIS_DATA62 DSECT Addressed by FCIS_ADDR62 @BA44184 06790760 FCIS_CHANGETIME DS CL8 Area For CHANGETIME @BA44184 06790770 SPACE 2 @BA44184 06790780 * 06790790 * FCIS_ADDR63 addresses INSTALLTIME 06790800 * 06790810 SPACE 1 @BA44184 06790820 FCIS_DATA63 DSECT Addressed by FCIS_ADDR63 @BA44184 06790830 FCIS_INSTALLTIME DS CL8 Area For INSTALLTIME @BA44184 06790840 SPACE 2 @BA44184 06790850 ./ ENDUP
Comments
APAR Information
APAR number
PM44184
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
2011-07-21
Closed date
2011-09-13
Last modified date
2011-10-03
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK71898 UK71899
Modules/Macros
DFHFAUED
| SC34700101 | SC34716100 |
Fix information
Fixed component name
CICS TS Z/OS V4
Fixed component ID
5655S9700
Applicable component levels
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 October 2011