Causing (and detecting) a workstation failure

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

This should be relatively easy.  I'm trying to test for when a user shuts
off a workstation.  I've coded an error indicator in the EXFMT, and am
testing fo the indicator.  If an error occurs, I send a message to *SYSOPR.

Unfortunately, I never get there.  As soon as I shut off the tube (that is,
as soon as I disconnect the CAX session), the job ends and I don't seem to
get to my *IN90 test.

How quickly does the system kill jobs when they lose connection?  Shouldn't
there be an opportunity for cleanup?  Or am I coding incorrectly?

Relevant snippets:

fattrd     cf   e             workstn infds(Infds)

D INFDS           DS
D XSsts             *status

Dmessage          S            128
Dcommand          S            128

exfmt     record1                              90

if        *IN90
eval      message = 'XSsts: ' + %editc(XSsts:'X')
eval      command = 'SNDMSG ''' + %trim(message) +
          ''' TOUSR(*SYSOPR)'
call      'QCMDEXC'
parm                    command
parm      128           commandlen       15 5
endif


I have also tried the following: testing the status after the EXFMT (instead
of the indicator), adding an INFSR routine and returning an error code to a
calling CL when the EXFMT fails.  None seem to work.


Joe