-+-+-+-+-+-+-+-+ START OF PART 8 -+-+-+-+-+-+-+-+ X INTEGER*4 LIB$DATE_TIME,STATUS X CHARACTER*23 DATE_TIME X X STATUS = LIB$DATE_TIME(DATE_TIME) X I = INDEX(DATE_TIME,':') X `20 X GET_HOUR = DATE_TIME(I-2:I-1) X END X X************************************************************ XC XC GET DAY OF WEEK IN INTEGER FORM`20 XC 1 = MONDAY....7 = SUNDAY XC XC X INTEGER FUNCTION DAY_OF_WEEK(IDUMMY) X X INTEGER*4 SYS$BINTIM,STATUS,LIB$DATE_TIME,LIB$DAY_OF_WEEK X INTEGER*4 CURRENT_TIME(2) X CHARACTER*23 DATE_TIME X X STATUS = LIB$DATE_TIME(DATE_TIME) X IF (.NOT. STATUS) CALL LIB$SIGNAL(%VAL(STATUS)) X X STATUS = SYS$BINTIM(DATE_TIME,CURRENT_TIME) X IF (.NOT. STATUS) CALL LIB$SIGNAL(%VAL(STATUS)) X X STATUS = LIB$DAY_OF_WEEK(CURRENT_TIME,IDAY) X IF (.NOT. STATUS) CALL LIB$SIGNAL(%VAL(STATUS)) X X DAY_OF_WEEK = IDAY X END X X X SUBROUTINE CCTI(STRING,INTEGER) XC XC WRITTEN BY RAY RENTERIA of IRONLOGIC XC Copyright (C) to IRONLOGIC 1989 XC Date: JAN-16-89 XC X CHARACTER*(*) STRING X STATUS = OTS$CVT_TI_L(STRING,INTEGER) X RETURN X END $ CALL UNPACK TIME.FOR;1 2071816757 $ v=f$verify(v) $ EXIT