source: FOIAVistA/trunk/r/MAILMAN-XM/XMUTCOM1.m@ 1540

Last change on this file since 1540 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1XMUTCOM1 ;(WASH ISC)/CAP-XMUSRCNT.COM Count users (shareware) ;04/17/2002 12:10
2 ;;8.0;MailMan;;Jun 28, 2002
3ZZZ ;$!USERS.COM
4 ;;$! milt's special
5 ;;$ set noon
6 ;;$ ANS="N"
7 ;;$ pur/nolog leeuser.log
8 ;;$! del/nolog u1*.tmp.*,u2*.tmp.*
9 ;;$! say " Scanning VMS interactive users..............."
10 ;;$ SH USER/INTER/full/OUTPUT=U1.TMP
11 ;;$! say " Scanning VMS batch users (ZSLOT) ............"
12 ;;$ SH USER/BATCH/full/OUTPUT=U2.TMP
13 ;;$ search/output=u11.tmp u1.tmp forum
14 ;;$ search/output=u22.tmp u2.tmp bf
15 ;;$ search/output=u222.tmp u22.tmp op_/match=nor
16 ;;$ APPEND U222.TMP U11.TMP
17 ;;$ cnt=0
18 ;;$ bfcnt=0
19 ;;$ open/read a U11.TMP
20 ;;$READ_LOOP: !read USERS.tmp and start extracting what we need
21 ;;$ read/end=eof/error=error a line
22 ;;$ if f$extract(0,1,ans) .nes. "" then goto next_step
23 ;;$! say line
24 ;;$ next_step:
25 ;;$ if f$extract(1,2,line) .eqs. "BF" then bfcnt=bfcnt+1
26 ;;$ cnt=cnt+1
27 ;;$ goto read_loop
28 ;;$ next_one:
29 ;;$EOF: !end of file
30 ;;$ close a
31 ;;$ set ver
32 ;;$ open/append a XMUSRCNT.sav
33 ;;$ vmscnt=cnt-bfcnt
34 ;;$ time_stamp=f$time()
35 ;;$ scnt=f$string(cnt)
36 ;;$ svmscnt=f$string(vmscnt)
37 ;;$ sbfcnt=f$string(bfcnt)
38 ;;$ usercnt="''scnt',''sbfcnt',''svmscnt',''time_stamp'"
39 ;;$ write a "*****************************************************"
40 ;;$ write a time_stamp
41 ;;$ write a " VMS logins = "'VMSCNT'"."
42 ;;$ write a " VMS Batch jobs running = "'bfcnt'"."
43 ;;$ write a " TOTAL Interactive and Batch users = "'CNT'"."
44 ;;$ write a ''usercnt'
45 ;;$ close a
46 ;;$ purge/nolog leeuser.sav
47 ;;$ delete/nolog U1*.TMP.*,U2*.TMP.*
48 ;;$ dsm/envir=mgrmail/data="''usercnt'" ENUSER^XMUT5Q
49 ;;$! submit/que=forum7_batch XMUSRCNT.COM
50 ;;$ set nover
51 ;;$ exit
52 ;;$ERROR:
53 ;;$ say "Error has occurred during processing."
54 ;;$ SAY " "
55 ;;$! goto eof
56 ;;$exit
Note: See TracBrowser for help on using the repository browser.