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
