View previous topic :: View next topic
|
Author |
Message |
nelson.pandian
Active User
Joined: 09 Apr 2008 Posts: 133 Location: Phoenix, AZ
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
What does the IDCAMS LISTCAT show for the VSAM FILE? What does the COBOL FD look like for this file? |
|
Back to top |
|
|
nelson.pandian
Active User
Joined: 09 Apr 2008 Posts: 133 Location: Phoenix, AZ
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
nelson.pandian
Active User
Joined: 09 Apr 2008 Posts: 133 Location: Phoenix, AZ
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
nelson.pandian
Active User
Joined: 09 Apr 2008 Posts: 133 Location: Phoenix, AZ
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
nelson.pandian
Active User
Joined: 09 Apr 2008 Posts: 133 Location: Phoenix, AZ
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
nelson.pandian
Active User
Joined: 09 Apr 2008 Posts: 133 Location: Phoenix, AZ
|
|
|
|
Thanks for the suggestion. Will try and let you know the output. |
|
Back to top |
|
|
ovreddy
Active User
Joined: 06 Dec 2004 Posts: 211 Location: Keane Inc., Minneapolis USA.
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10886 Location: italy
|
|
|
|
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 |
|
|
nelson.pandian
Active User
Joined: 09 Apr 2008 Posts: 133 Location: Phoenix, AZ
|
|
|
|
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 |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
nelson.pandian
Active User
Joined: 09 Apr 2008 Posts: 133 Location: Phoenix, AZ
|
|
|
|
Hi Robert,
From now on i will also starting doing the same. Thanks for the update |
|
Back to top |
|
|
|