Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

VSAM Read Error 92

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 268
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Fri Jun 21, 2013 7:46 pm    Post subject: VSAM Read Error 92
Reply with quote

Hi,

I have a VSAM file for which record layout has been recently changed. When I'm trying to dynamically read the file in a Cobol program it's returning the file status as 92, using the new VSAM file and copybooks, but with old file and old copybook it works just fine.

I'm not able to figure out what's wrong here. Looking for some direction here.


Code:
FILE-CONTROL.                                 
                                               
    SELECT TEST-FILE             ASSIGN INDD. 
                  ORGANIZATION IS INDEXED     
                  ACCESS MODE  IS DYNAMIC     
                  RECORD KEY IS TEST-FILE-KEY     
                  FILE STATUS IS TEST-FILE-STATUS. 

...............................................................................

...............................................................................

READ TEST-FILE  KEY IS TEST-FILE-KEY 
                                     
INVALID KEY                         
   DISPLAY 'READ STATUS CODE IS:' TEST-FILE-STATUS
                                     
NOT INVALID KEY                     
   DISPLAY 'READ STATUS CODE IS:' TEST-FILE-STATUS
                                   
END-READ.                           




Code:
LISTCAT output of the New VSAM:


Code:
1IDCAMS  SYSTEM SERVICES                                           TIME: 23:41:51        06/21/13     PAGE      1
0
     LISTCAT -
     ENTRIES(HLQ.TESTFILE) -
     ALL
0CLUSTER ------- HLQ.TESTFILE
      IN-CAT --- CATALOG.NMUSER01
      HISTORY
        DATASET-OWNER-----(NULL)     CREATION--------2013.166
        RELEASE----------------2     EXPIRATION------0000.000
      SMSDATA
        STORAGECLASS ----DEFAULT     MANAGEMENTCLASS--DEFAULT
        DATACLASS --------(NULL)     LBACKUP ---2013.167.2045
        EATTR-------------(NULL)
        BWO STATUS------00000000     BWO TIMESTAMP---00000 00:00:00.0
        BWO---------------(NULL)
      RLSDATA
        LOG ----------------(NULL)   RECOVERY REQUIRED --(NO)     FRLOG ------------(NULL)
        VSAM QUIESCED -------(NO)    RLS IN USE ---------(NO)
0       LOGSTREAMID-----------------------------(NULL)
        RECOVERY TIMESTAMP LOCAL-----X'0000000000000000'
        RECOVERY TIMESTAMP GMT-------X'0000000000000000'
      PROTECTION-PSWD-----(NULL)     RACF----------------(NO)
      ASSOCIATIONS
        DATA-----HLQ.TESTFILE.DATA
        INDEX----HLQ.TESTFILE.INDEX
        AIX------HLQ.TESTFILE.AIX
0   DATA ------- HLQ.TESTFILE.DATA
      IN-CAT --- CATALOG.NMUSER01
      HISTORY
        DATASET-OWNER-----(NULL)     CREATION--------2013.166
        RELEASE----------------2     EXPIRATION------0000.000
        ACCOUNT-INFO-----------------------------------(NULL)
      PROTECTION-PSWD-----(NULL)     RACF----------------(NO)
      ASSOCIATIONS
        CLUSTER--HLQ.TESTFILE
      ATTRIBUTES
        KEYLEN----------------58     AVGLRECL------------1000     BUFSPACE-----------26624     CISIZE-------------12288
        RKP--------------------0     MAXLRECL------------5200     EXCPEXIT----------(NULL)     CI/CA-----------------60
        SHROPTNS(2,3)      SPEED     UNIQUE           NOERASE     INDEXED       NOWRITECHK     NOIMBED       NOREPLICAT
        UNORDERED        NOREUSE     NONSPANNED
      STATISTICS  (* - VALUE MAY BE INCORRECT)
        REC-TOTAL----------10243*    SPLITS-CI-------------31*    EXCPS--------------29287*
        REC-DELETED-----------55*    SPLITS-CA--------------2*    EXTENTS----------------1
        REC-INSERTED---------198*    FREESPACE-%CI---------10     SYSTEM-TIMESTAMP:
        REC-UPDATED------------0*    FREESPACE-%CA---------10          X'CB8B92CFB1B17485'
        REC-RETRIEVED-----447103*    FREESPC---------60764160*
      ALLOCATION
        SPACE-TYPE------CYLINDER     HI-A-RBA--------73728000
1IDCAMS  SYSTEM SERVICES                                           TIME: 23:41:51        06/21/13     PAGE      2
0       SPACE-PRI------------100     HI-U-RBA--------16220160
        SPACE-SEC------------100
      VOLUME
        VOLSER------------SWAB21     PHYREC-SIZE--------12288     HI-A-RBA--------73728000     EXTENT-NUMBER----------1
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------4     HI-U-RBA--------16220160     EXTENT-TYPE--------X'40'
        VOLFLAG------------PRIME     TRACKS/CA-------------15
        EXTENTS:
        LOW-CCHH-----X'043C0000'     LOW-RBA----------------0     TRACKS--------------1500
        HIGH-CCHH----X'049F000E'     HIGH-RBA--------73727999
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
0   INDEX ------ HLQ.TESTFILE.INDEX
      IN-CAT --- CATALOG.NMUSER01
      HISTORY
        DATASET-OWNER-----(NULL)     CREATION--------2013.166
        RELEASE----------------2     EXPIRATION------0000.000
      PROTECTION-PSWD-----(NULL)     RACF----------------(NO)
      ASSOCIATIONS
        CLUSTER--HLQ.TESTFILE
      ATTRIBUTES
        KEYLEN----------------58     AVGLRECL---------------0     BUFSPACE---------------0     CISIZE--------------2048
        RKP--------------------0     MAXLRECL------------2041     EXCPEXIT----------(NULL)     CI/CA-----------------21
        SHROPTNS(2,3)   RECOVERY     UNIQUE           NOERASE     NOWRITECHK       NOIMBED     NOREPLICAT     UNORDERED
        NOREUSE
      STATISTICS  (* - VALUE MAY BE INCORRECT)
        REC-TOTAL-------------23*    SPLITS-CI--------------2*    EXCPS---------------3197*    INDEX:
        REC-DELETED------------0*    SPLITS-CA--------------0*    EXTENTS----------------1     LEVELS-----------------2
        REC-INSERTED-----------0*    FREESPACE-%CI----------0     SYSTEM-TIMESTAMP:            ENTRIES/SECT-----------7
        REC-UPDATED---------1110*    FREESPACE-%CA----------0          X'CB8B92CFB1B17485' SEQ-SET-RBA----------------0
        REC-RETRIEVED----------0*    FREESPC-----------167936*                             HI-LEVEL-RBA------------4096
      ALLOCATION
        SPACE-TYPE---------TRACK     HI-A-RBA----------215040
        SPACE-PRI--------------5     HI-U-RBA-----------47104
        SPACE-SEC--------------5
      VOLUME
        VOLSER------------SWAB21     PHYREC-SIZE---------2048     HI-A-RBA----------215040     EXTENT-NUMBER----------1
        DEVTYPE------X'3010200F'     PHYRECS/TRK-----------21     HI-U-RBA-----------47104     EXTENT-TYPE--------X'00'
        VOLFLAG------------PRIME     TRACKS/CA--------------1
        EXTENTS:
        LOW-CCHH-----X'00290001'     LOW-RBA----------------0     TRACKS-----------------5
1IDCAMS  SYSTEM SERVICES                                           TIME: 23:41:51        06/21/13     PAGE      3
0       HIGH-CCHH----X'00290005'     HIGH-RBA----------215039
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
1IDCAMS  SYSTEM SERVICES                                           TIME: 23:41:51        06/21/13     PAGE      4
0         THE NUMBER OF ENTRIES PROCESSED WAS:
                    AIX -------------------0
                    ALIAS -----------------0
                    CLUSTER ---------------1
                    DATA ------------------1
                    GDG -------------------0
                    INDEX -----------------1
                    NONVSAM ---------------0
                    PAGESPACE -------------0
                    PATH ------------------0
                    SPACE -----------------0
                    USERCATALOG -----------0
                    TAPELIBRARY -----------0
                    TAPEVOLUME ------------0
                    TOTAL -----------------3
0         THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
0IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0


LISTCAT output of the OLD VSAM file:

Code:
1IDCAMS  SYSTEM SERVICES                                           TIME: 23:52:09        06/21/13     PAGE      1
0
     LISTCAT -
     ENTRIES(HLQ.TESTFILE) -
     ALL
0CLUSTER ------- HLQ.TESTFILE
      IN-CAT --- CATALOG.NMPROD05
      HISTORY
        DATASET-OWNER-----(NULL)     CREATION--------2013.166
        RELEASE----------------2     EXPIRATION------0000.000
      SMSDATA
        STORAGECLASS ----DEFAULT     MANAGEMENTCLASS-PRDLNBKP
        DATACLASS -------DCXTEND     LBACKUP ---0000.000.0000
        EATTR-------------(NULL)
        BWO STATUS------00000000     BWO TIMESTAMP---00000 00:00:00.0
        BWO---------------(NULL)
      RLSDATA
        LOG ----------------(NULL)   RECOVERY REQUIRED --(NO)     FRLOG ------------(NULL)
        VSAM QUIESCED -------(NO)    RLS IN USE ---------(NO)
0       LOGSTREAMID-----------------------------(NULL)
        RECOVERY TIMESTAMP LOCAL-----X'0000000000000000'
        RECOVERY TIMESTAMP GMT-------X'0000000000000000'
      PROTECTION-PSWD-----(NULL)     RACF----------------(NO)
      ASSOCIATIONS
        DATA-----HLQ.TESTFILE.DATA
        INDEX----HLQ.TESTFILE.INDEX
        AIX------HLQ.TESTFILE.AIX
0   DATA ------- HLQ.TESTFILE.DATA
      IN-CAT --- CATALOG.NMPROD05
      HISTORY
        DATASET-OWNER-----(NULL)     CREATION--------2013.166
        RELEASE----------------2     EXPIRATION------0000.000
        ACCOUNT-INFO-----------------------------------(NULL)
      PROTECTION-PSWD-----(NULL)     RACF----------------(NO)
      ASSOCIATIONS
        CLUSTER--HLQ.TESTFILE
      ATTRIBUTES
        KEYLEN----------------58     AVGLRECL------------1000     BUFSPACE-----------26624     CISIZE-------------12288
        RKP--------------------0     MAXLRECL------------4300     EXCPEXIT----------(NULL)     CI/CA-----------------60
        STRIPE-COUNT-----------1
        SHROPTNS(2,3)      SPEED     UNIQUE           NOERASE     INDEXED       NOWRITECHK     NOIMBED       NOREPLICAT
        UNORDERED        NOREUSE     NONSPANNED      EXTENDED     EXT-ADDR
      STATISTICS
        REC-TOTAL--------2727254     SPLITS-CI-----------1204     EXCPS------------5166441
        REC-DELETED------------1     SPLITS-CA-------------27     EXTENTS----------------7
        REC-INSERTED--------5055     FREESPACE-%CI---------10     SYSTEM-TIMESTAMP:
        REC-UPDATED------------2     FREESPACE-%CA---------10          X'CB8BA58D1A294185'
        REC-RETRIEVED---16345560     FREESPC--------925114368
      ALLOCATION
1IDCAMS  SYSTEM SERVICES                                           TIME: 23:52:09        06/21/13     PAGE      2
0       SPACE-TYPE------CYLINDER     HI-A-RBA------8820817920
        SPACE-PRI-----------3988     HI-U-RBA------8789114880
        SPACE-SEC------------997
      VOLUME
        VOLSER------------H91A4D     PHYREC-SIZE--------12288     HI-A-RBA------5880545280     EXTENT-NUMBER----------4
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------4     HI-U-RBA------5880545280     EXTENT-TYPE--------X'40'
        VOLFLAG------------PRIME     TRACKS/CA-------------15
        EXTENTS:
        LOW-CCHH-----X'01B40000'     LOW-RBA----------------0     TRACKS-------------57645
        HIGH-CCHH----X'10B6000E'     HIGH-RBA------2833367039
        LOW-CCHH-----X'1A120000'     LOW-RBA-------2833367040     TRACKS-------------47040
        HIGH-CCHH----X'2651000E'     HIGH-RBA------5145477119
        LOW-CCHH-----X'166D0000'     LOW-RBA-------5145477120     TRACKS--------------9060
        HIGH-CCHH----X'18C8000E'     HIGH-RBA------5590794239
        LOW-CCHH-----X'11A30000'     LOW-RBA-------5590794240     TRACKS--------------5895
        HIGH-CCHH----X'132B000E'     HIGH-RBA------5880545279
      VOLUME
        VOLSER------------E90E83     PHYREC-SIZE--------12288     HI-A-RBA------8820817920     EXTENT-NUMBER----------3
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------4     HI-U-RBA------8789114880     EXTENT-TYPE--------X'40'
        VOLFLAG------------PRIME     TRACKS/CA-------------15
        EXTENTS:
        LOW-CCHH-----X'107F0000'     LOW-RBA-------5880545280     TRACKS--------------7530
        HIGH-CCHH----X'1274000E'     HIGH-RBA------6250659839
        LOW-CCHH-----X'18DF0000'     LOW-RBA-------6250659840     TRACKS-------------25485
        HIGH-CCHH----X'1F81000E'     HIGH-RBA------7503298559
        LOW-CCHH-----X'1F8B0000'     LOW-RBA-------7503298560     TRACKS-------------26805
        HIGH-CCHH----X'2685000E'     HIGH-RBA------8820817919
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
0   INDEX ------ HLQ.TESTFILE.INDEX
      IN-CAT --- CATALOG.NMPROD05
      HISTORY
        DATASET-OWNER-----(NULL)     CREATION--------2013.166
        RELEASE----------------2     EXPIRATION------0000.000
      PROTECTION-PSWD-----(NULL)     RACF----------------(NO)
      ASSOCIATIONS
        CLUSTER--HLQ.TESTFILE
      ATTRIBUTES
        KEYLEN----------------58     AVGLRECL---------------0     BUFSPACE---------------0     CISIZE--------------2048
        RKP--------------------0     MAXLRECL------------2041     EXCPEXIT----------(NULL)     CI/CA-----------------21
        SHROPTNS(2,3)   RECOVERY     UNIQUE           NOERASE     NOWRITECHK       NOIMBED     NOREPLICAT     UNORDERED
        NOREUSE         EXTENDED     EXT-ADDR
      STATISTICS
        REC-TOTAL----------12392     SPLITS-CI-------------27     EXCPS-------------820173     INDEX:
1IDCAMS  SYSTEM SERVICES                                           TIME: 23:52:09        06/21/13     PAGE      3
0       REC-DELETED------------0     SPLITS-CA------------468     EXTENTS----------------1     LEVELS-----------------4
        REC-INSERTED-----------0     FREESPACE-%CI----------0     SYSTEM-TIMESTAMP:            ENTRIES/SECT-----------7
        REC-UPDATED-------667329     FREESPACE-%CA----------0          X'CB8BA58D1A294185' SEQ-SET-RBA----------------0
        REC-RETRIEVED----------0     FREESPC----------1458176                              HI-LEVEL-RBA---------2846720
      ALLOCATION
        SPACE-TYPE---------TRACK     HI-A-RBA--------26836992
        SPACE-PRI------------192     HI-U-RBA--------25378816
        SPACE-SEC-------------48
      VOLUME
        VOLSER------------H91A4D     PHYREC-SIZE---------2048     HI-A-RBA--------26836992     EXTENT-NUMBER----------1
        DEVTYPE------X'3010200F'     PHYRECS/TRK-----------21     HI-U-RBA--------25378816     EXTENT-TYPE--------X'40'
        VOLFLAG------------PRIME     TRACKS/CA--------------1
        EXTENTS:
        LOW-CCHH-----X'00750006'     LOW-RBA----------------0     TRACKS---------------624
        HIGH-CCHH----X'009E000E'     HIGH-RBA--------26836991
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
      VOLUME
        VOLSER-----------------*     PHYREC-SIZE------------0     HI-A-RBA---------------0     EXTENT-NUMBER----------0
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------0     HI-U-RBA---------------0     EXTENT-TYPE--------X'FF'
        VOLFLAG--------CANDIDATE     TRACKS/CA--------------0
1IDCAMS  SYSTEM SERVICES                                           TIME: 23:52:09        06/21/13     PAGE      4
0         THE NUMBER OF ENTRIES PROCESSED WAS:
                    AIX -------------------0
                    ALIAS -----------------0
                    CLUSTER ---------------1
                    DATA ------------------1
                    GDG -------------------0
                    INDEX -----------------1
                    NONVSAM ---------------0
                    PAGESPACE -------------0
                    PATH ------------------0
                    SPACE -----------------0
                    USERCATALOG -----------0
                    TAPELIBRARY -----------0
                    TAPEVOLUME ------------0
                    TOTAL -----------------3
0         THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
0IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0


Sorry for the long post.
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7905
Location: Bellevue, IA

PostPosted: Fri Jun 21, 2013 8:06 pm    Post subject:
Reply with quote

What does the data map for TEST-FILE in the program compile output look like -- post only the first few lines?

Basically, a file status 92 could be several things, mostly related to your program, yet all you posted was the LISTCAT output which is almost useless in determining what the problem is.
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Fri Jun 21, 2013 8:15 pm    Post subject: Re: VSAM Read Error 92
Reply with quote

mistah kurtz wrote:

SELECT TEST-FILE ASSIGN INDD.


Why is there a period after INDD?
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Fri Jun 21, 2013 8:44 pm    Post subject:
Reply with quote

92 is a Logic Error.

Since your program worked with the old file the Listcats are very helpful.
The change I see is the variable-length of the file went from 1000-4300 to 1000-5200.

Change your program for the new maximum length of 5200.
Back to top
View user's profile Send private message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 268
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Fri Jun 21, 2013 10:08 pm    Post subject: Re: VSAM Read Error 92
Reply with quote

Robert Sample wrote:
What does the data map for TEST-FILE in the program compile output look like -- post only the first few lines?

Basically, a file status 92 could be several things, mostly related to your program, yet all you posted was the LISTCAT output which is almost useless in determining what the problem is.

Thanks Robert..I will post it on Monday..I thought I might be doing something wrong in VSAM recreation,i.e to Delete/Define it with new attributes and copy the old data from the existing VSAM as it is, as there will be programs which will be accessing it using old copybook structure. That's why I posted the LISTCAT.

Craq Giegerich wrote:
mistah kurtz wrote:

SELECT TEST-FILE ASSIGN INDD.


Why is there a period after INDD?

That was a typo..

Gary McDowell wrote:
92 is a Logic Error.

Since your program worked with the old file the Listcats are very helpful.
The change I see is the variable-length of the file went from 1000-4300 to 1000-5200.

Change your program for the new maximum length of 5200.

I'm using the new copybooks in my program to read it.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7905
Location: Bellevue, IA

PostPosted: Fri Jun 21, 2013 10:48 pm    Post subject:
Reply with quote

The logic error could indicate that your copy book coding does not total to 5200 bytes, hence the request to see the data map for the file. It shows how COBOL sees the file:
Code:
<--+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+---10----+---11----+---12----+---13---
OGRAM-ID READDCOL-----------------------------------------------------------------------------------------------------*
D DCOL-IN-FILE. . . . . . . . . . . . . . . . .                              QSAM            VB
  DCI-MIN-RECORD. . . . . . . . . . . . . . . . BLF=00000  000               DS 0CL24        Group
 2  DCI-RDW . . . . . . . . . . . . . . . . . . BLF=00000  000   0 000 000   DS 2C           Binary
 2  FILLER. . . . . . . . . . . . . . . . . . . BLF=00000  002   0 000 002   DS 2C           Display
 2  DCI-RECORD-TYPE . . . . . . . . . . . . . . BLF=00000  004   0 000 004   DS 2C           Display
 2  DCI-VERSION . . . . . . . . . . . . . . . . BLF=00000  006   0 000 006   DS 2C           Binary
 2  DCI-SYSID . . . . . . . . . . . . . . . . . BLF=00000  008   0 000 008   DS 4C           Display
 2  DCI-TIME. . . . . . . . . . . . . . . . . . BLF=00000  00C   0 000 00C   DS 4C           Binary
 2  DCI-DATE. . . . . . . . . . . . . . . . . . BLF=00000  010   0 000 010   DS 4P           Packed-Dec
 2  FILLER. . . . . . . . . . . . . . . . . . . BLF=00000  014   0 000 014   DS 4C           Display
  DCI-MAX-RECORD. . . . . . . . . . . . . . . . BLF=00000  000               DS 0CL2048      Group
 2  FILLER. . . . . . . . . . . . . . . . . . . BLF=00000  000   0 000 000   DS 2048C        Display
  DCI-VAR-RECORD. . . . . . . . . . . . . . . . BLF=00000  000               DS 0CL2048      Grp-VarLen
 2  DCI-DATA. . . . . . . . . . . . . . . . . . BLF=00000  000   0 000 000   DS 1C           Display        O
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Fri Jun 21, 2013 10:56 pm    Post subject:
Reply with quote

Interesting,
the old and new VSAM dataset is the same name; HLQ.TESTFILE and both created 06/15/2013.166 Saturday.

Are you sure you tested correctly?
- old copybooks with old format file
- new copybooks with new format file
Back to top
View user's profile Send private message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 268
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Fri Jun 21, 2013 11:13 pm    Post subject:
Reply with quote

Thanks Robert..I will check the data mapping. Hope to find some useful information there.


Gary McDowell wrote:
Interesting,
the old and new VSAM dataset is the same name; HLQ.TESTFILE and both created 06/15/2013.166 Saturday.

Are you sure you tested correctly?
- old copybooks with old format file
- new copybooks with new format file


Hi Gary..Yes I used the correct copybooks..The attributes of old VSAM I copied from Prod environment..and just to avoid the confusion, before posting here, I edited them with the same names.

Nevertheless, I will make sure again, before I run it next time. Thanks.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Fri Jun 21, 2013 11:40 pm    Post subject: Reply to: VSAM Read Error 92
Reply with quote

To get a more specific and precise status, other than just 92, add the enhanced file-status to the SELECT. It must be defined as a six-byte group, consisting of three elementary binary-halfwords, S9(04) COMP or COMP-5 (if supported), defined to WS.

Example -
Code:

FILE STATUS IS TEST-FILE-STATUS, TEST-FILE-STATUS-ENHANCED

03  TEST-FILE-STATUS-ENHANCED.
    05  TEST-FILE-STATUS-R15      PIC S9(04) COMP VALUE ZERO.
    05  TEST-FILE-STATUS-FUNCTION PIC S9(04) COMP VALUE ZERO.
    05  TEST-FILE-STATUS-FEEDBACK PIC S9(04) COMP VALUE ZERO.
Back to top
View user's profile Send private message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 268
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Sat Jun 22, 2013 3:32 pm    Post subject:
Reply with quote

Hi..I re-checked copybook layout lengths (there are more than one record layout defined) and found that the maximum length of the record layout was 5194.

I redfined my VSAM file with 5194 as maximum record size instead of 5200(which I initially thought would not make any difference)and now it's working fine.

Thank you all for your help and suggestions.:-)
Back to top
View user's profile Send private message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 268
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Sat Jun 22, 2013 3:37 pm    Post subject:
Reply with quote

Thanks Bill for that enhanced status code example. I was not aware of this.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7905
Location: Bellevue, IA

PostPosted: Sat Jun 22, 2013 4:24 pm    Post subject:
Reply with quote

Glad to hear that it is working now.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts BWO option in VSAM blayek CICS 3 Sat Nov 05, 2016 10:47 am
No new posts Error during restore rename archanamuthukrishnan All Other Mainframe Topics 2 Fri Oct 14, 2016 3:30 pm
No new posts Error IEC161I 052(009,XXXRS00)-084 wh... amitc23 JCL & VSAM 10 Wed Oct 12, 2016 5:00 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us