Here is my simple program. Before the critics begin, remember it was written 14 years ago, and it does work. :D
Some simple rules: 1) Set STACKWRITE to "OFF" 2) Compile and catalog UTL.STACK. 3) Add the command "UTL.STACK IN" to your login paragraph/proc. 4) Add to the ON.EXIT paragraph/proc (or create one) that has "UTL.STACK OUT". 5) 1-4 are true for all accounts you want to utilize this utility. 6) This is AS IS, there are no implied or explicit warranties. Make sure you understand what this is doing, and test, before putting this on your live system. Tom PROGRAM UTL.STACK * PROGRAM TITLE : UTL.STACK * AUTHOR : Tom Whitmore * CREATION DATE : 03/06/98 * SAR NUMBER : * DESCRIPTION : This will either save or retrieve a command stack. * INCLUDES : NONE * EXTERNAL CALLS: NONE * CALLED BY : NONE * FILES UPDATED : NONE * ************************************************************************* * MODIFICATIONS: * ************************************************************************* * COMMON/STKCOM/STACK.NO * * Open files * ABORT.FLAG = "" WHOAMI = UPCASE(@LOGNAME) IF (SYSTEM(91)) THEN WHOAMI=FIELD(WHOAMI,'\',2) IF WHOAMI='' THEN WHOAMI=UPCASE(@LOGNAME) END OPEN "DICT","&SAVEDLISTS&" TO SAVEDLISTS.FILE ELSE ABORT.FLAG<-1> = "DICT ":WHOAMI:".DATA" END * IF ABORT.FLAG # '' THEN CRT @(-1):@(10,5):"Unable to open the following files:" CNTR = 6 POS = 0 LOOP REMOVE FILE.NAME FROM ABORT.FLAG SETTING POS UNTIL POS = 0 AND FILE.NAME = "" CNTR += 1 CRT @(15,CNTR):FILE.NAME REPEAT ABORT END * GOSUB INIT * ***************************************************************** *** Begin Main Program *** ***************************************************************** GET(ARG.) OPTION ELSE BEGIN CASE CASE @PARASENTENCE='ON.EXIT' OPTION='OUT' CASE @PARASENTENCE='ON.ABORT' RETURN CASE 1 OPTION='IN' END CASE END READ CTRL FROM SAVEDLISTS.FILE, WHOAMI:'.STACK.CONTROL' ELSE CTRL = '' IF CTRL<1> # DATE() THEN CTRL<1> = DATE() CTRL<2> = 0 CTRL<3> = "" END IF OPTION = 'IN' AND NOT(STACK.NO) THEN IF CTRL<3> # "" THEN STACK.NO = CTRL<3,1> DEL CTRL<3,1> END ELSE STACK.NO = CTRL<2> + 1 CTRL<2> = STACK.NO END EXECUTE "GET.STACK ":WHOAMI:STACK.NO END IF OPTION = 'OUT' THEN IF STACK.NO = 0 THEN STACK.NO = CTRL<2> + 1 CTRL<2> = STACK.NO END LOCATE STACK.NO IN CTRL<3>,1 BY "AR" SETTING FOUND ELSE INS STACK.NO BEFORE CTRL<3,FOUND> END EXECUTE "SAVE.STACK ":WHOAMI:STACK.NO END WRITE CTRL TO SAVEDLISTS.FILE, WHOAMI:'.STACK.CONTROL' GO TERMINATE * ***************************************************************** *** End Main Program *** ***************************************************************** * ***************************************************************** *** Begin Subroutines *** ***************************************************************** * INIT: PROMPT "" RETURN * TERMINATE: * FINISH: * RETURN TO FINISH END -----Original Message----- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Saturday, May 05, 2012 9:39 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Command that turns off default command stacker Yes I'm interested. -----Original Message----- From: Tom Whitmore <tewhitm...@ratex.com> To: U2 Users List <u2-users@listserver.u2ug.org> Sent: Sat, May 5, 2012 5:56 pm Subject: Re: [U2] Command that turns off default command stacker I had written a simple process that was added to the LOGIN paragraph and the ON.EXIT paragraph. It used the login id and a sequence number, to retrieve the stack and save the stack on exit... of course I also turned off the STACKWRITE. This worked quite well, and limited the number of command stacks saved. I can dig up my code and share it if anyone is interested. Tom -----Original Message----- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Saturday, May 05, 2012 5:19 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Command that turns off default command stacker Yep it's already in the stack below :) That's what you get for reading only the top post! -----Original Message----- From: Clifton Oliver <w...@oliver.com> To: U2 Users List <u2-users@listserver.u2ug.org> Cc: u2-users <u2-users@listserver.u2ug.org> Sent: Sat, May 5, 2012 2:16 pm Subject: Re: [U2] Command that turns off default command stacker >ED VOC STACKWRITE Change ON to Off I think that's what you are looking for. On May 5, 2012, at 12:11 PM, Wjhonson <wjhon...@aol.com> wrote: > > The users arent getting to TCL > The stack is created simply by logging in. > It doesn't matter if you are at TCL or not. > > > > > > > -----Original Message----- > From: Bill Haskett <wphask...@advantos.net> > To: U2 Users List <u2-users@listserver.u2ug.org> > Sent: Sat, May 5, 2012 12:06 pm > Subject: Re: [U2] Command that turns off default command stacker > > > ok, well... a reasonably written replacement is a shell. You never > get to real tcl, so you don't have that problem. > > Bill > > ----- Original Message ----- > *From:* wjhon...@aol.com > *To:* u2-users@listserver.u2ug.org > *Date:* 5/5/2012 12:04 PM > *Subject:* Re: [U2] Command that turns off default command stacker >> It isn't, that's the point. >> It's turned on by default when you load Universe It sits there in the >> background creating thousands of savedlists since it > makes one for every user and port combination >> >> We have thousands of ports and dozens of users and it's been this way >> for 8 > years now >> >> Times every account they may log to and some of our users log into >> multiple > accounts during the day >> The 40,000 lists i mentioend was for just *one* account. >> The users dont use the stacker, but that doesnt matter it merrily >> creates a > stack that just says LOGIN ove and over and over >> >> >> >> >> >> -----Original Message----- >> From: Bill Haskett<wphask...@advantos.net> >> To: U2 Users List<u2-users@listserver.u2ug.org> >> Sent: Sat, May 5, 2012 11:50 am >> Subject: Re: [U2] Command that turns off default command stacker >> >> >> After all of these years, it's hard for me to digest the fact that >> the porcine U2 stacker is even in use! :-) >> >> Bill >> >> --------------------------------------------------------------------- >> --- >> ----- Original Message ----- >> *From:* wjhon...@aol.com >> *To:* u2-users@listserver.u2ug.org >> *Date:* 5/5/2012 8:43 AM >> *Subject:* Re: [U2] Command that turns off default command stacker >>> Well you have to do it at least once! >>> In a single one of our accounts we had 44000 of these buggers >>> >>> >>> -----Original Message----- >>> From: Allen Elwood RR<aelw...@socal.rr.com> >>> To: U2 Users List<u2-users@listserver.u2ug.org> >>> Sent: Sat, May 5, 2012 1:02 am >>> Subject: Re: [U2] Command that turns off default command stacker >>> >>> >>> or you could just write a program to purge the file of those entries >>> and run it from time to time :-) >>> >>> On 5/4/2012 5:35 PM, Wjhonson wrote: >>>> I found the answer >>>> >>>> In the VOC is an item called STACKWRITE the first attribute is an X >>>> the second attribute says ON >>>> >>>> If you change that second attribute to OFF then universe will stop >>>> creating all these thousands of savedlists entries >> which are keyed to user combined with port number >> >> _______________________________________________ >> 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 _______________________________________________ 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 _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users