View previous topic :: View next topic
|
Author |
Message |
kalyan.v
New User
Joined: 04 Feb 2008 Posts: 65 Location: Hyd
|
|
|
|
Hi,
My requirement is to access a VSAM file in an Easytrieve program, i am getting S213 abend. I tried many ways of changing volume parameters and other ways but i am not able to solve it. Kindly help me in this.
IEF237I JES2 ALLOCATED TO SYSIN
IEC143I 213-04,IFG0194D,HASAKANA,STEP025,MSDXREF,6121,TBPS01,TCNV.SK.WELLS.MSD.VSAM.SXREF
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=213 REASON CODE=00000004 |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Show your JCL please.
Also run and show a LISTCAT for the VSAM dataset in question.
Also show complete JES output for the step. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
did You follow the suggestions of the manual ? |
|
Back to top |
|
|
kalyan.v
New User
Joined: 04 Feb 2008 Posts: 65 Location: Hyd
|
|
|
|
JCL:-
Code: |
//STEP025 EXEC PGM=EZTPA00,COND=(0,NE),REGION=1024M
//STEPLIB DD DISP=SHR,DSN=TCH.PROD.EZTP.V63.CAILIB
//EZTVFM DD UNIT=SYSDA,SPACE=(CYL,(900,390))
// DD UNIT=SYSDA,SPACE=(CYL,(900,390))
// DD UNIT=SYSDA,SPACE=(CYL,(900,390))
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*,DCB=(RECFM=FBA)
//MSDXREF DD DSN=TCNV.SK.WELLS.MSD.VSAM.SXREF,DISP=SHR
//SYSIN DD *
PARM ABEXIT SNAP DEBUG( PMAP )
FILE MSDXREF TABLE 500000
ARG 1 9 A
DESC 29 7 A
2000-SEARCH-MSDXREF. PROC
WS-SEC = ' '
WS-SEC-NO = ' '
DISPLAY 'SATISH TESTING 1'
WS-SEC9 = IN-SEC-NO
SEARCH MSDXREF WITH WS-SEC GIVING WS-SEC-NO
DISPLAY 'SATISH TESTING 2'
IF MSDXREF
TOT-DUMMY = TOT-DUMMY + 1
OUT-SECNO = WS-SEC-NO
ELSE
TOT-NO-MSD = TOT-NO-MSD + 1
TOT-BYPASS = TOT-BYPASS + 1
WS-REASON = 'NOT FOUND ON MSD SXREF FILE '
WS-REJ-FLD = WS-SEC
PRINT SETRAMSD
GO TO JOB
END-IF
|
2) JES message:-
Code: |
IEC143I 213-04,IFG0194D,HASAKANA,STEP025,MSDXREF,8447,TBPSQ9,TCNV.SK.WELLS.MSD.VSAM.SXREF
IEA995I SYMPTOM DUMP OUTPUT 781
SYSTEM COMPLETION CODE=213 REASON CODE=00000004
TIME=05.32.24 SEQ=00516 CPU=0000 ASID=037E
PSW AT TIME OF ERROR 075C1000 80E2BC0A ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00E2BC04 - 4100302C 0A0D010D A7E50126
AR/GR 0: B56C448A/00E2BEC8 1: 00000000/A4213000
2: 00000000/00006858 3: 00000000/00E2BE9C
4: 00000000/009B1410 5: 00000000/009B17A4
6: 00000000/009B174C 7: 00000000/009B17A4
8: 00000000/009B176C 9: 00000000/009B2A60
A: 00000000/80E2D0AA B: 00000000/00E2DC52
C: 00000000/80E2DE26 D: 00000000/7F549D20
E: 00000000/80E2B49C F: 00000000/00000004
END OF SYMPTOM DUMP
3) LISTCAT:-
IDCAMS SYSTEM SERVICES TIME: 05:48:43
LISTCAT ENTRIES(TCNV.SK.WELLS.MSD.VSAM.SXREF) ALL
CLUSTER ------- TCNV.SK.WELLS.MSD.VSAM.SXREF
IN-CAT --- ICF.TEST.CATALOG
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2011.320
RELEASE----------------2 EXPIRATION------0000.000
SMSDATA
STORAGECLASS ----SCLARGE MANAGEMENTCLASS--MCLARGE
DATACLASS ---------OTHER LBACKUP ---0000.000.0000
CA-RECLAIM---------(YES)
EATTR-------------(NULL)
BWO STATUS------00000000 BWO TIMESTAMP---00000 00:00:00.0
BWO---------------(NULL)
RLSDATA
LOG ----------------(NULL) RECOVERY REQUIRED --(NO) FRLOG ---------
VSAM QUIESCED -------(NO) RLS IN USE ---------(NO)
LOGSTREAMID-----------------------------(NULL)
RECOVERY TIMESTAMP LOCAL-----X'0000000000000000'
RECOVERY TIMESTAMP GMT-------X'0000000000000000'
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
DATA-----TCNV.SK.WELLS.MSD.VSAM.SXREF.DATA
INDEX----TCNV.SK.WELLS.MSD.VSAM.SXREF.INDEX
DATA ------- TCNV.SK.WELLS.MSD.VSAM.SXREF.DATA
IN-CAT --- ICF.TEST.CATALOG
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2011.320
RELEASE----------------2 EXPIRATION------0000.000
ACCOUNT-INFO-----------------------------------(NULL)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--TCNV.SK.WELLS.MSD.VSAM.SXREF
ATTRIBUTES
KEYLEN-----------------9 AVGLRECL--------------35 BUFSPACE-------
RKP--------------------0 MAXLRECL--------------35 EXCPEXIT-------
SHROPTNS(2,3) SPEED UNIQUE NOERASE INDEXED N
UNORDERED REUSE NONSPANNED
STATISTICS
REC-TOTAL---------118710 SPLITS-CI--------------0 EXCPS----------
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS--------
REC-INSERTED-----------0 FREESPACE-%CI---------10 SYSTEM-TIMESTAM
REC-UPDATED------------0 FREESPACE-%CA---------30 X'C8AE5804
REC-RETRIEVED-------8420 FREESPC---------16748544
ALLOCATION
SPACE-TYPE------CYLINDER HI-A-RBA--------21381120
SPACE-PRI--------------4 HI-U-RBA---------6635520
SPACE-SEC-------------25
DCAMS SYSTEM SERVICES TIME: 05:48:43
VOLUME
VOLSER------------TBPS01 PHYREC-SIZE---------4096 HI-A-RBA-------
DEVTYPE------X'3010200F' PHYRECS/TRK-----------12 HI-U-RBA-------
VOLFLAG------------PRIME TRACKS/CA-------------15
EXTENTS:
LOW-CCHH-----X'04780000' LOW-RBA----------------0 TRACKS---------
HIGH-CCHH----X'047B000E' HIGH-RBA---------2949119
LOW-CCHH-----X'0E220000' LOW-RBA----------2949120 TRACKS---------
HIGH-CCHH----X'0E29000E' HIGH-RBA---------8847359 |
|
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
You are not telling Easytrieve that the file is VSAM. I don't know if a TABLE can be VSAM. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Just because some data is used as a reference table does not make this an Easytrieve Table.
I suspect all you want to do is read by the key (arg) and get the desc, so you need to remove the Easytrieve Table definition and use a vsam file definition. |
|
Back to top |
|
|
|