APAR status
Closed as user error.
Error description
CICSVR/MVS V1R1M1 568508901 HGI1112 CICSVR is being used to forward recover several OV/MVS VSAM files. Several of these files get message DWW099E - SEVERE VSAM ERROR AT UPDATE OF dataset. VSAM REASON CODE WAS 108. Forward recovery for all files getting this error stopped after receiving the error. The sample user exit was changed so that VSAM Reason Code 108 would be bypassed, and all ADD's failed with the 108 failure. Testing showed that none of the updates for these files were done.
Local fix
Problem summary
The OV/MVS Calendar and AS files in question are defined to VSAM as having fixed-length records. That is the DEFINE CLUSTER parameters specify RECORDSIZE as being the same for both Average and Maximum lengths. Therefore, the user assumed the CICSVR RECOVER parameters should specify... FCTCOMP FCTNAME(......) RECFORM(FIXED) However, the sample OV/MVS FCT entries for these files did not specify RECFORM=FIXED, so CICS defaults to logging the after-image records with a 4-byte length in front. When CICSVR tries to add the record with a 4-byte longer length, VSAM returns Reason Code 108 (documented in the VSAM Administration: Macro Instruction Reference) meaning RECLEN specified was larger than the maximum allowed.
Problem conclusion
Even when a VSAM file is defined with Fixed-Length records, the CICSVR FCTCOMP RECFORM parameter must match how the RECFORM is defined in the FCT. In this case, . the RECOVER worked when the CICSVR FCTCOMP specified RECFORM(VARIABLE) . OV/MVS APARs OY63183 and OY62446 address the FCT coding, so that CICS logs the after-images as if the records are fixed-length.
Temporary fix
Comments
APAR Information
APAR number
II06997
Reported component name
PB LIB INFO ITE
Reported component ID
INFOPBLIB
Reported release
001
Status
CLOSED USE
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
1993-05-24
Closed date
1993-05-24
Last modified date
1993-08-18
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fix information
Applicable component levels
[{"Business Unit":{"code":null,"label":null},"Product":{"code":"SG19O","label":"APARs - MVS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU059","label":"IBM Software w\/o TPS"},"Product":{"code":"SSEPEK","label":"Db2 for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"LOB10","label":"Data and AI"}}]
Document Information
Modified date:
14 December 2020