For Universe on Windows, I have also written a TASKLIST verb will which grab, from Windows, just those system tasks which are Universe jobs and match them up to the LISTU logins
This is because we're getting zombie processes, not attached to any LISTU. These must be caused either by Redback or by UniObjects I think. I don't think these are users clicking the X on their telnet sessions, and I know they are not standard phantoms, but I'm still digging into it. -----Original Message----- From: David L. Wasylenko <d...@pickpro.com> To: U2 Users List <u2-users@listserver.u2ug.org> Sent: Wed, Sep 5, 2012 9:04 am Subject: Re: [U2] A better LISTU Rocket should supply a system function, API etc to give DETAILED log-in information... We'll take it from there.... same with detailed locking, detailed port status blah blah. Bit off-topic... but frustration vented ... david ... David L. Wasylenko President, Pick Professionals, Inc w) 314 558 1482 d...@pickpro.com -----Original Message----- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Wednesday, September 05, 2012 11:00 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] A better LISTU By the way, the Universe (on Windows) LISTU gives under the Login Time column, the month, day, and military time. For some reason they didn't pad out the *day* if it's short (1, 2, 3, 4) with an extra 0, so if you have processes which logged in on the 27th, and then some on the 1st, then what happens is the time of day moves one character further over. Annoying. That's why I have the TIMEDATE and then I parse it on blanks to figure out the date versus the time. By the way, this will break over the end of a year as I'm only considering the current year. Maybe someone has a patch code for that situation too. -----Original Message----- From: Baakkonen, Rodney A (Rod) 46K (Rod) 46K <rodney.baakko...@cigna.com> To: 'U2 Users List' <u2-users@listserver.u2ug.org> Sent: Wed, Sep 5, 2012 7:44 am Subject: Re: [U2] A better LISTU It is taking some work to make it function in Unidata. But thanks for the framework. -Rod -----Original Message----- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Tuesday, September 04, 2012 1:06 PM To: u2-users@listserver.u2ug.org Subject: [U2] A better LISTU WLISTU pulls up the list sorted by date and time, and allows you to resort it by PID. It could be easily modified to allow sorting on any of the columns FFT.BP 'WLISTU' BASIC 71 lines Level: 3 0001 * 0002 * Writen Aug 2012 by Will Johnson 0003 * This routine sorts the LISTU table by date and then by time 0004 * Builds a multi-sub-valued table, so the times get sorted right 0005 * Then swaps the SVMs for VMs so it becomes a regular table 0006 * Then it also allows you to resort it by PID 0007 * 0008 EQUATE FALSE TO 0, TRUE TO 1 0009 TODAY = DATE() ; THIS.YEAR = OCONV(TODAY,'DY') 0010 SWITCH = "DATE" ; EXIT.PROGRAM = FALSE 0011 LOOP 0012 EXECUTE "LISTU", OUT > RESULTS 0013 SELECTV RESULTS TO L.RESULTS 0014 DONE = FALSE ; CNT = 0 ; HEADERS = '' ; TABLE = '' 0015 LOOP 0016 READNEXT LINE FROM L.RESULTS ELSE DONE = TRUE 0017 UNTIL DONE DO 0018 CNT += 1 0019 T.PID = LINE[16,5] 0020 T.TIMEDATE = LINE[62,13] 0021 T.DATE = OCONV(T.TIMEDATE,'G0 2'):' ':THIS.YEAR 0022 T.TIME = OCONV(T.TIMEDATE,'G2 1') 0023 IF SWITCH = "DATE" THEN GOSUB BY.DATE.AND.TIME 0024 IF SWITCH = "PID" THEN GOSUB BY.PID 0025 REPEAT 0026 TABLE<1> = HEADERS:@VM:TABLE<1> 0027 TABLE = CONVERT(@SVM,@VM,TABLE) 0028 * 0029 S.TABLE = DCOUNT(TABLE<1>,@VM) 0030 FOR I.TABLE = 1 TO S.TABLE 0031 IF TABLE<1,I.TABLE> # '' THEN 0032 PRINT I.TABLE'R%2':' ':TABLE<1,I.TABLE> 0033 END 0034 NEXT I.TABLE 0035 DISPLAY "SORT BY (D)ATE, (P)ID, OR (Q)UIT ": ; INPUT ANYTHING 0036 BEGIN CASE 0037 CASE ANYTHING = 'Q' ; EXIT.PROGRAM = TRUE 0038 CASE ANYTHING = 'P' ; SWITCH = 'PID' 0039 CASE ANYTHING = 'D' ; SWITCH = 'DATE' 0040 END CASE 0041 UNTIL EXIT.PROGRAM DO REPEAT 0042 STOP 0043 * 0044 BY.DATE.AND.TIME: 0045 I.DATE = ICONV(T.DATE,'D') ; I.TIME = ICONV(T.TIME,'MT') 0046 IF STATUS() THEN 0047 HEADERS<1,-1> = LINE 0048 END ELSE 0049 LOCATE I.DATE IN TABLE<2,1> BY 'AR' SETTING W.DATE ELSE 0050 TABLE = INSERT(TABLE,1,W.DATE;'') 0051 TABLE = INSERT(TABLE,2,W.DATE;I.DATE) 0052 TABLE = INSERT(TABLE,3,W.DATE;'') 0053 END 0054 LOCATE I.TIME IN TABLE<3,W.DATE,1> BY 'AR' SETTING W.TIME ELSE 0055 NULL 0056 END 0057 TABLE = INSERT(TABLE,1,W.DATE,W.TIME;LINE) 0058 TABLE = INSERT(TABLE,3,W.DATE,W.TIME;I.TIME) 0059 END 0060 RETURN 0061 * 0062 BY.PID: 0063 IF NUM(T.PID) THEN 0064 T.PID = TRIM(T.PID) + 0 0065 LOCATE T.PID IN TABLE<2,1> BY 'AR' SETTING W.PID ELSE NULL 0066 TABLE = INSERT(TABLE,1,W.PID;LINE) 0067 TABLE = INSERT(TABLE,2,W.PID;T.PID) 0068 END ELSE HEADERS<1,-1> = LINE 0069 RETURN 0070 * 0071 END _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ------------------------------------------------------------------------------ CONFIDENTIALITY NOTICE: If you have received this email in error, please immediately notify the sender by e-mail at the address shown. This email transmission may contain confidential information. This information is intended only for the use of the individual(s) or entity to whom it is intended even if addressed incorrectly. Please delete it from your files if you are not the intended recipient. Thank you for your compliance. Copyright (c) 2012 Cigna ============================================================================== _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
