> Mark Bixby proposed:
> > The JOBCNT() CI function will do what you are asking.

To which Donna Garverick exclaimed:
> ah ha!  ding ding ding! :-)  thanks, mark!

But for those of us not yet on that release:

  :sjj

  JOBNUM  STATE IPRI JIN  JLIST    INTRODUCED  JOB NAME

  #J1152  EXEC        10S LP       WED  4:23A  JMS,MGR.JMS3000

  JOBFENCE= 7; JLIMIT= 0; SLIMIT= 40

  :tell j1152 Are you still running?
  "J1152 MGR.JMS3000" not interactive.  Message not sent to job. (CIWARN
1627)
  :
  :tell j1234 Are you still running?
       ^
  There was no session found that matched this ID. (CIWARN 1619)
  :

Ergo: 1627 = running
      1619 = not

FWIW!

 +-------------------------------------------------------------------+
  My mind is my own, as are my ideas and opinions.
  My heart, body, and soul, however, all belong to others.       Tim.
 +-------------------------------------------------------------------+
  Tim Ericson            tericson      DenKor Dental Management Corp.
  Sr. Systems Analyst     at denkor    503-526-4440 (my direct number)
    (& Systems Manager)     dot com         http://www.denkor.com
  Programming HPe3000s since 1983!     Quality dental care since 1970!
 +-------------------------------------------------------------------+
  UDCs and Command Files:  http://www.denkor.com/hp3000/command_files
 +-------------------------------------------------------------------+