Re: [U2] Read yourself

2014-05-13 Thread Will Johnson
To: Will Johnson wjhon...@aol.com Sent: Tue, May 13, 2014 1:41 pm Subject: Re: Read yourself Actually, expounding on that. You could have a program insert the program and file name into a program Not recompile - just the source Then as you get a chance to modify each program to become self

Re: [U2] Left Outer Join Question

2014-03-05 Thread Keith Johnson [DATACOM]
I wrote a paragraph called ML to use MERGE.LIST on saved lists - much easier than assembling the lists manually. PA * ML type list1 list2 list3 * I2,TYPE IF TYPE = U THEN GO THERE IF TYPE = D THEN GO THERE IF TYPE = I THEN GO THERE DISPLAY DISPLAY Command Format is DISPLAY ML type list1 list2

Re: [U2] Left Outer Join Question

2014-03-04 Thread Will Johnson
SELECT OLDMAS 5247 records selected NSELECT TRWMONTHEND -Original Message- From: randyleesmith [via U2 (UniVerse UniData)] ml-node+s1073795n42772...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Tue, Mar 4, 2014 4:39 am Subject: Re: Left Outer Join Question I tried

Re: [U2] Left Outer Join Question

2014-03-04 Thread Will Johnson
U2 (UniVerse UniData)] ml-node+s1073795n4277...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Tue, Mar 4, 2014 10:43 am Subject: Re: Left Outer Join Question Using NSELECT works as long as I don't do a complicated statement with it. NSELECT OLDMAS WITH CO = SF

Re: [U2] Reporting Tools

2014-03-04 Thread Will Johnson
How option an (Option to include or not include column headings ? -Original Message- From: Riverman [via U2 (UniVerse UniData)] ml-node+s1073795n4278...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Tue, Mar 4, 2014 10:53 am Subject: Re: Reporting Tools I created

Re: [U2] Left Outer Join Question

2014-03-04 Thread Will Johnson
Explain this concern better, I don't understand it. -Original Message- From: randyleesmith [via U2 (UniVerse UniData)] ml-node+s1073795n42784...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Tue, Mar 4, 2014 11:07 am Subject: Re: Left Outer Join Question If I do

Re: [U2] Left Outer Join Question

2014-03-03 Thread Will Johnson
How about a U2 way to deal with it? -Original Message- From: randyleesmith [via U2 (UniVerse UniData)] ml-node+s1073795n42740...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Mon, Mar 3, 2014 9:43 am Subject: Left Outer Join Question I have 2 files. File 2

Re: [U2] SELECTINDEX problem Universe 11.1.11

2014-02-21 Thread Will Johnson
I always understood the index to be atomic, so Macke selects Macke and Mackenzie selects Mackenzie -Original Message- From: mbeggs [via U2 (UniVerse UniData)] ml-node+s1073795n42711...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Fri, Feb 21, 2014 2:15 pm Subject

Re: [U2] Using a ( at the end of a Select statement

2014-02-13 Thread Will Johnson
a day when your client was not on Universe at all, but rather on some earlier thing like mvBase -Original Message- From: randyleesmith [via U2 (UniVerse UniData)] ml-node+s1073795n42672...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Thu, Feb 13, 2014 11:17 am Subject: Using

Re: [U2] Using a ( at the end of a Select statement

2014-02-13 Thread Will Johnson
To: Will Johnson wjhon...@aol.com Sent: Thu, Feb 13, 2014 11:48 am Subject: Re: Using a ( at the end of a Select statement It's possible the system I'm on started out in the 70's. I do use (P with select for outputting to a printer. So I thought maybe there were other control items

Re: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine

2014-01-28 Thread Keith Johnson [DATACOM]
Hi, LeRoy Dreyfuss said that you would have to change 52 to 12 for EXIST to work. The globally cataloged programs have an extra 40 characters put on the front, so that would cause a problem. @RECORD[1,4] is a count of the number of times the program has been used. @RECORD[5,8] is who

Re: [U2] Regarding: LISTING SUB-VALUES

2013-12-27 Thread Will Johnson
)] ml-node+s1073795n42411...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Fri, Dec 27, 2013 5:32 am Subject: Re: Regarding: LISTING SUB-VALUES Anthony meant: 002: CUSTOMER.PHONE.NUMBER1,3 On 12/27/2013 1:08 PM, Wols Lists wrote: CUSTOMER.PHONE.NUMBER.3 0001: I 0002

Re: [U2] Accuterm the Web version

2013-12-23 Thread Will Johnson
No there is a web based version of Accuterm. Not the Editor. The telnet if you will, that lets you run the data entry screens, etc. -Original Message- From: Bertrand, Ron [via U2 (UniVerse UniData)] [via U2 (UniVerse UniData)] ml-node+s1073795n42397...@n5.nabble.com To: Will Johnson

Re: [U2] Exporting to File regularly

2013-12-11 Thread Will Johnson
to space fill or null fill the leftover ends of files or groups within files. The true end boundary is marked by a special character, or a pre-known length. -Original Message- From: David Campbell [via U2 (UniVerse UniData)] ml-node+s1073795n42277...@n5.nabble.com To: Will Johnson

Re: [U2] Recommended 11.1.point release to upgrade to.

2013-10-14 Thread Will Johnson
We are on Universe 11.1.9 on top of Win7 Professional Have been for about a year. -Original Message- From: mbeggs [via U2 (UniVerse UniData)] ml-node+s1073795n41968...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Wed, Oct 9, 2013 10:27 am Subject: Re: Recommended 11.1

Re: [U2] [OT] Interview Questions

2013-10-11 Thread Will Johnson
+s1073795n41995...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Fri, Oct 11, 2013 12:25 pm Subject: Re: [OT] Interview Questions Kevin: After actually hiring a lot of people, and firing those that needed it, I've come to the conclusion that all employers need a person

Re: [U2] Interesting....

2013-10-02 Thread Will Johnson
Is BREAK=NULL what you expected to see ? -Original Message- From: George Gallen-2 [via U2 (UniVerse UniData)] ml-node+s1073795n41901...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Wed, Oct 2, 2013 10:46 am Subject: Re: Interesting PTERM DISPLAY

Re: [U2] Recommended 11.1.point release to upgrade to.

2013-09-24 Thread Will Johnson
...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Tue, Sep 24, 2013 2:29 pm Subject: Recommended 11.1.point release to upgrade to. We're finally going to upgrade from 10.2.10 to 11.1.[something]. But which point release? We're on Win2003. (Linux next year. Baby steps.) Release

Re: [U2] No mail

2013-09-23 Thread Will Johnson
Are you saying you got the emails? Cause I'm still getting ZERO emails from the list, for over a week now. -- View this message in context: http://u2-universe-unidata.1073795.n5.nabble.com/No-mail-tp41844p41860.html Sent from the U2 - Users mailing list archive at Nabble.com.

Re: [U2] No mail

2013-09-23 Thread Will Johnson
. -Original Message- From: Tony Gravagno-3 [via U2 (UniVerse UniData)] ml-node+s1073795n41861...@n5.nabble.com To: Will Johnson wjhon...@aol.com Sent: Mon, Sep 23, 2013 3:26 pm Subject: Re: No mail I'm getting mails for this thread, nothing else seems to be going to the list at the moment

Re: [U2] No mail

2013-09-20 Thread Will Johnson
Still no mail from the list. -- View this message in context: http://u2-universe-unidata.1073795.n5.nabble.com/No-mail-tp41844p41855.html Sent from the U2 - Users mailing list archive at Nabble.com. ___ U2-Users mailing list

Re: [U2] TU.TO.EXCEL path

2013-09-20 Thread Will Johnson
What's your terminal emulator? Or does SB+ have it's own included emulator? -- View this message in context: http://u2-universe-unidata.1073795.n5.nabble.com/Re-TU-TO-EXCEL-path-tp41846p41854.html Sent from the U2 - Users mailing list archive at Nabble.com.

Re: [U2] [JOB] in Colorado ?

2013-09-18 Thread Will Johnson
Thanks Kevin, now I can add the city location to my list. For the others who responded, that link had *two* job ads. I was referring to the second one listed as Kevin found. -- View this message in context: http://u2-universe-unidata.1073795.n5.nabble.com/JOB-in-Colorado-tp41839p41845.html

Re: [U2] What is true

2013-07-31 Thread Keith Johnson [DATACOM]
Hi Wil, That indeed was my code - ten years old now! I think I read the same article as Kevin. I don't use it in my day to day programming (which is in Universe and QM, thus using @TRUE and @FALSE) but I think I still would use it for Pickwiki. Just a style thing - de gustibus non disputandum

Re: [U2] 'DBTA 100: The Companies That Matter Most in Data'

2013-06-05 Thread Keith Johnson [DATACOM]
DBTA has always been sympathetic to the MV market. I note not only Rocket but also Entrinsik, Kore, Mpower1, Pickcloud, Revelation in the list Regards, Keith ___ U2-Users mailing list U2-Users@listserver.u2ug.org

Re: [U2] Dumping data to file from TCL

2013-02-24 Thread Keith Johnson [DATACOM]
Hi Phil, If it's just a matter of turning a two-step process into one step, would a Paragraph be reasonable? Just thinking of something along the lines of... PA IF I2,File = '' THEN GO ENDIT IF I3,IType = '' THEN GO ENDIT IF I4,ExportDirectory = '' THEN GO ENDIT IF I5,Datadump.dat = '' THEN GO

Re: [U2] CSV to Array

2012-08-20 Thread Keith Johnson [DATACOM]
No-one seems to have done it, but here's my version of the code. It's strange, I don't have a problem with CONTINUE and I don't even mind IF SOMETHING ELSE THIS = THAT which a lot of people really hate, but I just HAD to reverse the IF/CASE statement order. SUBROUTINE REXY(RECORD,TEXT)

Re: [U2] trimming a list (a test of your ability)

2012-07-16 Thread Keith Johnson [DATACOM]
Universe gives a slight lead to -1 too. Also, it compiles Y = Y:CHAR(254):I and Y := CHAR(254):I to exactly the same thing. I checked with VLIST and even edited the compiled code to be sure. ALSO (and this surprised me) it doesn't support ROUNDS *= 2 The documenation (Universe BASIC 2-25)

Re: [U2] Is there any way to tell if I am in an EXECUTE level and CAPTURING is turned on?

2012-07-03 Thread Keith Johnson [DATACOM]
I just noticed this in the help for QM's SYSTEM() 1000 Returns 1 if EXECUTE CAPTURING is in effect, 0 otherwise Checked if this was an undocumented feature that Martin had reproduced; but no, it doesn't work in Universe. Regards, Keith ___

[U2] Exiting UniData

2012-07-03 Thread Keith Johnson [DATACOM]
Hi John, I'm on an SB+ site on Universe which is completely unrelated to Epicor. Our QUIT is an exact copy of SH.OFF, which is a local catalogue pointer to the program code. I believe SH.OFF tidies up various SB+ stuff and then chains to OFF, and that this is the standard behaviour of SB+

Re: [U2] RESIZE - dynamic files

2012-07-03 Thread Keith Johnson [DATACOM]
Doug may have had a key bounce in his input Let's do the math: 258687736 (Record Size) 192283300 (Key Size) The key size is actually 19283300 in Chris' figures Regarding 68,063 being less than the current modulus of 82,850. I think the answer may lie in the splitting process.

Re: [U2] Is there any way to tell if I am in an EXECUTE level and CAPTURING is turned on?

2012-06-27 Thread Keith Johnson [DATACOM]
Hi Doug, Another way to skin the cat- Check the @LEVEL in the error display program and if it's not 1 use a timed input. Unidata has INPUT WAITING, while for Universe, there is a program do do the same at http://www.pickwiki.com/cgi-bin/wiki.pl?InputWait Perhaps do the timed input anyway with

Re: [U2] Proc question

2012-05-08 Thread Keith Johnson [DATACOM]
Hi Kebbon, I don't like Procs, but * Set the primary input buffer as active SP * Activate the primary output buffer STOFF * Alternatively, clear both output buffers and make the primary the active one RO * Set the input buffer pointer to the first (or whatever) parameter S1 * Move a

Re: [U2] READU vs READ

2012-05-01 Thread Keith Johnson [DATACOM]
If the multivalues have many many values, and you are adding to the end, then a speed up may be possible. MATREAD in the data, RAISE those array elements you are changing. Before the MATWRITE, LOWER all array elements you raised. As I understand it, Universe keeps internal track on

Re: [U2] The CONTINUE statement

2012-04-29 Thread Keith Johnson [DATACOM]
Just to be annoyingly pedantic - the second code snippet is missing an END FOR I = 1 TO X do something IF some condition THEN CONTINUE do something else NEXT I Versus FOR I = 1 TO X do something IF NOT(some condition) THEN do something else NEXT I

Re: [U2] The RETURN TO statement was the CONTINUE statement

2012-04-29 Thread Keith Johnson [DATACOM]
Hi Wil, They can't do that because then their line editor would break - It has 58 occurances of RETURN TO Message: 27 Date: Fri, 27 Apr 2012 08:38:05 -0400 (EDT) From: Wjhonson wjhon...@aol.com To: u2-users@listserver.u2ug.org Subject: Re: [U2] The RETURN TO statement was the CONTINUE

Re: [U2] RETURN TO (again)

2012-04-29 Thread Keith Johnson [DATACOM]
I never used it in anger, but I was rather drawn to the Presley-friendly form SENDER: RETURN TO SENDER I actually used the following progam a long time ago, but only to test that EQU...LIT... workedhow I thought it did. Try it - Press T a few times then X and watch it unwind the call stack.

Re: [U2] Case Statement with only two cases... or for that matter... one case

2012-04-25 Thread Keith Johnson [DATACOM]
Hi Will, As I said, I don't use it myself, but a reason one might use it is that one can easily cut and paste (or include) logic. For example: --- LOCKED put some generic logic here END --- regards, Keith WJohnson wrote: Why the extra lines? Why not just

Re: [U2] EXIT ; EXIT inside a loop

2012-04-23 Thread Keith Johnson [DATACOM]
I think the UNTIL should be in behind NEXT A2, rather than on the FOR line. Hoping to lighten the day... BAIL = 0 FOR A1 = 1 TO XYZZY FOR A2 = 1 TO Y little twisted logic IF G # H THEN BAIL = 51 ;* error code UNTIL BAIL DO twisted little logic

Re: [U2] Case Statement with only two cases... or for that matter... one case

2012-04-23 Thread Keith Johnson [DATACOM]
I prefer the layout of IF A = TEST THEN GOSUB DO.SOMETHING ;* Say why ELSE GOSUB DO.SOMETHING.ELSE ;* The reason However, here is a form that's rarely used, but does work. IF A = TEST THEN ;* say why in a long-winded manner GOSUB DO.SOMETHING END

Re: [U2] Detecting idle time in INPUT statement.

2012-03-27 Thread Keith Johnson [DATACOM]
If anyone DOES want the equivalent of Unidata's INPUT... WAITING for Universe... http://www.pickwiki.com/cgi-bin/wiki.pl?InputWait Regards, Keith ___ U2-Users mailing list U2-Users@listserver.u2ug.org

Re: [U2] Code style ? or code silliness ?

2012-03-25 Thread Keith Johnson [DATACOM]
The examples as given were not equivalent. THE.READ = STR('0',DIALS-LEN(THE.READ)):THE.READ versus THE.JUST = R#:LEN(THE.READ); THE.READ = THE.READ THE.JUST Apart from the % to # change, the second example ignores DIALS and justifies within the length of THE.READ I assume the second one

Re: [U2] Building an Excel File

2012-02-08 Thread Keith Johnson [DATACOM]
I'm curious; was the university in Florida Barry University? Someone I worked with years ago went there as a Pick programmer. The following code might be helpful subroutine ucsv(result,source,status,is.oconv) * * Public Domain program for OpenQM by Keith Johnson 2012 * * OCONV Converts

Re: [U2] End of Month date routine

2011-12-06 Thread Keith Johnson [DATACOM]
Mr Castro's code wins. Pure elegance. Marco Antonio Rojas Castro - initials M.A.R.C. My uncle's name is Roy Owen Young - I tease him it's so he can remember it. Regards, Keith ___ U2-Users mailing list U2-Users@listserver.u2ug.org

Re: [U2] End of Month date routine

2011-12-05 Thread Keith Johnson [DATACOM]
Dave Laansma took a more generic approach which does not require knowledge of the date format - hence I thought it preferable. My style would move the addition and subtraction around as below I assumed one would want the last day of the month for any called date otherwise uncomment line 2

Re: [U2] Changing TCL prompt?

2011-10-05 Thread Keith Johnson [DATACOM]
This program works for Universe on a UNIX machine giving three commands PATH FULL would give aprompt like /usr/ibm/uv PATHwould give a prompt like uv PATH CLEAR would give a prompt like PROGRAM PATH

Re: [U2] Simple Masking of Password Input (Universe Basic)

2011-08-16 Thread Keith Johnson [DATACOM]
It's not all that simple, but try http://www.pickwiki.com/cgi-bin/wiki.pl?FieldInput ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: [U2] UniBasic SELECT

2011-07-31 Thread Keith Johnson [DATACOM]
The problem may be in the use of program variables in the executed code. Using Universe, if I have code: VERB = 'SELECT VOC LIKE A...' EXECUTE VERB CRT @SELECTED CLEARSELECT I get the result 237 record(s) selected to SELECT list #0. 237 If I change the filename to something that doesn't exit,

[U2] LED editor for Universe

2011-05-05 Thread Keith Johnson [DATACOM]
The latest version I use has a copy at https://sites.google.com/site/nzpickie/home/programs It has a BLEACH command to turn colour on and off - named after Brian Leach who let me steal his method! The colour options are based on HostAccess - other terminals have different methods. Modifying

Re: [U2] Socket Exception

2011-04-08 Thread Steve Johnson
with it when the target framework was 4.0. Don't know when the general release will be. Regards, Steve Johnson On Fri, Apr 8, 2011 at 8:53 AM, Pradeep Parboji pparb...@dufresne.cawrote: Hello, I am new to UniData and I'am hoping someone can help me with this error I am getting when trying to connect

Re: [U2] Is this worth rewriting?

2011-03-03 Thread Keith Johnson [DATACOM]
I liked Brian's IF (TEA : EAT : ATE) # '' THEN CUM(M) = TEA + EAT + ATE It looks neater in VLIST - don't know if it's faster. multi_cat might be a beast 2: IF (TEA : EAT : ATE) # '' THEN X = TEA + EAT + ATE 2 00012 : 104 multi_cat TEA EAT ATE = $R0 2 0001E : 106 ne

Re: [U2] Is this worth rewriting?

2011-03-03 Thread Keith Johnson [DATACOM]
Lots of things I didn't think of... My last try 001: MONTHLY.USAGE: 002: CM = MONTH + LY.CNT 003: TEA = RAISE(PARMS(12)101) 004: EAT = RAISE(PARMS(12)133) 005: ATE = RAISE(PARMS(12)134) 006: YAM = RAISE(PARMS(7)100) 007: AMY = RAISE(PARMS(7)101) 008: MYA = RAISE(PARMS(7)102) 009: FOR M = 1 TO 12

Re: [U2] Is this worth rewriting?

2011-03-02 Thread Keith Johnson [DATACOM]
Agreed that the dimensioned extract wouldn't make much difference, still the attributes numbers are quite high. The code below goes from 15 extracts maximum per for-next loop to 6. I can't help but think this might mean something if it takes 90 minutes to run. 001: MONTHLY.USAGE: 002: CM =

Re: [U2] [UV] UniVerse Uptime

2011-02-17 Thread Keith Johnson [DATACOM]
We stop and start the Universe database and do a UNIX backup, so either ps -e -o etime -o comm | grep uvdlockd Or ps -e -o etime -o comm | grep unirpcd Seem to be reasonable ways of seeing how long it's been up Regards, Keith

RE: [U2] UV Timed INPUT

2009-03-15 Thread Keith Johnson [DATACOM]
David Norman asked for a timed input for Universe. There is a program to replicate the Unidata timed input at http://www.pickwiki.com/cgi-bin/wiki.pl?InputWait --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/

Re: [U2] DO/WHILE vs IF THEN

2009-03-02 Thread Keith Johnson [DATACOM]
Mark Johnson suggested the following change Before GOOD.ANS=FALSE LOOP UNTIL GOOD.ANS DO PRINT ENTER 'Y' OR 'N' :;INPUT ANS IF ANS=Y OR ANS=N THEN GOOD.ANS=TRUE REPEAT after LOOP WHILE TRUE DO PRINT ENTER 'Y' OR 'N' :;INPUT ANS IF ANS=Y OR ANS=N THEN EXIT REPEAT These forms all work

RE: [U2] Normal SELECT behavior? [UD]

2008-11-05 Thread Keith Johnson [DATACOM]
LIST POH F1 WITH F1 = 000700 will do a numeric comparison if it can. You can force a string comparison by using LIST POH F1 WITH F1 LIKE '000700' That is; double quote, single quote, zero, zero, zero, seven, zero, zero, single quote, double quote. Regards, Keith --- u2-users mailing list

RE: [U2] UniData PROC tip: DB command

2008-08-04 Thread Keith Johnson (DSLWN)
Baker Hughes wrote The man (person) who writes a PROC interpreter/conversion utility that can take a PROC and turn it into either Basic, or a PAragraph, will have a product to sell... I tried really really really hard to do this a few years ago. The code got more and more complicated until I

RE: [U2] CAPTURING TOXML

2008-07-28 Thread Keith Johnson (DSLWN)
Following on from Mike Henderson's post... Maybe the best idea is to use GETXMLSUB itself as your subroutine call. It handles the case where the XMLExecute function returns a fail status, but a subsequent XMLGetError function doesn't have an error code by assigning a new error code of 80120 and

[U2] unsubscribe u2-users

2008-06-25 Thread Keith Johnson
--- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/

Re: [U2] execute code/proc question HELP!!!!!!!!

2008-05-26 Thread Keith Johnson (DSLWN)
Assume one has PROGRAM in USUAL.BP. Write NEW.PROGRAM in DOUGS.BP with this at the beginning. 001 SUBROUTINE PROGRAM(V1,V2,V3...) 002 * 003 IF @LOGNAME NE DOUG THEN 004CALL ORIG.PROGRAM(V1,V2,V3...) 005RETURN 006 END 007 * continue with the new program At TCL do these

RE: [U2] Universe XML is not to standard

2008-05-11 Thread Keith Johnson (DSLWN)
) Johnson --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/

Re: [U2] [UV] Scared to recompile

2008-05-11 Thread Keith Johnson (DSLWN)
Using VLIST to compare old and new programs is a good idea. You're probably OK on 10.1, but if you want to do this in future, be aware that VLIST may crash on UV 10.2 when used on older programs. If this happens, change the 8th character from 000 to 016. VLIST may then work, although the code

[U2] Universe XML is not to standard

2008-05-07 Thread Keith Johnson (DSLWN)
The software I am supporting has a user screen which builds and saves enquiry statements (English/Access/Recall). I recently created another screen to allow users to use the defined statement/report to output XML to the HOLD file and to transfer the results to their PC. All well and good, but

RE: [U2] blank lines in code / mixed case

2008-03-11 Thread Keith Johnson (DSLWN)
On Mon, 10 Mar 2008, Jerry Banker wrote... If you ever want a scare then go through the programs in the Universe BP file. Some are upper case program lines with mixed case comments and prompts, the way I prefer it, some are all lower case, some are mixed case, and some are a mixture of all

RE:[U2] Change Prompt

2008-02-17 Thread Keith Johnson (DSLWN)
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 = '' ;

[U2] CSV output

2008-02-12 Thread Keith Johnson (DSLWN)
These might be useful. To save typing, I decided to use Q for QUOTE, C for COMMA and T for TAB. And since I thought it likely that I would use QUOTE COMMA QUOTE (or Q C Q) a lot, I also set up D (for DELIMITER) as below. Also q and d which use double quotes. Top of D in VOC, 20 lines, 108

RE: [U2] Deep and long indentations vs multiple exit points

2007-12-02 Thread Keith Johnson (DSLWN)
IF GOOD THEN GOSUB OPERATION.5 Which I personally find far more readable than the indented code. Regards, Keith De gustibus non est disputandum Johnson --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/

Re: [U2] [UV] Can I get some advice on triggers?

2007-11-28 Thread Keith Johnson (DSLWN)
A big Thank You to everyone for the information. In the end it was straightforward, but I stumbled on a couple of the steps. Maybe this will help others Firstly, I wanted the code to be locally, not globally, cataloged. Our CATALOG verb has PICK.FORMAT rather than INFORMATION.FORMAT on line 6,

RE: [U2] Good Practice?

2007-11-27 Thread Keith Johnson (DSLWN)
Thanks for putting up the right link, Thomas. (dammit, I must measure BEFORE cutting... measure BEFORE cutting... hit self) To answer Ed's questions, 1. nap 5 sleeps for 5 milliseconds. It may not be necessary, so you could comment it out and see how that goes. If you do get comm. delay that

RE: [U2] Good Practice?

2007-11-26 Thread Keith Johnson (DSLWN)
Hi Mark, Just a couple of points. First, the value of F200.SCHEME.CODE of CK *cannot* trigger a false positive. TEST = '\AF1\CK1\CK2\H\LHC\MP\NU1\NU2\TK1\TK2\' IF INDEX(TEST,'\':F200.SCHEME.CODE:'\',1) THEN THAT = @FALSE is fairly bulletproof because of the backslashes around both the

RE: [U2] Good Practice?

2007-11-26 Thread Keith Johnson (DSLWN)
Craig Bennett pointerd out that TEST = '\AF1\CK1\CK2\H\LHC\MP\NU1\NU2\TK1\TK2\' IF INDEX(TEST,'\':F200.SCHEME.CODE:'\',1) THEN THAT = @FALSE *can* generate a false positive if F200.SCHEME.CODE contains an embedded slash. In this case it can't, because the F200.SCHEME.CODE is validated on

[U2] [UV] Can I get some advice on triggers?

2007-11-26 Thread Keith Johnson (DSLWN)
Hi, I'm hoping someone can give me some help on triggers. I want to put a trigger on a file to datestamp address changes. The system manual (25119270.pdf) says that triggers aer set up by the command CREATE TRIGGER trigger.name [BEFORE|AFTER|UPDATE] But when I try that I get an SQL prompt.

[U2] Good Practice?

2007-11-25 Thread Keith Johnson (DSLWN)
Here's an example of how I rewrote some code. Old version 284: * IF F200.SCHEME.CODE = CK1 OR F200.SCHEME.CODE = CK2 OR F200.SCHEME.CODE = NU1 OR F200.SCHEME.CODE = NU2 OR F200.SCHEME.CODE = TK1 OR F200.SCHEME.CODE = TK2 OR F200.SCHEME.CODE = GS1 OR F200.SCHEME.CODE = JM OR

[U2] RE: (U2) Dictionary Help

2007-11-25 Thread Keith Johnson (DSLWN)
Al DeWitt had a need for a utility to search the dictionaries. I had to write one a little while ago - to look for SB+ stuff, as it happens. PROGRAM FIND.DICT * This program searches the data dictionary section * of every file in the VOC for a string CRT 'INPUT STRING ': INPUT

[U2] Good Practice?

2007-11-25 Thread Keith Johnson (DSLWN)
Neil suggested using LOCATE rather than INDEX in my example. I'm not sure I agree that would be any less complex as far as the code is concerned. INDEX and LOCATE are both 'complex' compared with the IF statement, and since LOCATE needs its SETTING variable, it's arguably the more complex

RE:[U2] UD - SYSTEM(14)

2007-11-05 Thread Keith Johnson (DSLWN)
Hi Bill, There is a vague memory at the back of my mind that SYSTEM(14) could be problematical. Would it work in your circumstance to change the last line to use the INPUT ..., -1 mechanism? EG * UNTIL NOT(SYSTEM(14)) DO REPEAT ; ** UD version INPUT

Re: [U2] [UV] Conversion code for week number

2007-07-15 Thread Keith Johnson (DSLWN)
Wol wrote INT (DAY / 365.25) will always give the correct number of years since day 0. The following shows that is not strictly true because of the centennial non-leap year. Test Program 001: ZZ = 0 002: FOR XX = 1 TO 5 003: Y1 = 1968 + INT((XX-1)/365.25) 004: Y2

RE: [U2] Copying from AIX box to Linux box

2007-07-13 Thread Keith Johnson
data transfers a bear. Have you looked for things like this? -Keith Johnson LCSC -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Adrian Merrall Sent: Thursday, July 12, 2007 5:28 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Copying from AIX box

RE: [U2] [BB] U2 Enhancement Request - WRITE

2007-05-28 Thread Keith Johnson (DSLWN)
It's always annoyed me that WRITE permissions were not handled better. Even under R83, one could set up a file with a user able to read, but not write to it (file definition attributes 5 and 6, I think?). If a WRITE was encountered and the permission was not correct, the program would just crash

[U2] [UV] VLIST failure - some detail of another program

2007-05-23 Thread Keith Johnson (DSLWN)
I don't know if there's any interest in this, but I have found a very short program where the old compiled version causes a problem with VLIST. Here are the details The old compiler version was 9.3.1.2, the new one 10.2.0.0 001: $OPTIONS -F L ;*WR631 002: * 003:

[U2] RE: (UV) - Is VLIST in version 10.2 fragile?

2007-05-21 Thread Keith Johnson (DSLWN)
Hi Leroy, Thanks for your comments. I figured it might be a problem with opcode changes. My problem is that I'm not certain that the source code we have is correct. To recapitulate - * We have old object in production. * We have no source code in production * We have source

[no subject]

2007-05-21 Thread Keith Johnson (DSLWN)
Leroy wrote Are you able to copy the object from your live system to your dev system to see if VLIST aborts there? Because of the big upgrade in SB+ and the fact we were also upgrading Universe, we upgraded the test system first to see what problems it would bring. Actually we built a temporary

[U2] (UV) - Is VLIST in version 10.2 fragile?

2007-05-20 Thread Keith Johnson (DSLWN)
Hi there, We have just upgraded both Universe and System Builder, going from UV 10.1.8 to 10.2.0 and from SB+ 3.4 to 5.4. Because the SB+ common block changed slightly, I had to recompile all programs that referenced it. However, I have discovered that not all the source code was on the

RE: [U2] 2 questions, one on STATUS and the other on STEAL-FILE

2007-05-13 Thread Keith Johnson \(DSLWN\)
Jeff Fitzgerald wrote Could you give us an example of that -- I don't seem to be able to get it to work: I remember in the past being able to use the form SET.INDEX FAST.STATS TO ./I_FAST.STATS. However, now one has to use the key word RELATIVE.PATH like this SET.INDEX FAST.STATS TO

[U2] A couple of questions about the PE version

2007-05-13 Thread Keith Johnson \(DSLWN\)
As I recall, neither U2 console understands screen addressing - which means you can't run most of the applications I've written from the console. To my mind this means that someone can't just run U2 'out of the box' and get a thing that works. They will have to connect to a terminal emulator or

RE: [U2] 2 questions, one on STATUS and the other on STEAL-FILE

2007-05-08 Thread Keith Johnson \(DSLWN\)
Brian Leach wrote snip 1. Before you take a copy of the file in Explorer, check whether it has any indexes. If a file has secondary indexing, UniVerse holds the absolute path to the index in the file header. You must use SET.INDEX to either change or remove that path on the history file,

RE: [U2] 2 questions, one on STATUS and the other on STEAL-FILE

2007-05-08 Thread Keith Johnson \(DSLWN\)
Hi there, There is a utility program at http://www.pickwiki.com/cgi-bin/wiki.pl?FileStatus to show the file STATUS stuff in a usable manner. You may also be interested in FILEINFO stuff which is at http://www.pickwiki.com/cgi-bin/wiki.pl?FileInfo Regards, Keith --- u2-users mailing list

Re: [U2] Seeing error messages from UniObjects subroutines

2007-04-21 Thread Steve Johnson
Ray, what version of uodotnet.dll has an Error property on UniSession? I'm running v2.1.1.7211 and I don't see it. Would be useful, though. Regards, Steve On 4/18/07, Ray Wurlod [EMAIL PROTECTED] wrote: They are usually accessible via the Error property on the Session object. --- u2-users

[U2] BLAT with Outlook Calendar/Appointments

2006-12-21 Thread Mark Johnson
can send scheduled calls as emails to the sales and technical traveling people's blackberrys. But they would like to deliver the appointments further to the recipient's calendar. I'm all ears. Thanks in advance. Mark johnson --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe

Re: [OT][U2] Wintegrate

2006-12-15 Thread Mark Johnson
of the features of these 2 emulators. And what about Procomm and/or Viaduct. Thanks Mark Johnson - Original Message - From: Bill Haskett [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org Sent: Thursday, December 14, 2006 6:29 PM Subject: RE: [OT][U2] Wintegrate Mark: The usual rule

Re: [OT][U2] Wintegrate

2006-12-14 Thread Mark Johnson
are done with it and it works perfectly side by side in a green screen environment. Best of all, Accuterm is $1,000 for 50 licenses versus $225 each from IBM. You do the math. My 1,000 cents Mark Johnson - Original Message - From: Nick Cipollina [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org

Re: [OT][U2] Wintegrate

2006-12-14 Thread Mark Johnson
, WED is worth the price of admission by itself. Words cannot fully describe how wonderful editing MV programs with a notepad editor that understands MV concepts as compared to just using notepad. My 2 cents for Accuterm. Mark Johnson - Original Message - From: Symeon Breen [EMAIL PROTECTED

Re: [U2] Taxware

2006-11-29 Thread Mark Johnson
trial for the death penalty of your MV system, then I could offer a few real-world scenarios where the MV system would have prevailed. Now I know that we're biased towards MV. But to go to RPG is more Jurrasic than Pick is. My 2 cents. Mark Johnson P.S. I have friends who still program in COBOL

Re: [U2] Taxware

2006-11-28 Thread Mark Johnson
I'll bite. How big (or not big) is SHIMS now-a-days. I worked on it 20 years ago along with its step brother, RESULTS. Is it supported or detached like Results? Thanks Mark Johnson. - Original Message - From: [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org Sent: Tuesday, November 28

Re: [U2] [UV] Question about EQU

2006-11-18 Thread Mark Johnson
I'm a little confused where dictionaries come into play with compiled versus interpreted programs. I've worked on interpretive basic system and dictionaries don't have anything to do with it. Unless it's a 3rd form of programming, ie parameter driven. Thanks Mark Johnson - Original Message

Re: [U2] [UV] Question about EQU

2006-11-17 Thread Mark Johnson
' as in a relic from the past. Don't tell anyone outside of the MV community or we're doomed. My 1 cent Mark Johnson - Original Message - From: Barry Brevik [EMAIL PROTECTED] To: U2-users (E-mail) u2-users@listserver.u2ug.org Sent: Friday, November 17, 2006 8:11 PM Subject: [U2] [UV] Question about

Re: [U2] [UV] Question about EQU

2006-11-17 Thread Mark Johnson
Let's not have a contest on bad programming techniques or we'll be here all year. Thanks. - Original Message - From: Kevin King [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org Sent: Friday, November 17, 2006 8:45 PM Subject: RE: [U2] [UV] Question about EQU See how the EQU would

Re: [U2] [OT] goodbye to the list(s)

2006-10-24 Thread Mark Johnson
Sounds like fun. Again, good luck in the future. Mark Johnson - Original Message - From: Claus Derlien [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org Sent: Tuesday, October 24, 2006 2:22 AM Subject: RE: [U2] [OT] goodbye to the list(s) I started programming on a zx81 in 1981 bought

Re: [U2] [OT] goodbye to the list(s)

2006-10-23 Thread Mark Johnson
Good luck. Sounds more exciting than sitting at a desk all day. For the benefit of all, what was your movitation to convert to a really unrelated career? And what got you into programming in the first place. Thanks Mark Johnson - Original Message - From: Claus Derlien [EMAIL PROTECTED

  1   2   3   4   5   >