IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Help in Abend - File Status - 92


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
nelson.pandian

Active User


Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ

PostPosted: Thu Oct 07, 2010 12:47 pm
Reply with quote

Hi,

I'm getting file status 92 when i try to do below operation (read a VB - VSAM file).
Code:
READ FRASM-FILE INTO WS-FRASM2-REC KEY IS FRASM2-IN-KEY

My File status details are as follows.
Quote:
FILE STATUS IS : 92
EXTENDED VSAM STATUS:
EXT VSAM RETURN CODE:0008
EXT VSAM FUNCTION CD:0000
EXT VSAM FEEDBACK CD:0044
FRASM2-IN-KEY : M87520017032

Explanation of FEEDBACK code from from Mainframe Forum is
Quote:
44(X'2C')
Work area not large enough for the data record or
for the buffer (GET with OPTCD=MVE).

I'm sure that if we increase the buffer space, we can solve this issue. But I'm not sure how to increase buffer space. Can any one help me in solving this issue?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Thu Oct 07, 2010 4:44 pm
Reply with quote

What does the IDCAMS LISTCAT show for the VSAM FILE? What does the COBOL FD look like for this file?
Back to top
View user's profile Send private message
nelson.pandian

Active User


Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ

PostPosted: Thu Oct 07, 2010 5:07 pm
Reply with quote

Hi Robert,

Thanks for the reply.

My Assign class and FD section is as follows.
Code:
SELECT FRASM-FILE                   
       ASSIGN       TO QIMAST01     
       ORGANIZATION IS INDEXED       
       ACCESS MODE  IS RANDOM       
       RECORD KEY   IS FRASM2-IN-KEY
       FILE STATUS  IS FRASM-FILE-ST.
.
.
FD  FRASM-FILE.                             
01  FRASM2-REC.                             
    05 FRASM2-IN-KEY                 PIC X(12).

LISTCAT entry is as follows.

Code:
1IDCAMS  SYSTEM SERVICES                                           TIME: 04:28:23        10/07/10     PAGE      1
0
   LISTCAT ALL ENTRIES(PCLM.VOPX.FRASM)                                  00009014
0CLUSTER ------- PCLM.VOPX.FRASM
      IN-CAT --- CATALOG.USERICF.PCLM
      HISTORY
        DATASET-OWNER-----(NULL)     CREATION--------2010.276
        RELEASE----------------2     EXPIRATION------0000.000
      SMSDATA
        STORAGECLASS -----SCPROD     MANAGEMENTCLASS-MCNOMIG2
        DATACLASS ------DCKSDSEA     LBACKUP ---0000.000.0000
        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-----PCLM.VOPX.FRASM.DATA
        INDEX----PCLM.VOPX.FRASM.INDEX
0   DATA ------- PCLM.VOPX.FRASM.DATA
      IN-CAT --- CATALOG.USERICF.PCLM
      HISTORY
        DATASET-OWNER-----(NULL)     CREATION--------2010.276
        RELEASE----------------2     EXPIRATION------0000.000
        ACCOUNT-INFO-----------------------------------(NULL)
      PROTECTION-PSWD-----(NULL)     RACF----------------(NO)
      ASSOCIATIONS
        CLUSTER--PCLM.VOPX.FRASM
      ATTRIBUTES
        KEYLEN----------------12     AVGLRECL-------------325     BUFSPACE-----------17920     CISIZE--------------8192
        RKP--------------------0     MAXLRECL-------------570     EXCPEXIT----------(NULL)     CI/CA-----------------90
        STRIPE-COUNT-----------1
        SHROPTNS(2,3)   RECOVERY     UNIQUE           NOERASE     INDEXED       NOWRITECHK     NOIMBED       NOREPLICAT
        UNORDERED        NOREUSE     NONSPANNED      EXTENDED     EXT-ADDR
      STATISTICS
        REC-TOTAL--------7577960     SPLITS-CI------------146     EXCPS-------------632724
        REC-DELETED------------0     SPLITS-CA--------------2     EXTENTS----------------6
        REC-INSERTED--------6366     FREESPACE-%CI---------19     SYSTEM-TIMESTAMP:
        REC-UPDATED---------8687     FREESPACE-%CA----------7          X'C6B1138E6F83E004'
        REC-RETRIEVED---71720426     FREESPC--------442646528
      ALLOCATION
        SPACE-TYPE------CYLINDER     HI-A-RBA------5308416000
        SPACE-PRI------------300     HI-U-RBA------5214044160
        SPACE-SEC------------300
      VOLUME
1IDCAMS  SYSTEM SERVICES                                           TIME: 04:28:23        10/07/10     PAGE      2
0       VOLSER------------PLVS19     PHYREC-SIZE---------8192     HI-A-RBA-------442368000     EXTENT-NUMBER----------2
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------6     HI-U-RBA-------442368000     EXTENT-TYPE--------X'40'
        VOLFLAG------------PRIME     TRACKS/CA-------------15
        EXTENTS:
        LOW-CCHH-----X'08E90000'     LOW-RBA----------------0     TRACKS--------------4500
        HIGH-CCHH----X'0A14000E'     HIGH-RBA-------221183999
        LOW-CCHH-----X'0A1F0000'     LOW-RBA--------221184000     TRACKS--------------4500
        HIGH-CCHH----X'0B4A000E'     HIGH-RBA-------442367999
      VOLUME
        VOLSER------------PLVS40     PHYREC-SIZE---------8192     HI-A-RBA------2875392000     EXTENT-NUMBER----------1
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------6     HI-U-RBA------2875392000     EXTENT-TYPE--------X'40'
        VOLFLAG------------PRIME     TRACKS/CA-------------15
        EXTENTS:
        LOW-CCHH-----X'00050000'     LOW-RBA--------442368000     TRACKS-------------49500
        HIGH-CCHH----X'0CE8000E'     HIGH-RBA------2875391999
      VOLUME
        VOLSER------------PLVS61     PHYREC-SIZE---------8192     HI-A-RBA------3317760000     EXTENT-NUMBER----------1
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------6     HI-U-RBA------3317760000     EXTENT-TYPE--------X'40'
        VOLFLAG------------PRIME     TRACKS/CA-------------15
        EXTENTS:
        LOW-CCHH-----X'09D30000'     LOW-RBA-------2875392000     TRACKS--------------9000
        HIGH-CCHH----X'0C2A000E'     HIGH-RBA------3317759999
      VOLUME
        VOLSER------------PLVS02     PHYREC-SIZE---------8192     HI-A-RBA------4866048000     EXTENT-NUMBER----------1
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------6     HI-U-RBA------4866048000     EXTENT-TYPE--------X'40'
        VOLFLAG------------PRIME     TRACKS/CA-------------15
        EXTENTS:
        LOW-CCHH-----X'04530000'     LOW-RBA-------3317760000     TRACKS-------------31500
        HIGH-CCHH----X'0C86000E'     HIGH-RBA------4866047999
      VOLUME
        VOLSER------------PLVS07     PHYREC-SIZE---------8192     HI-A-RBA------5308416000     EXTENT-NUMBER----------1
        DEVTYPE------X'3010200F'     PHYRECS/TRK------------6     HI-U-RBA------5214044160     EXTENT-TYPE--------X'40'
        VOLFLAG------------PRIME     TRACKS/CA-------------15
        EXTENTS:
        LOW-CCHH-----X'09580000'     LOW-RBA-------4866048000     TRACKS--------------9000
        HIGH-CCHH----X'0BAF000E'     HIGH-RBA------5308415999
      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
      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'
1IDCAMS  SYSTEM SERVICES                                           TIME: 04:28:23        10/07/10     PAGE      3
0       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 ------ PCLM.VOPX.FRASM.INDEX
      IN-CAT --- CATALOG.USERICF.PCLM
      HISTORY
        DATASET-OWNER-----(NULL)     CREATION--------2010.276
        RELEASE----------------2     EXPIRATION------0000.000
      PROTECTION-PSWD-----(NULL)     RACF----------------(NO)
      ASSOCIATIONS
        CLUSTER--PCLM.VOPX.FRASM
      ATTRIBUTES
        KEYLEN----------------12     AVGLRECL---------------0     BUFSPACE---------------0     CISIZE--------------1536
        RKP--------------------0     MAXLRECL------------1529     EXCPEXIT----------(NULL)     CI/CA-----------------25
        SHROPTNS(2,3)   RECOVERY     UNIQUE           NOERASE     NOWRITECHK       NOIMBED     NOREPLICAT     UNORDERED
        NOREUSE         EXTENDED     EXT-ADDR
      STATISTICS
        REC-TOTAL-----------7132     SPLITS-CI--------------2     EXCPS-------------152238     INDEX:
        REC-DELETED------------0     SPLITS-CA--------------1     EXTENTS----------------2     LEVELS-----------------3
        REC-INSERTED-----------0     FREESPACE-%CI----------0     SYSTEM-TIMESTAMP:            ENTRIES/SECT-----------9
        REC-UPDATED----------156     FREESPACE-%CA----------0          X'C6B1138E6F83E004'     SEQ-SET-RBA------------0
        REC-RETRIEVED----------0     FREESPC-----------565248                                  HI-LEVEL-RBA------205824
      ALLOCATION
        SPACE-TYPE------CYLINDER     HI-A-RBA--------11520000
        SPACE-PRI-------------10     HI-U-RBA--------10954752
        SPACE-SEC--------------1
      VOLUME
        VOLSER------------PLVS19     PHYREC-SIZE---------1536     HI-A-RBA--------11520000     EXTENT-NUMBER----------2
        DEVTYPE------X'3010200F'     PHYRECS/TRK-----------25     HI-U-RBA--------10954752     EXTENT-TYPE--------X'40'
        VOLFLAG------------PRIME     TRACKS/CA--------------1
        EXTENTS:
        LOW-CCHH-----X'0A150000'     LOW-RBA----------------0     TRACKS---------------150
        HIGH-CCHH----X'0A1E000E'     HIGH-RBA---------5759999
        LOW-CCHH-----X'0B4B0000'     LOW-RBA----------5760000     TRACKS---------------150
        HIGH-CCHH----X'0B54000E'     HIGH-RBA--------11519999
      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
      VOLUME
1IDCAMS  SYSTEM SERVICES                                           TIME: 04:28:23        10/07/10     PAGE      4
0       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: 04:28:23        10/07/10     PAGE      5
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
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Thu Oct 07, 2010 5:16 pm
Reply with quote

If that is your entire FD, then no wonder the program failed. Your average record length according to the LISTCAT is 325 bytes with a maximum of 570 bytes. You need at least one 01 in the FD with a record length of 570 total bytes defined under it to allow the record to be successfully read. Since the file is variable length, you also need either multiple 01 variables in the FD with different record lengths or an OCCURS DEPENDING ON to denote the variable length records. I would also recommend RECORDING MODE V in the FILE SECTION description of the file.
Back to top
View user's profile Send private message
nelson.pandian

Active User


Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ

PostPosted: Thu Oct 07, 2010 5:22 pm
Reply with quote

Hi Robert,

Sorry its my mistake for the wrong FD section. The below one is the FD used in my program.
Code:
FD  FRASM-FILE.                                       
01  FRASM2-REC.                                       
    05 FRASM2-IN-KEY.                                 
       10 FRASM2-IN-CLM-NO        PIC X(09).         
       10 FRASM2-IN-SFX-NO        PIC 9(02).         
       10 FRASM2-IN-RCD-TYP       PIC X(01) VALUE '2'.
    05 FILLER                     PIC X(338).         


One more thing to your notice. I'm not getting this FILE STATUS 92 in all my runs. Once if i get file status 92, and run it again its passing with Return code 0. For some times i need to run 2 to 3 times to get Return code 0.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Thu Oct 07, 2010 5:27 pm
Reply with quote

Obviously, there are times you are running and your program is attempting to return a record longer than 350 bytes. This will cause a file status 92 since your FD does not allow the full 570 bytes to be provided to the program.
Back to top
View user's profile Send private message
nelson.pandian

Active User


Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ

PostPosted: Thu Oct 07, 2010 6:02 pm
Reply with quote

Hi Robert,

Actually I'm trying to read only record length of 350 bytes. I'm sure in that and just now check and confirmed.

The input file which i'm giving will have the key and based on the key record is been retrieved from VSAM file. So they are of only 350 bytes.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Thu Oct 07, 2010 6:07 pm
Reply with quote

Quote:
Actually I'm trying to read only record length of 350 bytes. I'm sure in that and just now check and confirmed.

The input file which i'm giving will have the key and based on the key record is been retrieved from VSAM file. So they are of only 350 bytes.
So, what you are saying is that you don't get file status 92 codes. In that case, why did you post your original problem?

You asked how to increase the buffer space, and you were given an answer. Now you state that the answer you were given isn't going to work. Either you are getting file status 92 with the 44 feedback code -- which by the very definition of the 44 means the 01 you are attempting to use in your program is too small for the record you are reading -- or you are not getting file status 92.
Back to top
View user's profile Send private message
nelson.pandian

Active User


Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ

PostPosted: Thu Oct 07, 2010 6:30 pm
Reply with quote

Hi Robert,

Sorry i think i have confused you.

In my previous post i said that i'm trying to read the VSAM file only for the record length 350 bytes. For that also some times i'm getting FILE STATUS 92.

My initial post & my previous post, both are correct. Program is getting abend with File Status 92, when i try to read a record with the record length 350 bytes. This is my problem.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Thu Oct 07, 2010 6:45 pm
Reply with quote

Try a simple test. Add this clause to your FD:
Code:
RECORD VARYING FROM 12 TO 570 DEPENDING ON WS-FILE-LEN
and define WS-FILE-LEN in WORKING-STORAGE as PIC 9(04) (it must be unsigned). Then add an 01 under your FD:
Code:
01  LONG-REC.
    05  FILLER PIC X(570).
Then run your program again and for the record(s) that you are currently having trouble with, display WS-FILE-LEN and let us know the results.
Back to top
View user's profile Send private message
nelson.pandian

Active User


Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ

PostPosted: Thu Oct 07, 2010 7:15 pm
Reply with quote

Thanks for the suggestion. Will try and let you know the output.
Back to top
View user's profile Send private message
ovreddy

Active User


Joined: 06 Dec 2004
Posts: 211
Location: Keane Inc., Minneapolis USA.

PostPosted: Fri Oct 08, 2010 2:00 am
Reply with quote

Hi,

Copy your VSAM to a flat file. Then delete the VSAM and redefine with larger buffer space. Copy flat file to newly created VSAM.

Thanks,
Reddy
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Fri Oct 08, 2010 10:17 am
Reply with quote

Quote:
Copy your VSAM to a flat file. Then delete the VSAM and redefine with larger buffer space. Copy flat file to newly created VSAM.

please refrain from posting completely unrelated and wrong suggestions
you will be just wasting resources and everybody' s time

unrelated
the issue is thats the TS is trying to read a record into a program buffer too small
so the issue is not related to the vsam bufnd and bufni

wrong
the number of vsam buffers to be allocated can be changed by a simple IDCAMS ALTER
Back to top
View user's profile Send private message
nelson.pandian

Active User


Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ

PostPosted: Fri Oct 08, 2010 6:39 pm
Reply with quote

Hi Robert,

The issue was with the program trying to read greater record length which was specified in FD section.
Now i have increased the FD section length to 570 as you suggested. The issue is resolved.

Thanks a lot for you help. Thank you very much icon_biggrin.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Fri Oct 08, 2010 7:07 pm
Reply with quote

Glad to hear you got it fixed -- from your original description, that pretty much had to be the problem. When I'm working with variable length files, I always code an 01 MAX-SIZE-REC. in the FD with the longest possible record to prevent these types of issues.
Back to top
View user's profile Send private message
nelson.pandian

Active User


Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ

PostPosted: Fri Oct 08, 2010 7:09 pm
Reply with quote

Hi Robert,

From now on i will also starting doing the same. Thanks for the update icon_biggrin.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Unable to interpret a hex value to De... COBOL Programming 4
No new posts how to eliminate null indicator value... DB2 7
No new posts Call an hlasm from REXX in batch and ... CLIST & REXX 4
No new posts What is the most complex abend you've... Mainframe Interview Questions 8
No new posts Format Binary file to EBCDIC JCL & VSAM 4
Search our Forums:

Back to Top