It was working quite happily until recently when it started to not populate the token. stem!
Despite giving a return code of 0.
I would have expected this to be caused only by:
RC Description
01 Host command environment query failed, environment not added
02 Host command environment add failed
01 Host command environment query failed, environment not added
02 Host command environment add failed
199 *-* token. = 0
>>> "0"
200 *-* RC = ISFCALLS("ON")
>>> "0"
201 *-* SAY "RC="RC
>>> "RC=0"
RC=0
202 *-* DO t = 0 TO token.0
>>> "0"
>>> "0"
203 *-* SAY token.t
>>> "0"
0
204 *-* END
202 *-* DO t = 0 TO token.0
205 *-* IF( token.0>0 )
>>> "0"
294 *-* ELSE
295 *-* CALL ABEXIT 8,"NO TOKENS SET BY ISFCALLS."
>>> "8"
>>> "NO TOKENS SET BY ISFCALLS."
484 *-* ABEXIT:
*-* PROCEDURE
*-* TRACE "O"
NO TOKENS SET BY ISFCALLS.
ISPD117
The initially invoked CLIST ended with a return code = 8
******************************** BOTTOM OF DATA ********************************
>>> "0"
200 *-* RC = ISFCALLS("ON")
>>> "0"
201 *-* SAY "RC="RC
>>> "RC=0"
RC=0
202 *-* DO t = 0 TO token.0
>>> "0"
>>> "0"
203 *-* SAY token.t
>>> "0"
0
204 *-* END
202 *-* DO t = 0 TO token.0
205 *-* IF( token.0>0 )
>>> "0"
294 *-* ELSE
295 *-* CALL ABEXIT 8,"NO TOKENS SET BY ISFCALLS."
>>> "8"
>>> "NO TOKENS SET BY ISFCALLS."
484 *-* ABEXIT:
*-* PROCEDURE
*-* TRACE "O"
NO TOKENS SET BY ISFCALLS.
ISPD117
The initially invoked CLIST ended with a return code = 8
******************************** BOTTOM OF DATA ********************************
All suggestions why this should suddenly happen would be welcome!
![Wink ;)](https://www.ibmmainframeforum.com/images/smilies/icon_e_wink.gif)