PROGRAM DTCCHK C C Routine to spawn to the Indirect Command File Processor a command C file to check the calendar for the users and prompt them of upcoming C appointments.. This program will usually be placed in the clock queue to C run at some predetermined time. C C The command file and DTC are setup to run every 30 minutes. A typical C startup command line would be: C C INS $DTCCHECK ! Or where every it is located C RUN DTCCHK H /RSI=30M ! Sync on the hour, run every 30 mins C C Compile and taskbuild commands C FORTRAN/F77 DTCCHECK/TRACEBACK:NONE C DTCCHECK,DTCCHECK/-SP=DTCCHECK C LB:[1,1]SYSLIB/LB:$SHORT C / C UNITS=2 C ACTFIL=2 C ASG=CO:2 C TASK=DTCCHK C UIC=[1,1] C // C IMPLICIT INTEGER (A-Z) REAL ICP,BRO,MAI CHARACTER*80 CMDLIN BYTE ATIME(8) DATA ICP/6R...AT./,BRO/6R...BRO/,MAI/6R...MAI/ C C Check if need to run this at all (ie, overnight etc.) C CALL TIME(ATIME) DECODE (2,1,ATIME) HOUR 1 FORMAT (I2) IF (HOUR.LT.7.OR.HOUR.GT.17) GO TO 15 CMDLIN = '@LB:[1,2]DTC.CMD' CMDLEN = 16 CALL SPAWN(ICP,1,1,5,,,,CMDLIN,CMDLEN,,,IDSW) CALL STOPFR(5) OPEN (UNIT=1,FILE='LB:[1,2]OFFLINE.DTC',STATUS='OLD', $ DISPOSE='DELETE') 5 READ (1,6,END=10) CMDLEN,CMDLIN 6 FORMAT (Q,A80) IF (CMDLIN(1:3).EQ.'MAI') $ CALL SPAWN(MAI,1,1,5,,,,CMDLIN,CMDLEN,,,IDSW) IF (CMDLIN(1:3).EQ.'BRO') $ CALL SPAWN(BRO,1,1,5,,,,CMDLIN,CMDLEN,,,IDSW) CALL STOPFR(5) GO TO 5 10 CLOSE(UNIT=1) 15 END