A fix is available
APAR status
Closed as program error.
Error description
Attempting a ACB member online change results in message DFS0651W ERROR 07 READING IN TO FW157ML FROM ACBLIB PSB was changed from having DB/GSAM PCBs to only having GSAM PCBs when the error was encountered.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: ALL IMS V12 users of member online change. * **************************************************************** * PROBLEM DESCRIPTION: MSGDFS0651W error 7 occurs during IMS * * initialization and/or scheduling of a * * PSB that is changed using member online * * change. The problem occurs when * * changing a PSB from containing DBPCBs * * to containing no DBPCBs. * **************************************************************** * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF * **************************************************************** DFS0651W validation error 07 occurs during scheduling of a PSB or during IMS initialization after changing a PSB from containing DBPCBs to containing no DBPCBs using member online change ( MOLC ). During MOLC commit phase code in module DFSMOLS0 routine COPY copies the changed members from the staging ACBLIB to the active ACBLIB. A PSB with no DBPCBs contains one record. An attempt to read the second record of the PSB that contains no DBPCBs from the staging ACBLIB code after label COPY0400 detects the end of the member. When the end of the member is detected SYNAD exit EODAD is driven during the CHECK macro and a branch is made to label COPYEOD. As a result of branching to routine COPYEOD the TTR of the previous PSBs intent list is residual in field MOWTTRI. Code after label COPY0600 moves the TTR of the current PSB and the intent list TTR of the prior PSB to field MBRTTR and MBRTTRI respectively. Since field MOWTTRI is not cleared the TTR of the prior PSBs intent list is stored into the PDS BLDL member list field MBRTTRI. Further in the commit phase code in routine REFRPDIR is called to refresh the PDIRs that underwent a change. After label PTTR350 the TTR of the prior PSBs intent list is stored from the PDS BLDL list into PDIRDMBS. When the PSB is scheduled or is being loaded during IMS initialization the PSB and intent list are read from the active ACBLIB. The incorrect TTR value in PDIRDMBS is used to read the intent list from the active ACBLIB into the ACB I/O area. During IMS initialization in module DFSXRBLI after label XRBB0020 and/or during PSB scheduling in module DFSDBLI0 after label DBLI0020 a compare is made between the intent list length in PDIR field PDIRBFR with the value at offset zero into the ACB I/O area. Since an invalid TTR value is used to read a record from the ACBLIB and is used as an intent list the size in the PDIR and the size at offset zero do not match. As a result DFS0651W validation error 07 will occur. Additional keywords: INIT OLC PHASE(PREPARE) TYPE(ACBMBR) INIT OLC PHASE(COMMIT)
Problem conclusion
GEN: KEYWORDS: *** END IMS KEYWORDS *** ************ * DFSMOLS0 * ************ Code has been added to module DFSMOLS0 in routine COPY after label COPY0600 to clear field MOWTTRI of the intent list TTR value.
Temporary fix
********* * HIPER * *********
Comments
APAR Information
APAR number
PM91721
Reported component name
IMS V12
Reported component ID
5635A0300
Reported release
200
Status
CLOSED PER
PE
NoPE
HIPER
YesHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2013-06-24
Closed date
2013-07-09
Last modified date
2013-08-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK95700
Modules/Macros
DFSMOLS0
Fix information
Fixed component name
IMS V12
Fixed component ID
5635A0300
Applicable component levels
R200 PSY UK95700
UP13/07/12 P F307 ¢
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":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Platform":[{"code":"PF054","label":"z Systems"}],"Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
14 December 2020