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

[rob@xxxxxxxxx]

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