|
View previous topic :: View next topic
|
| Author |
Message |
mistah kurtz
Active User
Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel
|
|
|
|
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 |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
Craq Giegerich
Senior Member
Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA
|
|
|
|
| mistah kurtz wrote: |
SELECT TEST-FILE ASSIGN INDD.
|
Why is there a period after INDD? |
|
| Back to top |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012
Posts: 139
Location: USA
|
|
|
|
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 |
|
|
mistah kurtz
Active User
Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel
|
|
|
|
| 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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012
Posts: 139
Location: USA
|
|
|
|
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 |
|
|
mistah kurtz
Active User
Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel
|
|
|
|
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 |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
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 |
|
|
mistah kurtz
Active User
Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel
|
|
|
|
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 |
|
|
mistah kurtz
Active User
Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel
|
|
|
|
| Thanks Bill for that enhanced status code example. I was not aware of this. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| Glad to hear that it is working now. |
|
| Back to top |
|
|
paulr
New User
Joined: 20 Apr 2023
Posts: 1
Location: United States
|
|
|
|
| More information on our processing. When SYSB gets notified that a record was updated on SYSA, we issue a MRKBFR MARK=DINVALID for both the cluster and AIX. When we read the path we get the x'90' error. |
|
| Back to top |
|
|
|
|
