IBM Mainframe Forum

by **Steve Coalbran** » Mon Nov 28, 2016 1:34 pm

Interesting error.
I have run LMDLIST many times and this invocation appears to be identical to others that work successfully!

Here's the code snippet.

Select all

SAY "PTN="ptn                                      
ADDRESS ISPEXEC "LMDINIT LISTID(LI) LEVEL("ptn") " 
SAY "RC="RC zerrsm;SAY STRIP(zerrlm)               
SAY "LISTID="li                                    
ADDRESS ISPEXEC "LMDLIST LISTID("li") "            
PARSE VALUE zerrsm";"STRIP(zerrlm) WITH sm ";" lm  
SAY "RC="RC zerrsm;SAY STRIP(zerrlm)               
SAY C2X(WORD(zerrlm,WORDS(zerrlm)))                
ADDRESS ISPEXEC "LMDFREE LISTID("li")"            

Which gives this error...

Select all

PTN=N472730.DJCK.J%%                                                
   598 *-*       ADDRESS ISPEXEC "LMDINIT LISTID(LI) LEVEL("ptn") " 
       >>>         "LMDINIT LISTID(LI) LEVEL(N472730.DJCK.J%%) "    
RC=0                                                                
                                                                    
LISTID=ISR00003                                                     
   601 *-*       ADDRESS ISPEXEC "LMDLIST LISTID("li") "            
       >>>         "LMDLIST LISTID(ISR00003) "                      
RC=0 Variable exit error                                            
Exit routine at 88B99878 gave error code 20 for FIND of  :::::::    
FF08B9BBEE08B9                                                      
   606 *-*       ADDRESS ISPEXEC "LMDFREE LISTID("li")"             
       >>>         "LMDFREE LISTID(ISR00003)"

by **BillyBoyo** » Mon Nov 28, 2016 9:34 pm

http://www.ibm.com/support/knowledgecen ... spmc10.htm

Perhaps someone changed something without telling you :-)

Or, perhaps you've squished something, there's another 600 or so lines you have. If you isolate the code and it fails with the same, follow IBM's suggestion. If it doesn't fail, you have to find the squishing somewhere in the 600 lines...

by **Steve Coalbran** » Tue Nov 29, 2016 3:33 pm

Only me coding this, and all interpretive so no VDEFINEs.
it does however use.

Select all

ADDRESS ISPEXEC
"SELECT PGM(CAZ1PRES) PARM('RESOLVE(TWS,DDNAME:TWSRESLV)') "

so this could be doing something which may be causing the problem. Somehow I doubt it.
I tried adding a NEWPOOL SUSPEND to this select but it maded no difference.
Then I tried replacing this with a

Select all

ADDRESS TSO
"CALL *(CAZ1PRES) 'RESOLVE(TWS,DDNAME:TWSRESLV)' "

also no difference.

I do get a RC=0 despite the error message so I'm inclined to ignore it.
When there is no match for the dataset level, I get a...

Select all

RC=4 No data set names found                                   
No data set names were found to satisfy the search argument(s).
***  

The 600+ lines is now 700+ plus 4 smaller macros ranging from 50 to 250 lines processing in VIEW on workfiles.

by **Pedro** » Tue Nov 29, 2016 10:51 pm

Use IPCS to determine what module is at 88B99878.

It looks like message ISPV013, whose response is: "If the variable exit is an ISPF exit, contact IBM support."

IBM Mainframe Forum

LMDLIST RC=0 Variable exit error!

LMDLIST RC=0 Variable exit error!

Re: LMDLIST RC=0 Variable exit error!

Re: LMDLIST RC=0 Variable exit error!

Re: LMDLIST RC=0 Variable exit error!