Upload

Digital Research

MPM OPERATING SYSTEMS/MPM-86/MISC DRI DISKS/07/TIMELOG3.CMD

@@ -0,0 +1,126 @@
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+*                                                                             *
+* TIMELOG3.CMD                                                                *
+* This command file is called by TIMELOG.CMD and prints a time accounting     *
+* report to a file specified by the user.  This report contains access data   *
+* for all accounts on one specific terminal. When finished, this command file *
+* returns control to TIMELOG.CMD.                                             *
+*                                                                             *
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+*                                 *                                           *
+*  Written By Michael Burch       *  Copyright (C) G&G Engineering 1982       *
+*  For Gifford Computer Systems   *  Reproduction or modification of this     *
+*  Date: November 17, 1982        *  program, in whole or in part, only with  *
+*  Last Revision: 04/12/83        *  written permission from G&G Engineering  *
+*                                 *                                           *
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+FIND '&device'
+STORE 'SunMonTueWedThuFriSat' TO weekday
+STORE 0 TO acc:kount
+STORE 0 TO acc:time
+STORE 0 TO all:kount
+STORE 0 TO all:time
+STORE name TO account
+STORE con TO device
+STORE tty TO device1
+SET ALTERNATE ON
+IF how = '2'
+   ? 'Device/Name  Account'
+   ? '============ ========='
+ELSE
+   ? 'Device/Name  Account          Log In                 Log Out           Elapsed'
+   ? '============ ========= =====================  =====================       Time'
+ENDIF
+STORE 2 TO line
+DO WHILE .NOT. EOF .AND. device = con
+   IF line > 56
+      DO WHILE line < 66
+         ?
+         STORE line+1 TO line
+      ENDDO
+      IF how = '2'
+         ? 'Device/Name  Account'
+         ? '============ ========='
+      ELSE
+         ? 'Device/Name  Account          Log In                 Log Out           Elapsed'
+         ? '============ ========= =====================  =====================       Time'
+      ENDIF
+      STORE 2 TO line
+   ENDIF
+   IF how = '1'
+      ? con+'/'+tty+' '+name+' '+hour:i+':'+min:i+':'+sec:i
+      ?? $(weekday,VAL(week:i)*3+1,3)+' '+month:i+'/'+day:i+'/'+$(year:i,3,2)
+      ?? ' '+hour:o+':'+min:o+':'+sec:o+' '+$(weekday,VAL(week:o)*3+1,3)
+      ?? month:o+'/'+day:o+'/'+$(year:o,3,2)+' '+time:hr+':'+time:min+':'+time:sec
+      STORE line+1 TO line
+   ENDIF
+   STORE acc:kount+1 TO acc:kount
+   STORE acc:time+total:sec TO acc:time
+   SKIP
+   IF account <> name .OR. device <> con .OR. EOF
+      IF how = '1'
+         ?
+         STORE line+1 TO line
+      ENDIF
+      STORE STR(acc:time/3600,4)+':' TO tot:time
+      STORE tot:time+STR((acc:time-INT(acc:time/3600)*3600)/60,2)+':' TO tot:time
+      IF $(tot:time,6,1) = ' '
+         STORE $(tot:time,1,5)+'0'+$(tot:time,7,2) TO tot:time
+      ENDIF
+      STORE tot:time+STR(acc:time-INT(acc:time/60)*60,2) TO tot:time
+      IF $(tot:time,9,1) = ' '
+         STORE $(tot:time,1,8)+'0'+$(tot:time,10,2) TO tot:time
+      ENDIF
+      ? device+'/'+device1+' '+account+'        '+STR(acc:kount,5)+' Accesses'
+      ?? '  Total elapsed time = '+tot:time
+      ?
+      STORE line+2 TO line
+      STORE name TO account
+      STORE acc:kount+all:kount TO all:kount
+      STORE acc:time+all:time TO all:time
+      STORE 0 TO acc:kount
+      STORE 0 TO acc:time
+      IF device = con .AND. (.NOT. EOF)
+         IF line > 56
+            DO WHILE line < 66
+               ?
+               STORE line+1 TO line
+            ENDDO
+            IF how = '2'
+               ? 'Device/Name  Account'
+               ? '============ ========='
+            ELSE
+               ? 'Device/Name  Account          Log In                 Log Out           Elapsed'
+               ? '============ ========= =====================  =====================       Time'
+            ENDIF
+            STORE 2 TO line
+         ELSE
+            IF how = '1'
+               ?
+               ? 'Device/Name  Account          Log In                 Log Out           Elapsed'
+               ? '============ ========= =====================  =====================       Time'
+               STORE line+3 TO line
+            ENDIF
+         ENDIF
+      ENDIF
+   ENDIF
+ENDDO
+STORE STR(all:time/3600,4)+':' TO tot:time
+STORE tot:time+STR((all:time-INT(all:time/3600)*3600)/60,2)+':' TO tot:time
+IF $(tot:time,6,1) = ' '
+   STORE $(tot:time,1,5)+'0'+$(tot:time,7,2) TO tot:time
+ENDIF
+STORE tot:time+STR(all:time-INT(all:time/60)*60,2) TO tot:time
+IF $(tot:time,9,1) = ' '
+   STORE $(tot:time,1,8)+'0'+$(tot:time,10,2) TO tot:time
+ENDIF
+? device+'/'+device1+' All Accounts     '+STR(all:kount,5)+' Accesses  '
+?? 'Total elapsed time = '+tot:time
+STORE line+1 TO line
+DO WHILE line < 66
+   ?
+   STORE line+1 TO line
+ENDDO
+SET ALTERNATE OFF
+RETURN
+