Abending LISTDSI



IBM's Command List programming language & Restructured Extended Executor

Abending LISTDSI

Postby Mirco » Wed Jun 08, 2011 11:21 pm

Hello all,
I'm out of ideas. LISTDSI function abended with S113-38 (meaning: "An OPEN was issued for a VSAM data set with a DCB, but the format1 DSCB for the data set does not indicate it is a VSAM data set. Ensure that the DSNAME specified on the DD statement is correct and that the program supports opening a VSAM data set with a DCB"). The file type is IAM and the IAM software is up and running, so from the programs' perspective these files should look like normal VSAMs.
The funny part is that I have slightly different version of IAM than the machine where the abend occurs, so I've never seen it live. The Rexx and z/OS versions are the same. Short register dump we've got is useless (no active module found), I have just the dataset name, abend code and the abending function.

Has anybody ever encountered this behavior?
Is there anything I can do, or should we just try different version of IAM and hope it helps?
If nothing else works, is there any way to at least suppress the abend messages? The abend is quite harmless, the exec continues to run and subsequent modules that are being called handle the same dataset without any problems. The big red messages on the screen just don't look good.

Thank you for any suggestions.
Mirco
 
Posts: 11
Joined: Thu Feb 11, 2010 7:13 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Abending LISTDSI

 

Re: Abending LISTDSI

Postby enrico-sorichetti » Thu Jun 09, 2011 12:44 am

did You care to read the REXX manuals for the LISTDSI limitations, looks like not
here is a link to the tso bookshelf
http://publibz.boulder.ibm.com/cgi-bin/ ... s/IKJ4BK90

a listdsi for a VSAM dataset will end with a return code 4 and a reason code 12
which according to aforesaid manual means 12 VSAM data sets are not supported.

You can check Yourself by running a simple rexx like
000001 /*REXX - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000002 /*                                                                   */
000003 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000004 Trace "O"
000005 zrc = listdsi("'SYS1.ACDS.BKOFF'") /* any vsam dataset */
000006 say  "RC         "  zrc
000007 say  "SYSREASON  "  SYSREASON
000008 say  "SYSMSGLVL1 "  SYSMSGLVL1
000009 say  "SYSMSGLVL2 "  SYSMSGLVL2
000010 Exit 0


the best thing to do is to ask Your support and get IAM people involved

not a rexx issue
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Re: Abending LISTDSI

Postby steve-myers » Thu Jun 09, 2011 2:49 am

I agree with enrico-sorichetti that this is not a TSO/Rexx issue, except why is LISTDSI even opening the dataset? If I remember correctly IAM dataset DSCBs look like BDAM, not VSAM. I reviewed the Rexx variables set by LISTDSI, and as far as I can tell the only time it opens the dataset is if it is PDS and the directory option is specified in the argument string. None of the Rexx variables set by LISTDSI appear to be VSAM related.
steve-myers
Global moderator
 
Posts: 1885
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 197 times

Re: Abending LISTDSI

Postby Mirco » Thu Jun 09, 2011 1:40 pm

Yes, I have read the LISTDSI manual:
"If you use LISTDSI to retrieve information about a VSAM data set, LISTDSI stores only the volume serial ID (in variable SYSVOLUME), the device unit (in variable SYSUNIT), and the data set organization (in variable SYSDSORG)."
The "VSAM data sets are not supported" refers to why there would be RC=4 and reason code 12, but nothing about any possible abends.
I'm using the LISTDSI just to determine the DSORG (and maybe some more information if possible) and then decide what to do next.

The DIRECTORY option is on, so the solution may be to add one more test without the DIRECTORY ahead of it and when it detects a VSAM (IAM), skip the next test. Thank you Steve for the tip!
Mirco
 
Posts: 11
Joined: Thu Feb 11, 2010 7:13 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Abending LISTDSI

Postby Mirco » Tue Jun 14, 2011 8:19 pm

If anyone is interested, LISTDSI without the DIRECTORY parameter abends as well.
Mirco
 
Posts: 11
Joined: Thu Feb 11, 2010 7:13 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Abending LISTDSI

Postby mongan » Wed Jun 15, 2011 12:29 pm

Sounds like you need to post the actual part of the code, the output (is it a batch or online job), and the info about the dataset. The error says that your definition and the dataset do not match, maybe you are missing something. How about the amount of storage you are using for the Job/TSO?
User avatar
mongan
 
Posts: 212
Joined: Tue Jan 11, 2011 8:32 pm
Has thanked: 1 time
Been thanked: 5 times

Re: Abending LISTDSI

Postby enrico-sorichetti » Wed Jun 15, 2011 2:50 pm

LISTDSI works well with standard zOS datasets
this topic deals with IAM datasets

again not a TSO/REXX/LISTSDI issue
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Re: Abending LISTDSI

Postby Pedro » Thu Jun 16, 2011 9:40 am

The IAM vendor should provide a function similar to LISTDSI.

It is not clear why you would expect IBM products to know about and support specialized dataset orgs from a particular vendor.
Pedro Vera
User avatar
Pedro
 
Posts: 569
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 39 times

Re: Abending LISTDSI

Postby Mirco » Thu Jun 23, 2011 1:41 pm

Solution: don't use SMSINFO parameter. DIRECTORY has no effect on this.
Case closed.
Thank you all for your help.

Mods, if you think this thread is too offtopic or unhelpful, feel free to move/delete/lock/whatever.
Mirco
 
Posts: 11
Joined: Thu Feb 11, 2010 7:13 pm
Has thanked: 0 time
Been thanked: 0 time


Return to CLIST & REXX