Page 1 of 1

LMDLIST RC=0 Variable exit error!

PostPosted: Mon Nov 28, 2016 1:34 pm
by Steve Coalbran
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.
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...
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)"

:?

Re: LMDLIST RC=0 Variable exit error!

PostPosted: Mon Nov 28, 2016 9:34 pm
by BillyBoyo
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...

Re: LMDLIST RC=0 Variable exit error!

PostPosted: Tue Nov 29, 2016 3:33 pm
by Steve Coalbran
Only me coding this, and all interpretive so no VDEFINEs.
it does however use.
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
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...
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.

Re: LMDLIST RC=0 Variable exit error!

PostPosted: Tue Nov 29, 2016 10:51 pm
by Pedro
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."