Re: using RTVJOBA ENDSTS to detect END(*CNTRLD) in CLLE program...

First, how are you ending the subsystem; *CNTRLD or *IMMED? If you are
using *IMMED then it's not going to work. If you are using *CNTRLD -and-
your loop is timely, then it should work. For example
waitAgain:
ALCOBJ OBJ((MYLIB/MYFILE *FILE *EXCL)) WAIT(10)
MONMSG CPF1002 THEN(DO) /* unable to allocate within WAIT time */
rtvjoba endsts(&endsts)
if (&endsts='1') then goto(abort)
goto waitAgain
endIf
EndDo
MainBody:
/* do something */
goto end
Abort:
/* oh crud */
End:
endpgm

That was a quick and dirty. You may want to put a counter loop on the
allocate, replace GOTOs with something else, actually do some real
processing, etc.

Rob Berendt