mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-26 18:04:07 +00:00
Upload
Digital Research
This commit is contained in:
191
MPM OPERATING SYSTEMS/MPM-86/MISC DRI DISKS/07/TIMELOG5.CMD
Normal file
191
MPM OPERATING SYSTEMS/MPM-86/MISC DRI DISKS/07/TIMELOG5.CMD
Normal file
@@ -0,0 +1,191 @@
|
||||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||
* *
|
||||
* TIMELOG5.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 all terminals, grouped by account. 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 *
|
||||
* * *
|
||||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||
STORE 'SunMonTueWedThuFriSat' TO weekday
|
||||
STORE 0 TO dev:kount
|
||||
STORE 0 TO dev:time
|
||||
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
|
||||
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
|
||||
DO CASE
|
||||
CASE 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+dev:kount TO dev:kount
|
||||
STORE acc:time+dev:time TO dev:time
|
||||
STORE 0 TO acc:kount
|
||||
STORE 0 TO acc:time
|
||||
STORE STR(dev:time/3600,4)+':' TO tot:time
|
||||
STORE tot:time+STR((dev:time-INT(dev: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(dev:time-INT(dev: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(dev:kount,5)+' Accesses'
|
||||
?? ' Total elapsed time = '+tot:time
|
||||
?
|
||||
STORE line+2 TO line
|
||||
STORE con TO device
|
||||
STORE tty TO device1
|
||||
STORE dev:kount+all:kount TO all:kount
|
||||
STORE dev:time+all:time TO all:time
|
||||
STORE 0 TO dev:kount
|
||||
STORE 0 TO dev:time
|
||||
IF .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
|
||||
CASE account <> name
|
||||
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+dev:kount TO dev:kount
|
||||
STORE acc:time+dev:time TO dev:time
|
||||
STORE 0 TO acc:kount
|
||||
STORE 0 TO acc:time
|
||||
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
|
||||
ENDCASE
|
||||
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
|
||||
? 'All Devices & 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
|
||||
|
||||
Reference in New Issue
Block a user