DELETETABLE confirmation message - turn off? (AREV Specific)
At 30 SEP 1998 11:04:01AM Paxton Scott - ARCS, Inc. wrote:
I must be getting AREV rusty! How can I "turn off" the requirements for a response to the TCL command DELETETABLE? I tried changing the message type to "N" (W512), but the default response is N (No) and so my table does not get deleted! I tried using a TCL DATA statement before the DELETETABLE statement (DATA Y and DATA "y") but it is ignored, and user input is still required…..Can anyone give me guidance? Thanks bunches,
ARCS, Inc. [img]http://www.wws.net/arcs/arcslogo.gif[/img] </QUOTE> ---- === At 30 SEP 1998 11:13AM Dave Bennett wrote: === <QUOTE>For Version 2.x DELETEFILE {TABLE} (S) For Version 3.x CALL DELETETABLE_SUB({TABLE},'L') </QUOTE> ---- === At 30 SEP 1998 05:29PM Paxton wrote: === <QUOTE>Dave, Thanks for the reply, I guess you confirmed my suspions, that it can't be done at TCL...I was trying to use a batch of TCL commands to control a process, but i guess I'll need to stick in an RBasic subroutine unless someone knows another way. BTW I did not know that there was a deletetable_sub in 3.x. Not in manual, must have been added with the 3.12 upgrade. INSTRUCTIONS: Before beginning, establish the following subdirectories on the drive where the system will "live" 1. \UAIDOS 2. \UAIDOS\UPGRADE 3. \UAI 4. \UAI\DATA Install AREV 3.0 into the subdirectory \UAIDOS install 3.12 upgrade Create NEW account/application UAI Enter Application location UAISYS and press F9 Do NOT open the application now. From the inital menu, select Otions,Applications then applicatin name UAI, Location UAISYS will display. Then press F10 to get menu and select Advanced, fill in this: Startup Command: STARTUAI Environment: UAI Restriction Level (leave blank for now) Shell Code: E Command STARTUAI Press F9, F9 to save, then ESC to get back to main menu and select Application, Open and enter UAI and press Enter. You will get an error message saying it can't find STARTUAI. This is OK. Now, Insert the DEmon disk in the A: drive. (If from a zip file, unzip and place on diskette. With the DEMON disk in the drive, press F5 to get the command bar and type: RUN DOS A:DMSETUP When the installation completes, press and the DEMON menu will display. Select Version, and enter 0001 for the version number, enter and accept the default UAI, enter and type in any description, such as Initial install. Press F9 and then Esc. Then select Parameters from the Demon menu. Delete the N: from N:\UAI\DATA on the Monitored Volume Names field. Add the volume REVBOOT. (Note: this is a horzontal multivalue field. Press to move between data values.) Press F9 to save. The DEveloper's MONitor (DEMON) is now installed. Before running the first upgrade, establish the \UAI\DATA volume typing by the following command at the F5 (TCL) prompt. MAKETABLE \UAI\DATA DUMMY WE are now ready to install the first upgrade. Unzip the upgrade files and place them in the UPGRADE subdirectory At TCL, type the following series of commands. ATTACH UPGRADE COPY ARCS_CONTROL INSTALL TO: (VOC (O) INSTALL The install process produces several informational/error messages. Press enter when these are displayed. Next install the upgrade UAIUP1A.ZIP Unzip these files and place in UPGRADE subdirectory. (discard old files) At TCL, type UAIUPGRADE Several messages will display saying files already exist. Ignore and continue. AFter this upgrade runs, the upgrade menu can be used to install further upgrades and to view upgrade history. </QUOTE> ---- === At 30 SEP 1998 06:46PM Andrew P McAuley wrote: === <QUOTE>Well theoretically you could modify the message type to call a subroutine/function which returns true I guess. [email protected] [url=http://www.sprezzatura.com" ]Sprezzatura Lt
World Leaders in all things RevSoft
At 01 OCT 1998 10:02AM Aaron Kaplan wrote:
There is a knowledge base article on DeleteTable_Sub along with many other internal subroutines based on TCL commands.
Alternalively,
DELETETABLE JUNK (S
sucessfully deletes the table without prompting.
Also, you can use this program to change default processing from No to Yes (written to allow pressing ESC twice to close a window, hence the name, but has the same effect as what you need)
0001 SUBROUTINE DOUBLE_ESCAPE 0002 /***************************** 0003 0004 This program is proprietary and is not to be used by 0005 or disclosed to others, nor is it to be copied without 0006 written permission from Revelation Technologies, Inc. 0007 0008 ÷ VERSION : AdvRev 3.11 0009 0010 ÷ PURPOSE : To duplicate as best as possible the double escape from old 0011 versions 0012 0013 ÷ AUTHOR : Revelation Technologies Technical Support 0014 0015 ÷ CREATED : 06-08-94 0016 0017 ÷ PROCEDURES : 0018 0019 ÷ WARNINGS : 0020 0021 ÷ THEORY OF OPERATION : 0022 This program is used to change the default behavior of the system message 0023 W364 (The window has changes....). 0024 To dplicate this functionality with any other system message, follow these 0025 simple instructions: 0026 1. Create a new record in the MESSAGES file with the same key as the record 0027 in SYSMESSAGES you want to change the default 0028 2. Enter a C in line 1. (C is the cataylst type message) 0029 3. Enter a valid catalyst code and command sequence in field 11 (seperate 0030 the code and command by a value mark. 0031 0032 How and why this works: 0033 0034 The system defaults to checking the MESSAGES file before checking the 0035 SYSMESSAGES file. By placing a record in the MESSAGES gfile you can 0036 override the default behavoir of any system message. In this case, we are 0037 replacing the system message with a message of C type. A C type message 0038 does not display a message at all, but instead executes the catalyst 0039 code and command statement that is found in field 11 (MAPSCRIPT$) 0040 0041 Our program will read in the original message, pass a default value of YES$ 0042 to the message. When the subroutine is over, it must pass back the value 0043 MSG expect to see in the return value list as @ANS. (The returned value 0044 list is the third parameter of message) 0045 0046 ÷ REVISION HISTORY (Most CURRENT first) : 0047 0048 DATE IMPLEMENTOR FUNCTION 0049 -------- ----------- -------- 0050 MM-DD-YY initials Modification 0051 0052 *****************************/ 0053 0054 *÷ COMMON Variables (Terminate with '%') : 0055 0056 *÷ LABELED COMMON Variables (Terminate with '@') : 0057 0058 *÷ EQUATE Variables (Terminate with '$') : 0059 0060 EQU RTI$ TO 'Copyright (C) 1994, Revelation Technologies, Inc.' 0061 EQU TRUE$ TO 1 0062 EQU FALSE$ TO 0 0063 EQU YES$ TO 1 0064 EQU NO$ TO 0 0065 EQU OTHERWISE$ TO 1 0066 EQU NULL$ TO "" 0067 EQU SPACE$ TO \20\ 0068 0069 *÷ MESSAGES called (Terminate with '$') : 0070 0071 *÷ DECLARED - FUNCTIONS called : 0072 0073 *÷ DECLARED - SUBROUTINES called : 0074 declare subroutine msg, fsmsg 0075 /***************************** 0076 ÷ INDIRECT - FUNCTIONS/SUBROUTINES called if known (Make COMMENTS) : 0077 *****************************/ 0078 0079 0080 *÷÷ PROGRAM TOP 0081 0082 open 'SYSMESSAGES' TO sysMessages else fsmsg(); return 0083 0084 read map from sysMessages, 'W364' else fsmsg() ; return 0085 0086 retVal=YES$ 0087 msg('', map, retVal, '') 0088 0089 @ans=retVal 0090 0091 return 0092 0093 * 0094 * Source Date: 08:15:23 08 JUN 1994 Build ID: AREV*3.1.11 Level: