RE: [U2] Change Prompt
The SYSTEM() references in this routine are invalid for UniData. Does anyone know if there any similar reference for UniData? 0001: * Program to set the prompt character for a UniVerse Session 0002: * <1> is for TCL 0003: * <2> is used with an active Select list 0004: * <3> is the line continuation character. 0005: PMT = @LOGNAME : ' ': @WHO : ' > ' 0006: STELPROMPT = PMT 0007: STELPROMPT<2 > = @WHO : ' >>' 0008: STELPROMPT<3> = '+' 0009: ASSIGN 1 TO SYSTEM(4001) 0010: ASSIGN STELPROMPT TO SYSTEM(4002) Bottom at line 10. Thanks Tom Dodds --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Change Prompt
Try this one, it works on UniVerse 10.2.0 : P 0001: * Program to set the prompt character for a UniVerse Session 0002: * <1> is for TCL 0003: * <2> is used with an active Select list 0004: * <3> is the line continuation character. 0005: PMT = @LOGNAME : ' ': @WHO : ' > ' 0006: STELPROMPT = PMT 0007: STELPROMPT<2 > = @WHO : ' >>' 0008: STELPROMPT<3> = '+' 0009: ASSIGN 1 TO SYSTEM(4001) 0010: ASSIGN STELPROMPT TO SYSTEM(4002) Bottom at line 10. Tom Dodds [EMAIL PROTECTED] 630.235.2975 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dennis Bartlett Sent: Monday, February 18, 2008 11:07 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Change Prompt This code works a bomb! Brilliant thank you! The only problem is that now there aren't any >> when a search (SEARCH) finds anything. Has anybody a solution? (its just blank...) Eg BR201 >SEARCH BP STRING:SETTL STRING: 11 record(s) selected to SELECT list #0. There are records selected, but the users are sitting waiting for the >> -Original Message- IF @ACCOUNT = "mc" OR @ACCOUNT = "da" THEN STELPROMPT= @WHO : '>' END ELSE STELPROMPT = "Press G and hit ENTER to continue>" END ASSIGN 1 TO SYSTEM(4001) ASSIGN STELPROMPT TO SYSTEM(4002) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Change Prompt
This code works a bomb! Brilliant thank you! The only problem is that now there aren't any >> when a search (SEARCH) finds anything. Has anybody a solution? (its just blank...) Eg BR201 >SEARCH BP STRING:SETTL STRING: 11 record(s) selected to SELECT list #0. There are records selected, but the users are sitting waiting for the >> -Original Message- IF @ACCOUNT = "mc" OR @ACCOUNT = "da" THEN STELPROMPT= @WHO : '>' END ELSE STELPROMPT = "Press G and hit ENTER to continue>" END ASSIGN 1 TO SYSTEM(4001) ASSIGN STELPROMPT TO SYSTEM(4002) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Change Prompt
Easiest and "official" means of doing this is: COMMAND.EDITOR ON "MYPROMPT> " ;* Set COMMAND.EDITOR ON "> " ;* Reset Syntax is: COMMAND.EDITOR [ON|OFF] [ALL|VERBS] [INSERT|OVERLAY] ["Optional TCL Prompt String"] However, COMMAND.EDITOR is not officially supported and was developed by a third-party and shipped with UV for a specific client to port from PI/open to UV...according to an IBM U2 Powerpoint presentation I've seen about it. Regards, David -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Keith Johnson (DSLWN) Sent: Monday, February 18, 2008 9:08 AM To: u2-users@listserver.u2ug.org Subject: RE:[U2] Change Prompt In Universe, the following program (called PATH) will do this. To use it, just put PATH in the LOGIN command. PATH CLEAR puts things back to how they were. PATH FULL gives the full path name at the input prompt. == PATH program v SENTENCE = UPCASE(@SENTENCE) THIS = '' ; THAT = 1 BEGIN CASE CASE INDEX(SENTENCE,'CLEAR',1) ; THAT = 0 CASE INDEX(SENTENCE,'FULL',1) ; THIS = @PATH:'>' CASE 1 ; THIS = FIELD(@PATH,'/',DCOUNT(@PATH,'/')):'>' END CASE IF THIS NE '' THEN THIS<2> = THIS<1>:'>' THIS<3> = '+' END ASSIGN THIS TO SYSTEM(4002) ASSIGN THAT TO SYSTEM(4001) == PATH program ^ This version is for a UNIX system, you may have to change the '/' to '\' on Windows SYSTEM(91) = 0 on UNIX SYSTEM(91) = 1 on Windows Regards, Keith P.S. A great benefit of this is that you can then edit the command stack using the arrow keys. You have to use backspace to delete, though. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE:[U2] Change Prompt
In Universe, the following program (called PATH) will do this. To use it, just put PATH in the LOGIN command. PATH CLEAR puts things back to how they were. PATH FULL gives the full path name at the input prompt. == PATH program v SENTENCE = UPCASE(@SENTENCE) THIS = '' ; THAT = 1 BEGIN CASE CASE INDEX(SENTENCE,'CLEAR',1) ; THAT = 0 CASE INDEX(SENTENCE,'FULL',1) ; THIS = @PATH:'>' CASE 1 ; THIS = FIELD(@PATH,'/',DCOUNT(@PATH,'/')):'>' END CASE IF THIS NE '' THEN THIS<2> = THIS<1>:'>' THIS<3> = '+' END ASSIGN THIS TO SYSTEM(4002) ASSIGN THAT TO SYSTEM(4001) == PATH program ^ This version is for a UNIX system, you may have to change the '/' to '\' on Windows SYSTEM(91) = 0 on UNIX SYSTEM(91) = 1 on Windows Regards, Keith P.S. A great benefit of this is that you can then edit the command stack using the arrow keys. You have to use backspace to delete, though. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Change Prompt
I believe something on the lines of this was posted before. Here is what we use: IF @ACCOUNT = "mc" OR @ACCOUNT = "da" THEN STELPROMPT= @WHO : '>' END ELSE STELPROMPT = "Press G and hit ENTER to continue>" END ASSIGN 1 TO SYSTEM(4001) ASSIGN STELPROMPT TO SYSTEM(4002) and then that program gets called during the login process Marc Caminiti IS Manager Nashbar Direct, Inc 6103 State Route 446 Canfield, OH 44406 330.533.1989, ext 336 330.702.9733, fax Birthdays are good for you - the more you have the longer you live. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dennis Bartlett Sent: Thursday, February 14, 2008 10:21 AM To: u2-users@listserver.u2ug.org Subject: [U2] Change Prompt Oops sent the last on the wrong subject... sorry! -Original Message- From: Dennis Bartlett [mailto:[EMAIL PROTECTED] Sent: 14 February 2008 05:20 PM To: 'u2-users@listserver.u2ug.org' Subject: RE: [U2] CSV output Hi Is there any way to change the > prompt to something like BR299>? It would really help to know where I am, whilst hopping from branch to branch. Thanks --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/