LMDLIST RC=0 Variable exit error!



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

LMDLIST RC=0 Variable exit error!

Postby 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.
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)"

:?
Steve
User avatar
Steve Coalbran
 
Posts: 138
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 13 times
Been thanked: 1 time

Re: LMDLIST RC=0 Variable exit error!

Postby 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...
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: LMDLIST RC=0 Variable exit error!

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

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.
Steve
User avatar
Steve Coalbran
 
Posts: 138
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 13 times
Been thanked: 1 time

Re: LMDLIST RC=0 Variable exit error!

Postby 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."
Pedro Vera
User avatar
Pedro
 
Posts: 686
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 53 times


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post