Re: Monitor for no spool file

[thomas@xxxxxxxxxxx]

Mike:

On Wed, 14 November 2001, "Wills, Mike N. \(TC\)" wrote:

> How can I monitor for no spool file in a CL?

It can be easy depending on a variety of factors. For example:

   CALL   MyProg

   CHGSPLFA   FILE(QSYSPRT)

   MONMSG     MSGID(CPF3303) EXEC(DO)
      SNDPGMMSG  MSG('No SPLF') TOPGMQ(*EXT)
   enddo
   MONMSG     MSGID(CPF3309) EXEC(DO)
      SNDPGMMSG  MSG('SPLF is gone') TOPGMQ(*EXT)
   enddo

could tell you if either that no QSYSPRT splf was created or that the splf was 
opened but nothing written to it (or possibly already printed or deleted but 
unlikely so fast). This could work if the CALL was in the same job. If you want 
to test from a different job, change to CHGSPLFA to:

   CHGSPLFA   FILE(QSYSPRT) +
              JOB(&jobnbr/&jobuser/&jobname)

APIs would maybe be better, but this might be sufficient. Naturally the actions 
taken for the MONMSGs would be up to you.

Tom Liotta

--
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788
Fax  253-872-7904
http://www.400Security.com


___________________________________________________
The ALL NEW CS2000 from CompuServe
 Better!  Faster! More Powerful!
 250 FREE hours! Sign-on Now!
 http://www.compuserve.com/trycsrv/cs2000/webmail/