Put code between the LOCATE and the CAMLST.

--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
עַם יִשְׂרָאֵל חַי
נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר



________________________________________
From: IBM Mainframe Discussion List <[email protected]> on behalf of 
Joseph Reichman <[email protected]>
Sent: Sunday, February 16, 2025 3:54 PM
To: [email protected]
Subject: Re: Trying to determine if a dataset exists

External Message: Use Caution


I’m not at home

But I wrote a simple program and I remember it from memory

TESTDS  CSECT
TESTDS   AMODE 31
TESTDS   RMODE ANY
                USING TESTDS,R3
                 LR       R3,R15
                 LOCATE  AB
AB            CAMLST NAME,DS,,LOCAREA
DS            DC        CL44’MY.DATATEST’
                 DS         0D
LOCAREA DS      CL265
                 END

I ran this under TEST

Made a break point after the SVC 26

And that’s where I got the abend 66D reason 61

The text said “Unable to serialize or release serialization when accessing to 
tso/e data stack”

The abend code was 66D reason code 61

Hope this explains things

I think it has something to do with installation setup

Thanks
> On Feb 16, 2025, at 3:22 PM, Binyamin Dissen 
> <[email protected]> wrote:
> All together now:
>
> "Show the code"
>
> On Sun, 16 Feb 2025 12:42:34 -0500 Joseph Reichman
> <[email protected]> wrote:
>
> :>Hi
> :>Sorry about the previous post
> :>
> :>I fat finger it and didn’t now how to recall or delete
> :>
> :>Well here is my question
> :>
> :>
> :>I am getting some strange abends fro LOCATE
> :>
> :>Specifically abend 66D reason code 61
> :>
> :>I am running the program from a clist under TSO TEST
> :>
> :>My goal is to determine whether the dataset exists
> :>
> :>Just wondering is S99VRBIN using SVC 99 would be a better way
> :>
> :>And If so what text units should I use
> :>
> :>Thank you
> :>----------------------------------------------------------------------
> :>For IBM-MAIN subscribe / signoff / archive access instructions,
> :>send email to [email protected] with the message: INFO IBM-MAIN
>
> --
> Binyamin Dissen <[email protected]>
> http://www.dissensoftware.com/
>
> Director, Dissen Software, Bar & Grill - Israel
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to