home *** CD-ROM | disk | FTP | other *** search
/ vsiftp.vmssoftware.com / VSIPUBLIC@vsiftp.vmssoftware.com.tar / FREEWARE / FREEWARE40.ZIP / kronos / kronos_check.com < prev    next >
Text File  |  1995-03-13  |  587b  |  21 lines
  1. $ !
  2. $ ! This file is submitted at 1:00 each morning and afternoon.  It will delete 
  3. $ ! the pending copy of KRONOS_DISASTER.COM and resubmit it for 2:00 (13 hours
  4. $ ! from now).
  5. $ !
  6. $ ! "FIND_JOB" will set the job entry number for KRONOS_DISASTER into symbol
  7. $ ! "KDENTRY".
  8. $ !
  9. $ RUN KRONOS_DIR:FIND_JOB
  10. $ ST = $STATUS
  11. $ IF ST .EQ. 3 
  12. $    THEN
  13. $       MAIL/SUBJECT="Curious" KRONOS_DIR:CURIOUS.DAT -
  14.             IRENE,RAGOSTA,HOLST
  15. $ ENDIF
  16. $ !
  17. $ SUBMIT/AFTER="+13"/CHARACTERISTIC=1/QUEUE=BAT$MEDIUM/NOLOG -
  18.      KRONOS_DIR:KRONOS_DISASTER
  19. $ !
  20. $ IF ST .NE. 3 THEN DELETE/ENTRY='KDENTRY'
  21.