Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
S213 abend in easytrieve program when accessing a VSAM file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
kalyan.v

New User


Joined: 04 Feb 2008
Posts: 65
Location: Hyd

PostPosted: Wed Nov 16, 2011 3:55 pm    Post subject: S213 abend in easytrieve program when accessing a VSAM file
Reply with quote

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
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Wed Nov 16, 2011 4:01 pm    Post subject: Reply to: S213 abend in easytrieve program when accessing a
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10375
Location: italy

PostPosted: Wed Nov 16, 2011 4:03 pm    Post subject: Reply to: S213 abend in easytrieve program when accessing a
Reply with quote

did You follow the suggestions of the manual ?
Back to top
View user's profile Send private message
kalyan.v

New User


Joined: 04 Feb 2008
Posts: 65
Location: Hyd

PostPosted: Wed Nov 16, 2011 4:21 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Wed Nov 16, 2011 4:38 pm    Post subject: Reply to: S213 abend in easytrieve program when accessing a
Reply with quote

You are not telling Easytrieve that the file is VSAM. I don't know if a TABLE can be VSAM.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Nov 16, 2011 8:20 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts The same REXX program doesnt work for... jackzhang75 CLIST & REXX 5 Wed Dec 06, 2017 2:51 am
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
No new posts Compare VSAM files using DFSORT pshongal DFSORT/ICETOOL 5 Thu Nov 23, 2017 10:24 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us