Question & Answer
Question
REPRO of a VSAM KSDS to a sequential file receives: IEC161I 037(050,006,IGG0CLE0)-003 IDC3351I ** VSAM OPEN RETURN CODE IS 148
Cause
REPRO of a VSAM KSDS to a sequential file receives:
IEC161I 037(050,006,IGG0CLE0)-003
IDC3351I ** VSAM OPEN RETURN CODE IS 148
A LISTCAT ENT(VSAM.CLUSTER) ALL fails with the messages below when attempting to list the DATA component information from the VVDS:
IDC3014I CATALOG ERROR
IDC3009I ** VSAM CATALOG RETURN CODE IS 50 - REASON CODE IS IGG0CLE0-6
A DFDSS print of the VVDS showed the DATA component of the VSAM CLUSTER to be missing. If either the DATA or the INDEX component is missing or corrupted then this situation could occur.
//DFDSSPR JOB ....
//PRINT EXEC PGM=ADRDSSU,REGION=4M
//IN DD UNIT=3380,VOL=SER=338001,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
PRINT DATASET(SYS1.VVDS.V338001) -
INDD(IN)
/*
NOTE: Problem could apply to any REPRO where a VVR is missing
IDCAMS DIAGNOSE can be run to confirm missing or corrupt VVDS entry.
//DIAGNOSE JOB.....
//CATALOG EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DIAGNOSE ICFCATALOG INDATASET(SYS1.USER.CAT) -
COMPAREDS(SYS1.VVDS.V338001)
DIAGNOSE VVDS IDS(SYS1.VVDS.V338001) -
COMPAREDS(SYS1.USER.CAT)
The following message indicates that there is an entry in the catalog for VSAM.CLUSTER.DATA yet no matching entry in the VVDS
IDC21364I ERROR DETECTED BY DIAGNOSE:
ICFCAT ENTRY: VSAM.CLUSTER.DATA (D)
RECORD: VSAM.CLUSTER /00
OFFSET: X'007A'
REASON: 51 - VVDS ENTRY NOT FOUND. SCAN VVDS FAILED.
If the data component were corrupted in the VVDS the following message indicating the VVR does not match the VTOC entry of VSAM.CLUSTER.DATA could be issued.
IDC21364I ERROR DETECTED BY DIAGNOSE:
VVDS ENTRY: VSAM.CLUSTER.DEAD (Z)
RECORD: X'00002000'
OFFSET: X'0002'
REASON: 17 - VTOC ENTRY NOT FOUND
IEC161I 037(050,006,IGG0CLE0)-003
IDC3351I ** VSAM OPEN RETURN CODE IS 148
A LISTCAT ENT(VSAM.CLUSTER) ALL fails with the messages below when attempting to list the DATA component information from the VVDS:
IDC3014I CATALOG ERROR
IDC3009I ** VSAM CATALOG RETURN CODE IS 50 - REASON CODE IS IGG0CLE0-6
A DFDSS print of the VVDS showed the DATA component of the VSAM CLUSTER to be missing. If either the DATA or the INDEX component is missing or corrupted then this situation could occur.
//DFDSSPR JOB ....
//PRINT EXEC PGM=ADRDSSU,REGION=4M
//IN DD UNIT=3380,VOL=SER=338001,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
PRINT DATASET(SYS1.VVDS.V338001) -
INDD(IN)
/*
NOTE: Problem could apply to any REPRO where a VVR is missing
IDCAMS DIAGNOSE can be run to confirm missing or corrupt VVDS entry.
//DIAGNOSE JOB.....
//CATALOG EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DIAGNOSE ICFCATALOG INDATASET(SYS1.USER.CAT) -
COMPAREDS(SYS1.VVDS.V338001)
DIAGNOSE VVDS IDS(SYS1.VVDS.V338001) -
COMPAREDS(SYS1.USER.CAT)
The following message indicates that there is an entry in the catalog for VSAM.CLUSTER.DATA yet no matching entry in the VVDS
IDC21364I ERROR DETECTED BY DIAGNOSE:
ICFCAT ENTRY: VSAM.CLUSTER.DATA (D)
RECORD: VSAM.CLUSTER /00
OFFSET: X'007A'
REASON: 51 - VVDS ENTRY NOT FOUND. SCAN VVDS FAILED.
If the data component were corrupted in the VVDS the following message indicating the VVR does not match the VTOC entry of VSAM.CLUSTER.DATA could be issued.
IDC21364I ERROR DETECTED BY DIAGNOSE:
VVDS ENTRY: VSAM.CLUSTER.DEAD (Z)
RECORD: X'00002000'
OFFSET: X'0002'
REASON: 17 - VTOC ENTRY NOT FOUND
Answer
Issue DELETE NOSCRATCH on the CLUSTER name then a DELETE VVR on the DATA or INDEX component.
If it is the INDEX VVR corrupted or missing, the CLUSTER can be rebuilt by a REPRO of the DATA component to
a sequential file, Then DELETE and reDEFINE of the KSDS and a REPRO of the sequential file back into the KSDS
//REPRO JOB ....
//CLUSTER EXEC PGM=IDCAMS,REGION=4M
//SYSPRINT DD SYSOUT=A
//DD1 DD DSN=FLAT.FILE,SPACE=(TRK,(3)),
// DISP=(NEW,CATLG,DELETE),VOL=SER=338001,
// DSORG=PS,DCB=(LRECL=80,BLKSIZE=80,RECFM=FB)
//SYSIN DD *
REPRO IDS('VSAM.CLUSTER.DATA') OUTFILE(DD1)
/*
DFSMS/MVS Access Method Services
DEFINE CLUSTER
DELETE
DIAGNOSE
REPRO
If it is the INDEX VVR corrupted or missing, the CLUSTER can be rebuilt by a REPRO of the DATA component to
a sequential file, Then DELETE and reDEFINE of the KSDS and a REPRO of the sequential file back into the KSDS
//REPRO JOB ....
//CLUSTER EXEC PGM=IDCAMS,REGION=4M
//SYSPRINT DD SYSOUT=A
//DD1 DD DSN=FLAT.FILE,SPACE=(TRK,(3)),
// DISP=(NEW,CATLG,DELETE),VOL=SER=338001,
// DSORG=PS,DCB=(LRECL=80,BLKSIZE=80,RECFM=FB)
//SYSIN DD *
REPRO IDS('VSAM.CLUSTER.DATA') OUTFILE(DD1)
/*
DFSMS/MVS Access Method Services
DEFINE CLUSTER
DELETE
DIAGNOSE
REPRO
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SWG90","label":"z\/OS"},"Component":"5695DF103 - DFSMS ACCESS METHOD SERVICES","Platform":[{"code":"PF035","label":"z\/OS"}],"Version":"1.1;1.2;1.3;1.4;1.5;1.6;1.7;1.8;1.9;1.10;1.11;1.12;1.13;2.1;2.2;2.3;2.4","Edition":"","Line of Business":{"code":"LOB56","label":"Z HW"}}]
Historical Number
8533207
Was this topic helpful?
Document Information
Modified date:
03 September 2021
UID
isg3S1000758