RE: [U2] Piotr KIRYLUK/RCB-WARSAW/PL : nie ma mnie w pracy.
dear Peter (Piotr) whilst we are deeply moved by your sentiments, we're awfully sorry, old chap, to do this to you, but we sincerely believe that, to quote a local song, a leetle beet of eenglish might just serve here... -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Piotr KIRYLUK Sent: 21 June 2004 01:03 To: u2-users Subject: [U2] Piotr KIRYLUK/RCB-WARSAW/PL : nie ma mnie w pracy. Nie bjdzie mnie w pracy od 2004-06-21 i nie wrscj przed 2004-07-05. Odpowiem na wiadomo6ci po powrocie z urlopu - 05/07/2004. W sprawach pilnych proszj o kontakt z GLOBUSP RODUCTION SUPPORT --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE:[OT] [U2] Piotr KIRYLUK - Seriously OT
As requested: Song Title A Third World Child Artist Johnny Clegg Savuka [snip] They said 'You should learn to speak a little bit of English Don't be scared of a suit and tie. Learn to walk in the dreams of the foreigner -- I am a Third World Child -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dennis Bartlett Sent: 21 June 2004 09:56 To: [EMAIL PROTECTED] Subject: RE: [U2] Piotr KIRYLUK/RCB-WARSAW/PL : nie ma mnie w pracy. dear Peter (Piotr) whilst we are deeply moved by your sentiments, we're awfully sorry, old chap, to do this to you, but we sincerely believe that, to quote a local song, a leetle beet of eenglish might just serve here... --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] [UV] WHILE READNEXT id DO
I like the syntax a lot, and even put the LOOP on the same line as the UNTIL. So Ray Wurlod's example I would have written as LOOP WHILE READSEQ line FROM f GOSUB processline REPEAT I was surprised to see an assertion that this didn't work in Pick, as I remember Henry Eggers was a particularly keen exponent of the usage - which implies that Reality should support it. Regards, Keith Johnson Owner/Host www.emeraldglenlodge.co.nz 04 299 3066 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] Universe Database Hang
Dear All, Do anyone having experience on Universe Database hang. ( note that existing user process still able to run the process and access the database only user which using new session log to the database will hang over there ? ) The system file is not full . When i LIST.READU EVERY (using existing session) found that no much record locking / The database daemon is still alive during the situation of database hang Thanks and Regards DISCLAIMER:- This email is confidential and intended only for the use of the individual or entity named above and may contain information that is privileged. If you are not the intended recipient, you are notified that any dissemination, distribution or copying of this email is strictly prohibited. If you have received this email in error, please notify us immediately by return email or telephone and destroy the original message. Thank you. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code example)
Thanks for this example. I was looking for a way to not test for the first
iteration every time. Another example illustrated it and kept it goto-less.
I can honestly say that in all my years of MV, no prior programmers or VARs
to my client's systems used LOOP-REPEAT for READNEXT and that virtually
every one was the
10 READNEXT ID ELSE GOTO 19
READ REC FROM F.FILE, ID ELSE GOTO 10
(process)
GOTO 10
scenario.
My Client's packages include Media Services Group, SHIMS, Results, Service
Automation Systems, Primac, GULL, Infoquest, IDS, DataMaster, Wizard, and a
whole slew of home-grown systems and they all use GOTO's in a logical sense
and yes, some in an illogical sense. But none are the GOTO-less environments
that everyone seems to harp upon.
I just wanted to see how it was done. You've answered all of my questions.
Thanks.
- Original Message -
From: Dennis Bartlett [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, June 21, 2004 5:07 AM
Subject: RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code
example)
SORT CUSTOMER
BY STATE
BY CITY
{showing} NAME
BREAK-ONCITY
BREAK-ONSTATE
TOTAL YTD-SALES
ORDERS File layout
--
0Order Number
1State
2City
3Cust.Name (for purpose of example)
4Sales by month position (ie 12 multivals)
PROGRAM YTD.SALES.RPT
* author : d.bartlett
* written : 21 June 04
* example of GOTO-less code in a break-on environment
* ---
* Assumes there won't be a city in a different state
* with the same name / code
* ---
OPEN 'ORDERS' TO CUSTOMER ELSE STOP 201,'CUSTOMER'
TODAY = OCONV(DATE(),'D2/') ; * assumes dd/mm/yy
PERIOD = TODAY[4,2] ; * assumes simple periods
CUST.YTD.SALES = 0
LPT.WIDTH = 80
STATE.SALES = 0
CITY.SALES = 0
CUST.SALES = 0
TOT.SALES = 0
LAST.STATE = ''
LAST.CITY = ''
* --
* select data - assumes I can still use select-by
* - if not, we do a two stage pass
*(1) process file,
*using locate to sequence state*city
*build array1 = state*city } state*city*
*build array2 = orderno
*
*(2) process sorted array1 with REMOVE
*MORE = 1
*LOOP
* REMOVE KEY FROM ARRAY1 SETTING MORE
* REMOVE ORDERNO FROM ARRAY2 SETTING JUNK
* * -- process
*WHILE MORE
*REPEAT
*
* Limitations are size, speed
* --
CMD = 'SELECT CUSTOMER'
CMD := ' BY STATE'
CMD := ' BY CITY'
CRT 'Selecting data - please wait'
EXECUTE CMD CAPTURING X RETURNING Y
IF (Y 1) THEN
MSG = 'No records were found matching'
MSG := ' your selection'
CRT MSG :; INPUT REPLY
END ELSE
CRT Y : ' records selected'
GOSUB PROCESS.ORDERS
END
CRT @(-1)
STOP
* =
PROCESS.ORDERS:
LOOP
READNEXT ORDERNO ELSE DONE = 1
UNTIL (DONE = 1)
READ ORDREC FROM ORDERS, ORDERNO THEN
GOSUB PARSE.ORDER
GOSUB ACCUM.YTD
*initialise temp variables
IF (LAST.STATE = '') THEN
LAST.STATE = STATE
LAST.CITY = CITY
END
*test if city has changed?
IF (CITY NE LAST.CITY) THEN GOSUB CITY.TOTALS
*test if state has changed?
IF (STATE NE LAST.STATE) THEN GOSUB STATE.TOTALS
*print a detail line
CRT NAME 'L#40' :
CRT OCONV(YTD.SALES, 'MD2') 'R#15'
END
REPEAT
* final CITY totals
GOSUB CITY.TOTALS
GOSUB STATE.TOTALS
GOSUB FINAL.TOTAL
RETURN
* ---
PARSE.ORDER:
* 0Order Number
* 1State
* 2City
* 3Cust.ID
* 4Cust.Name (for purpose of example)
* 5Sales by month position (ie 12 multivals)
STATE = ORDREC1
CITY = ORDREC2
NAME = ORDREC3
SALES = ORDREC4
RETURN
* ---
ACCUM.YTD:
CUST.SALES = 0
FOR P = 1 TO PERIOD
CUST.SALES += OR.SALES1,P
NEXT P
STATE.SALES += CUST.SALES
CITY.SALES += CUST.SALES
TOT.SALES += CUST.SALES
RETURN
* ---
CITY.TOTALS:
CRT SPACE(40) :
CRT STR('-',15)
CRT SPACE(40) :
CRT OCONV(CITY.SALES, 'MD2') 'R#15'
LAST.CITY = CITY
CITY.SALES = 0
RETURN
* ---
STATE.TOTALS:
CRT
CRT SPACE(40) :
CRT STR('=',15)
CRT SPACE(40) :
CRT OCONV(STATE.SALES, 'MD2') 'R#15'
STATE.SALES = 0
LAST.STATE = STATE
RETURN
*
Re: [U2] PC Magazine - July 2004 - UniData Mention in the MAINSTREAM...
Pick was also the topic of either a 2 page or 2 issue article in BYTE magazine around 18-20 years ago. - Original Message - From: David Wolverton [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Sunday, June 20, 2004 5:35 PM Subject: [U2] PC Magazine - July 2004 - UniData Mention in the MAINSTREAM... IBM's UniData RDBMS is mentioned on page 92 in an article about Silver Line Building Products --- true, it's just a passing reference, but they got the Upper/Lower casing correct and everything... Small mention, but worth grabbing a copy to show people!! David W. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[OT] RE: [U2] Piotr KIRYLUK/RCB-WARSAW/PL : nie ma mnie w pracy.
Too funny! This is one of those automatically generated Out-of-Office message. Evidently Piotr is taking a long holiday and won't be in the office from June 21st until July 5th. He will answer all message upon his return. If you are having an emergency you should contact Globus Production Support. Gordon J. Glorfield Sr. Applications Developer MAMSI (A UnitedHealth Company) 301-360-8839 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Piotr KIRYLUK Sent: Sunday, June 20, 2004 7:03 PM To: u2-users Subject: [U2] Piotr KIRYLUK/RCB-WARSAW/PL : nie ma mnie w pracy. Nie bjdzie mnie w pracy od 2004-06-21 i nie wrscj przed 2004-07-05. Odpowiem na wiadomo6ci po powrocie z urlopu - 05/07/2004. W sprawach pilnych proszj o kontakt z GLOBUSP RODUCTION SUPPORT --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ This e-mail, including attachments, may include confidential and/or proprietary information, and may be used only by the person or entity to which it is addressed. If the reader of this e-mail is not the intended recipient or his or her authorized agent, the reader is hereby notified that any dissemination, distribution or copying of this e-mail is prohibited. If you have received this e-mail in error, please notify the sender by replying to this message and delete this e-mail immediately. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Universe Redback Java Problem
Wendy Smoak ... From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Tsombakos, John Now, here's the rub.. My initial testing is using Mac OS X. But, when the routine returns a multi-valued item, the value of the SubValue (@SM) character is wrong, so I can't pull sub-values out of a result. The Value mark (@VM) is correct (CHAR(253)). The SubValue mark is being return in the string as a CHAR(184). I've never used a Mac. When you use UniObjects for Java on Linux, you have to make sure to set the LANG environment variable to 'C' or the same sort of thing happens. Hope that's somewhat helpful, isn't OS X somehow related to Unix? I think Wendy could be on the right track. RedBeans used to use, and may well still use, java.net.URLEncoder - and this fails on high asci for non-US encodings. If this is your problem, then just setting LANG isn't enough to change the default encoding. You can see what yours is by asking a java.io.OutputStreamWriter getEncoding(). See perhaps http://www.jguru.com/faq/view.jsp?EID=78088 after a quick google. If this really the problem then get on to IBM, because they shouldn't be using this (dodgy anyway) unicode encoder with their asci data. Simon --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniObject - Select
Christophe Marchal wrote: I'm discovering the uniobject in java, and I don't find how to do a SELECT command and retreive ID. I only find the UniSelectList that have a select() method on an UniFile. But what I want is somthing like : SELECT MYFILE WITH MY.FIELD = bar AND WITH MY.OTHER.FIELD = foo The select statement is done with the UniCommand class, then you can get the select list: UniCommand uCommand = uSession.command ( SELECT AGRESREL SAVING AGRESREL.ID); uCommand.exec(); UniSelectList uSelect = uSession.selectList( 0 ); answer = uSelect.readList() ; System.out.println (answer = + answer) ; Let me know if you need a more complete example, the code above assumes you can get a connected UniSession already. -- Wendy Smoak Application Systems Analyst, Sr. ASU IA Information Resources Management --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] How keep '\' in unix/uniVerse filenames?
On Tue, 2004-06-15 at 01:06, Ken Wallis wrote: Karl Pearson wrote: Try putting two \\ so the escape will be used as it was meant to be, to keep special characters from being treated like special characters. I.e. \* \? \\ etc. The difficulty is in doing this. Once the shell has the value with the '\' in it, it becomes very hard to manipulate it. You might get away with doing a 'tr' or a 'sed' in between the 'find ... -print' and the 'while read', but you'd have to be very clever with the escaping of your escapes in the sed script or the tr strings. One other option on Unix is the difference between and ' quotes. To force an absolute, use 'TRAN.EXT-14320S1??\4-DF' rather than Unix allows special characters and variables to be 'checked' withint double quotes, but uses strict string representation within single quotes. Karl Cheers, Ken LeRoi Keiller wrote: Cutdown example of what I'm trying to do (ksh): $ ls TRAN* TRAN.EXT-14320S1??\4-DF TRAN.EXT-14320S1??\5-DF (note the '\' in the file names) $ find TRAN* -print | while read file do ls -l $file done TRAN.EXT-14320S1??4-DF not found --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Universe Database Hang
Ang Suan Yong wrote: Do anyone having experience on Universe Database hang. ( note that existing user process still able to run the process and access the database only user which using new session log to the database will hang over there ? Not UniVerse, but UniData was doing that to us intermittently. Nobody new could log in, but users who were already in didn't experience any problems. I don't think we ever figured out what the issue was, but we moved up to UD6 and it hasn't happened again. -- Wendy Smoak Application Systems Analyst, Sr. ASU IA Information Resources Management --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Universe Database Hang (login hang)
Do anyone having experience on Universe Database hang. ( note that existing user process still able to run the process and access the database only user which using new session log to the database will hang over there ? ) The system file is not full . When i LIST.READU EVERY (using existing session) found that no much record locking / The database daemon is still alive during the situation of database hang Are you saying that users hang as they try to log in? That is, invoking the UV shell hangs the user, but not the database itself, right? Do ANALYZE.SHM -s to list semaphores. Something may have locked the login semaphore, which each login process should set briefly, then release. Toward the bottom you will see : Login State Netnode Owner Collisions Retries Semaphore # 1 1016 1 859086 ^ If State is 1, not 0, that is your problem. The equivalent unix command is [uvhome dir]/bin/smat -s Solution: As superuser, already at uv command prompt, type UNLOCK LOGINLOCK SEMAPHORE. (Look up UNLOCK SEMAPHORE in User ref manual, the online HELP UNLOCK is incomplete.) If superuser is not already in UV, you won't be able to login, to run these commands. I don't know the best way to unlock the semaphore in that case. Anyone? Moral: !!! !! !! !! ALWAYS LEAVE A ROOT SESSION AT UV TCL PROMPT. !! !! (e.g. in data center, system console) !! !! !! !!! One possible cause: I had the problem where I tried to pipe the output of uv/bin/uvlictool -report_lic to gerp instead of grep: $/dbms/uv/bin/uvlictool report_lic | gerp UVCS uvlictool apparently sets the login semaphore while it takes its snapshot. The subsequent error caused uvlictool to leave it locked. My solution: a little script uvlicr that does: /dbms/uv/bin/uvlictool report_lic /tmp/uvlicr.txt ; cat /tmp/uvlicr.txt Piping that to gerp won't cause havoc. Same for script uvlicc uvlictool clean_lic -a. - cds --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code example)
Just a quick look, it appears the code is adding to the city and state
totals before checking if the city or state values have changed. This means
if the city or state has changed that it'll be adding some of the next city
and state totals to the previous city and state totals. Unless I'm
mistaken, this will not match a uniquery stmt doing the same. If you see my
example posted earlier you'll see it checks for change of key values, then
print totals, then clear totals, then add to totals, which is necessary for
correct results.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Dennis Bartlett
Sent: Monday, June 21, 2004 2:07 AM
To: [EMAIL PROTECTED]
Subject: RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code
example)
SORT CUSTOMER
BY STATE
BY CITY
{showing} NAME
BREAK-ONCITY
BREAK-ONSTATE
TOTAL YTD-SALES
ORDERS File layout
--
0Order Number
1State
2City
3Cust.Name (for purpose of example)
4Sales by month position (ie 12 multivals)
PROGRAM YTD.SALES.RPT
* author : d.bartlett
* written : 21 June 04
* example of GOTO-less code in a break-on environment
* ---
* Assumes there won't be a city in a different state
* with the same name / code
* ---
OPEN 'ORDERS' TO CUSTOMER ELSE STOP 201,'CUSTOMER'
TODAY = OCONV(DATE(),'D2/') ; * assumes dd/mm/yy
PERIOD = TODAY[4,2] ; * assumes simple periods
CUST.YTD.SALES = 0
LPT.WIDTH = 80
STATE.SALES = 0
CITY.SALES = 0
CUST.SALES = 0
TOT.SALES = 0
LAST.STATE = ''
LAST.CITY = ''
* --
* select data - assumes I can still use select-by
* - if not, we do a two stage pass
*(1) process file,
*using locate to sequence state*city
*build array1 = state*city } state*city*
*build array2 = orderno
*
*(2) process sorted array1 with REMOVE
*MORE = 1
*LOOP
* REMOVE KEY FROM ARRAY1 SETTING MORE
* REMOVE ORDERNO FROM ARRAY2 SETTING JUNK
* * -- process
*WHILE MORE
*REPEAT
*
* Limitations are size, speed
* --
CMD = 'SELECT CUSTOMER'
CMD := ' BY STATE'
CMD := ' BY CITY'
CRT 'Selecting data - please wait'
EXECUTE CMD CAPTURING X RETURNING Y
IF (Y 1) THEN
MSG = 'No records were found matching'
MSG := ' your selection'
CRT MSG :; INPUT REPLY
END ELSE
CRT Y : ' records selected'
GOSUB PROCESS.ORDERS
END
CRT @(-1)
STOP
* =
PROCESS.ORDERS:
LOOP
READNEXT ORDERNO ELSE DONE = 1
UNTIL (DONE = 1)
READ ORDREC FROM ORDERS, ORDERNO THEN
GOSUB PARSE.ORDER
GOSUB ACCUM.YTD
*initialise temp variables
IF (LAST.STATE = '') THEN
LAST.STATE = STATE
LAST.CITY = CITY
END
*test if city has changed?
IF (CITY NE LAST.CITY) THEN GOSUB CITY.TOTALS
*test if state has changed?
IF (STATE NE LAST.STATE) THEN GOSUB STATE.TOTALS
*print a detail line
CRT NAME 'L#40' :
CRT OCONV(YTD.SALES, 'MD2') 'R#15'
END
REPEAT
* final CITY totals
GOSUB CITY.TOTALS
GOSUB STATE.TOTALS
GOSUB FINAL.TOTAL
RETURN
* ---
PARSE.ORDER:
* 0Order Number
* 1State
* 2City
* 3Cust.ID
* 4Cust.Name (for purpose of example)
* 5Sales by month position (ie 12 multivals)
STATE = ORDREC1
CITY = ORDREC2
NAME = ORDREC3
SALES = ORDREC4
RETURN
* ---
ACCUM.YTD:
CUST.SALES = 0
FOR P = 1 TO PERIOD
CUST.SALES += OR.SALES1,P
NEXT P
STATE.SALES += CUST.SALES
CITY.SALES += CUST.SALES
TOT.SALES += CUST.SALES
RETURN
* ---
CITY.TOTALS:
CRT SPACE(40) :
CRT STR('-',15)
CRT SPACE(40) :
CRT OCONV(CITY.SALES, 'MD2') 'R#15'
LAST.CITY = CITY
CITY.SALES = 0
RETURN
* ---
STATE.TOTALS:
CRT
CRT SPACE(40) :
CRT STR('=',15)
CRT SPACE(40) :
CRT OCONV(STATE.SALES, 'MD2') 'R#15'
STATE.SALES = 0
LAST.STATE = STATE
RETURN
* ---
FINAL.TOTAL:
CRT
CRT STR('=',LPT.WIDTH)
CRT SPACE(40) :
CRT OCONV(TOT.SALES,'MD2') 'R#15'
CRT STR('=',LPT.WIDTH)
RETURN
* ---
END
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Mark Johnson
Sent: 18 June 2004 04:14
To: [EMAIL PROTECTED]
RE: [U2] Universe Database Hang
We had this problem but it was related to Vertias Replication software. Are you by chance running Vertias on HPUX? Sorry deleted the original post if that had the OS info in it. Don Verhagen Tandem Staffing Solutions, Inc. [EMAIL PROTECTED] 11:56:10 AM 06/21/2004 Ang Suan Yong wrote: Do anyone having experience on Universe Database hang. ( note that existing user process still able to run the process and access the database only user which using new session log to the database will hang over there ? Not UniVerse, but UniData was doing that to us intermittently. Nobody new could log in, but users who were already in didn't experience any problems. I don't think we ever figured out what the issue was, but we moved up to UD6 and it hasn't happened again. -- Wendy Smoak Application Systems Analyst, Sr. ASU IA Information Resources Management --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code example)
Another note on the differences between READNEXTS. As I support UD/UV/D3/MCD and Native clients, I like to be consistent in my application programs. Thus, when appropriate, I have a subroutine that I can use blindly in my application thinking and not have to remember which format works for which flavor. My routine is called GET.IDS(TCL, IDS) and basically takes the TCL statement, either SSELECT, GET-LIST or null and throws the item-ids into the variable IDS. Thus my application programs all have GET.IDS and the actual program GET.IDS is flavorized. SUBROUTINE GET.IDS(TCL, IDS) *** * GATHER ITEM-IDS AND RETURN AS A VARIABLE * MAJ 062104 *** FLAVOR=UD IF TCL # THEN IF FLAVOR=MCD THEN PERFORM TCL RTNLIST TCLLIST CAPTURING JUNK END ELSE EXECUTE TCL CAPTURING JUNK END END IDS= BEGIN CASE CASE FLAVOR=UD OR FLAVOR=UV LOOP WHILE READNEXT ID DO ; IDS-1=ID ; REPEAT CASE FLAVOR=MCD LOOP READNEXT ID FROM TCLLIST ELSE ID=EOF UNTIL ID=EOF DO ; IDS-1=ID ; REPEAT CASE FLAVOR=D3 LOOP READNEXT ID ELSE EXIT UNTIL 0 DO ; IDS-1=ID ; REPEAT CASE 1 LOOP READNEXT ID ELSE ID=EOF UNTIL ID=EOF DO ; IDS-1=ID ; REPEAT CASE GOTO-friendly 10READNEXT ID THEN IDS-1=ID ; GOTO 10 ELSE NULL END CASE RETURN If anyone chooses to use this routine, you can remove the unnecessary flavors. This also works with a PROC-level or external active list. Just pass the TCL as null. You could also insert your own localized versions of converting an active list to a variable. In any case, once i have this installed at a client's system, all I really have to remember is CALL GET.IDS(TCL, IDS) and not have to remember the different syntaxes. Obviously for the CASE 1 and MCD flavor, insure that EOF isn't a valid ID in the file being selected. Also, CASE 1 would work for all except MCD but the intent is to optimize per flavor. I never really liked the requirement that MCD required a listname if the list was gotten from a PERFORM. Also note that none of these methods require the DONE=0/DONE=1 flag stuff. my 1 cent. p.s. I threw in the GOTO-friendly condition if anyone cares. And yes, i know it will never be processed. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Universe Redback Java Problem
Thanks. I think it does have to do with the encoding somewhere. I can use the debugger on OS X (Xcode) and see the exact response from the web server. The value mark is being encoded as %FC, but the sub-value mark is not being encoded, just passed through as an ASCII 184. I will investigate the getEncoding routine - maybe it is something broken in Apple's JVM. -Original Message- Date: Mon, 21 Jun 2004 15:24:11 +0100 From: Simon Lewington [EMAIL PROTECTED] Subject: Re: [U2] Universe Redback Java Problem Wendy Smoak ... From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Tsombakos, John Now, here's the rub.. My initial testing is using Mac OS X. But, when the routine returns a multi-valued item, the value of the SubValue (@SM) character is wrong, so I can't pull sub-values out of a result. The Value mark (@VM) is correct (CHAR(253)). The SubValue mark is being return in the string as a CHAR(184). I've never used a Mac. When you use UniObjects for Java on Linux, you have to make sure to set the LANG environment variable to 'C' or the same sort of thing happens. Hope that's somewhat helpful, isn't OS X somehow related to Unix? I think Wendy could be on the right track. RedBeans used to use, and may well still use, java.net.URLEncoder - and this fails on high asci for non-US encodings. If this is your problem, then just setting LANG isn't enough to change the default encoding. You can see what yours is by asking a java.io.OutputStreamWriter getEncoding(). See perhaps http://www.jguru.com/faq/view.jsp?EID=78088 after a quick google. If this really the problem then get on to IBM, because they shouldn't be using this (dodgy anyway) unicode encoder with their asci data. Simon --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Universe Redback Java Problem
And I sent this before I double checked... the value mark is being in coded as %FD. -Original Message- From: Tsombakos, John Sent: Monday, June 21, 2004 2:15 PM To: '[EMAIL PROTECTED]' Subject: Re: [U2] Universe Redback Java Problem Thanks. I think it does have to do with the encoding somewhere. I can use the debugger on OS X (Xcode) and see the exact response from the web server. The value mark is being encoded as %FC, but the sub-value mark is not being encoded, just passed through as an ASCII 184. I will investigate the getEncoding routine - maybe it is something broken in Apple's JVM. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code example)
Sidebar to data/basic break-on totals:
I eliminate the chance of redundant or missed adding by rolling up totals
instead of details. What I mean is that within the LOOP READNEXT...REPEAT
detail processing, I accumulate those values to the closest subtotal, like
in this case, CITY. When I 'break-on' CITY, i roll the city totals to STATE
and clear the city totals when I reset the CITY value for the next break.
The last level, STATE, rolls up into a GRANDTOTAL variable during the
'break-on' STATE.
For grins, I also tend to have a common structure for the CITY.TOTAL,
STATE.TOTAL array and GRAND.TOTAL array as I can send these to a single
printline routine so that the formatting is consistent. Usually, I'm
accumulating more than one value (qty, price, cost etc) and having all the
formulas in one place is helpful. Also, I can fabricate a variable printline
like
LINE=TEXTL#10: :VAL1/100R2,#10: :VAL2/100R2,#10
PRINT LINE
and then accumulate the LINEs in a RECAP-1 variable for printing a summary
report at the end. Thus, after printing the regular GRAND.TOTAL line at the
end, I can announce a recap section and
LOOP UNTIL RECAP= DO ; PRINT RECAP1 ; DEL RECAP1 ; REPEAT
or your preferred method of printing an array.
This is great for creating a detailed A/R then summary A/R aging report
without processing twice.
my 1 cent.
This also semi-documents what levels roll up to which other levels
- Original Message -
From: Allen E. Elwood (CA) [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, June 21, 2004 12:22 PM
Subject: RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code
example)
Just a quick look, it appears the code is adding to the city and state
totals before checking if the city or state values have changed. This
means
if the city or state has changed that it'll be adding some of the next
city
and state totals to the previous city and state totals. Unless I'm
mistaken, this will not match a uniquery stmt doing the same. If you see
my
example posted earlier you'll see it checks for change of key values, then
print totals, then clear totals, then add to totals, which is necessary
for
correct results.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Dennis Bartlett
Sent: Monday, June 21, 2004 2:07 AM
To: [EMAIL PROTECTED]
Subject: RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code
example)
SORT CUSTOMER
BY STATE
BY CITY
{showing} NAME
BREAK-ONCITY
BREAK-ONSTATE
TOTAL YTD-SALES
ORDERS File layout
--
0Order Number
1State
2City
3Cust.Name (for purpose of example)
4Sales by month position (ie 12 multivals)
PROGRAM YTD.SALES.RPT
* author : d.bartlett
* written : 21 June 04
* example of GOTO-less code in a break-on environment
* ---
* Assumes there won't be a city in a different state
* with the same name / code
* ---
OPEN 'ORDERS' TO CUSTOMER ELSE STOP 201,'CUSTOMER'
TODAY = OCONV(DATE(),'D2/') ; * assumes dd/mm/yy
PERIOD = TODAY[4,2] ; * assumes simple periods
CUST.YTD.SALES = 0
LPT.WIDTH = 80
STATE.SALES = 0
CITY.SALES = 0
CUST.SALES = 0
TOT.SALES = 0
LAST.STATE = ''
LAST.CITY = ''
* --
* select data - assumes I can still use select-by
* - if not, we do a two stage pass
*(1) process file,
*using locate to sequence state*city
*build array1 = state*city } state*city*
*build array2 = orderno
*
*(2) process sorted array1 with REMOVE
*MORE = 1
*LOOP
* REMOVE KEY FROM ARRAY1 SETTING MORE
* REMOVE ORDERNO FROM ARRAY2 SETTING JUNK
* * -- process
*WHILE MORE
*REPEAT
*
* Limitations are size, speed
* --
CMD = 'SELECT CUSTOMER'
CMD := ' BY STATE'
CMD := ' BY CITY'
CRT 'Selecting data - please wait'
EXECUTE CMD CAPTURING X RETURNING Y
IF (Y 1) THEN
MSG = 'No records were found matching'
MSG := ' your selection'
CRT MSG :; INPUT REPLY
END ELSE
CRT Y : ' records selected'
GOSUB PROCESS.ORDERS
END
CRT @(-1)
STOP
* =
PROCESS.ORDERS:
LOOP
READNEXT ORDERNO ELSE DONE = 1
UNTIL (DONE = 1)
READ ORDREC FROM ORDERS, ORDERNO THEN
GOSUB PARSE.ORDER
GOSUB ACCUM.YTD
*initialise temp variables
IF (LAST.STATE = '') THEN
LAST.STATE = STATE
LAST.CITY = CITY
END
*test if city has changed?
IF (CITY NE LAST.CITY) THEN GOSUB CITY.TOTALS
*test if state has changed?
IF (STATE NE LAST.STATE) THEN GOSUB STATE.TOTALS
*print a detail line
Re: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code example)
This code example is also flawed in that a break-on state should
automatically break-on city first regardless if the city has changed. As it
is, it assumes that there could never be this situation:
CITYSTATE
MiddletownNJ
Springfield NJ
Springfield PA
Springfield TX
Perhaps Cities and States won't have this real problem. But Salesman,
Customers and Products certainly could.
my 1 cent
- Original Message -
From: Allen E. Elwood (CA) [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, June 21, 2004 12:22 PM
Subject: RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code
example)
Just a quick look, it appears the code is adding to the city and state
totals before checking if the city or state values have changed. This
means
if the city or state has changed that it'll be adding some of the next
city
and state totals to the previous city and state totals. Unless I'm
mistaken, this will not match a uniquery stmt doing the same. If you see
my
example posted earlier you'll see it checks for change of key values, then
print totals, then clear totals, then add to totals, which is necessary
for
correct results.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Dennis Bartlett
Sent: Monday, June 21, 2004 2:07 AM
To: [EMAIL PROTECTED]
Subject: RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code
example)
SORT CUSTOMER
BY STATE
BY CITY
{showing} NAME
BREAK-ONCITY
BREAK-ONSTATE
TOTAL YTD-SALES
ORDERS File layout
--
0Order Number
1State
2City
3Cust.Name (for purpose of example)
4Sales by month position (ie 12 multivals)
PROGRAM YTD.SALES.RPT
* author : d.bartlett
* written : 21 June 04
* example of GOTO-less code in a break-on environment
* ---
* Assumes there won't be a city in a different state
* with the same name / code
* ---
OPEN 'ORDERS' TO CUSTOMER ELSE STOP 201,'CUSTOMER'
TODAY = OCONV(DATE(),'D2/') ; * assumes dd/mm/yy
PERIOD = TODAY[4,2] ; * assumes simple periods
CUST.YTD.SALES = 0
LPT.WIDTH = 80
STATE.SALES = 0
CITY.SALES = 0
CUST.SALES = 0
TOT.SALES = 0
LAST.STATE = ''
LAST.CITY = ''
* --
* select data - assumes I can still use select-by
* - if not, we do a two stage pass
*(1) process file,
*using locate to sequence state*city
*build array1 = state*city } state*city*
*build array2 = orderno
*
*(2) process sorted array1 with REMOVE
*MORE = 1
*LOOP
* REMOVE KEY FROM ARRAY1 SETTING MORE
* REMOVE ORDERNO FROM ARRAY2 SETTING JUNK
* * -- process
*WHILE MORE
*REPEAT
*
* Limitations are size, speed
* --
CMD = 'SELECT CUSTOMER'
CMD := ' BY STATE'
CMD := ' BY CITY'
CRT 'Selecting data - please wait'
EXECUTE CMD CAPTURING X RETURNING Y
IF (Y 1) THEN
MSG = 'No records were found matching'
MSG := ' your selection'
CRT MSG :; INPUT REPLY
END ELSE
CRT Y : ' records selected'
GOSUB PROCESS.ORDERS
END
CRT @(-1)
STOP
* =
PROCESS.ORDERS:
LOOP
READNEXT ORDERNO ELSE DONE = 1
UNTIL (DONE = 1)
READ ORDREC FROM ORDERS, ORDERNO THEN
GOSUB PARSE.ORDER
GOSUB ACCUM.YTD
*initialise temp variables
IF (LAST.STATE = '') THEN
LAST.STATE = STATE
LAST.CITY = CITY
END
*test if city has changed?
IF (CITY NE LAST.CITY) THEN GOSUB CITY.TOTALS
*test if state has changed?
IF (STATE NE LAST.STATE) THEN GOSUB STATE.TOTALS
*print a detail line
CRT NAME 'L#40' :
CRT OCONV(YTD.SALES, 'MD2') 'R#15'
END
REPEAT
* final CITY totals
GOSUB CITY.TOTALS
GOSUB STATE.TOTALS
GOSUB FINAL.TOTAL
RETURN
* ---
PARSE.ORDER:
* 0Order Number
* 1State
* 2City
* 3Cust.ID
* 4Cust.Name (for purpose of example)
* 5Sales by month position (ie 12 multivals)
STATE = ORDREC1
CITY = ORDREC2
NAME = ORDREC3
SALES = ORDREC4
RETURN
* ---
ACCUM.YTD:
CUST.SALES = 0
FOR P = 1 TO PERIOD
CUST.SALES += OR.SALES1,P
NEXT P
STATE.SALES += CUST.SALES
CITY.SALES += CUST.SALES
TOT.SALES += CUST.SALES
RETURN
* ---
CITY.TOTALS:
CRT SPACE(40) :
CRT STR('-',15)
CRT SPACE(40) :
CRT
[U2] Linux and PE
I need to try out the linux versions of the PEs. However, how do i go about getting copies of Linux that will run with them? Thanks Eugene --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Linux and PE
Eugene Perry wrote: I need to try out the linux versions of the PEs. However, how do i go about getting copies of Linux that will run with them? I think the PE's are intended for Red Hat, although several people here have gotten them to run on other distros. So you can start with Red Hat, I believe the free version is now called Fedora: http://fedora.redhat.com/ I use Gentoo Linux (although come to think of it I have not installed UDPE on it. Someone else did, though... Was it Ian?) http://www.gentoo.org -- Wendy Smoak Application Systems Analyst, Sr. ASU IA Information Resources Management --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Linux and PE
At 11:39 AM 6/21/2004, Eugene Perry wrote: I need to try out the linux versions of the PEs. However, how do i go about getting copies of Linux that will run with them? Thanks Eugene Try here: http://www.linuxiso.org/ --- Kent Walker - Datatel Analyst Information Technology - U.C. Hastings College of the Law 415-565-4635 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] Web Wizard (another MV to Web solution)
Somebody mentioned Web Wizard on info-datatel, has anyone else heard of Eagle Rock/eris? http://www.eaglerock-is.com/wwiz.asp Sounds kind of like Pixius' MVInternet product, except this one uses Via Systems WinLink behind the scenes. http://www.via.com/external/winlink.htm But then they say it'll run on Unix so there must be something else for that. We've never touched anything ODBC related without going through extreme pain, so I'm not putting this on the list to try. Twice or thrice burned, at this point! But still curious. :) -- Wendy Smoak Application Systems Analyst, Sr. ASU IA Information Resources Management --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Web Wizard (another MV to Web solution)
Mel Soriano of ERIS has an article in every issue of Spectrum Magazine. Web Wizard has been around for a long time and has apparently had a compelling amount of success. I've never used it so I can't comment. I mention Web Wizard as one development option in my series of articles on Web Services and .NET - article 3 on tools, Spectrum March/April 2004. Tony Wendy Smoak wrote Somebody mentioned Web Wizard on info-datatel, has anyone else heard of Eagle Rock/eris? http://www.eaglerock-is.com/wwiz.asp --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Web Wizard (another MV to Web solution)
You may want to check out Luke Bucklin @ sierra bravo corp We are using his webview product. It runs very nicely, with minor setup... Only negative was a lack of documentation at the time, but Luke is very good about going thru it in depth and assisting in setting it up. I expect that documentation had been completed since. http://www.sierra-bravo.com/webview.php Mitchell Stevelman Vice President, Information Technologies MR MARKING SYSTEMS 100 Springfield Avenue Piscataway, NJ 08855-6969 USA Phone: 732-562-9500 Fax: 732-562-9514 www.mrmarking.com www.olcdemo.com -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Wendy Smoak Sent: Monday, June 21, 2004 3:50 PM To: [EMAIL PROTECTED] Subject: [U2] Web Wizard (another MV to Web solution) Somebody mentioned Web Wizard on info-datatel, has anyone else heard of Eagle Rock/eris? http://www.eaglerock-is.com/wwiz.asp Sounds kind of like Pixius' MVInternet product, except this one uses Via Systems WinLink behind the scenes. http://www.via.com/external/winlink.htm But then they say it'll run on Unix so there must be something else for that. We've never touched anything ODBC related without going through extreme pain, so I'm not putting this on the list to try. Twice or thrice burned, at this point! But still curious. :) -- Wendy Smoak Application Systems Analyst, Sr. ASU IA Information Resources Management --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Senior Pick Programming Position - Centennial, CO
I'm not interested in the job but I was reading this and have a question. When you say migration of legacy systems to J2EE architecture do you mean you are moving to another database or staying on Universe. J2EE is just a way of getting at the data and Universe can be accessed using Java. - Original Message - From: William Lockwood [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, June 18, 2004 6:28 PM Subject: [U2] Senior Pick Programming Position - Centennial, CO Trust Company of America, a leading provider of financial services nationwide, has an immediate opening for a Senior Multivalue Database Programmer / Analyst. The ideal candidate for this position will have broad knowledge of multi-value database architecture and management. You will work as a member of a team to design, develop and implement an IBM UniVerse multi-value database system for the data repository to provide responsive outsourcing solutions to independent Investment Advisors. You will be an integral member of a team to re-architecture, development, and migration of legacy systems to J2EE architecture utilizing Java and providing our customers the ability to manage their accounts and trade efficiently. Requirements for this position include: - Thorough understanding and knowledge of the software development life cycle (SLDC), with the proven ability able to follow development and coding standards. - Extensive software generation (actual coding) and troubleshooting analysis experience. - Demonstrated ability to design, code, integrate, test, and document software in a rapid prototype approach, incorporating new functionality as required. - Proven problem solving and analytical abilities and experience troubleshooting / debugging complex software. - Excellent English communication skills with both technical and non-technical personnel. - Proven record of the tactical delivery of complex, mission-critical software development projects. Technical Expertise: More than 5 years experience in multi-value database programming. Extensive knowledge of Pick Basic language and the IBM UniVerse database (or equivalent experience with similar multi-value databases. Experience with documentation of UniVerse flow diagrams, UniVerse paragraphs, and high-level integrated documentation of system processes. Knowledge of Java / J2EE and open source programming environments is a plus. BS in Computer Science or related degree and / or equivalent experience. Experience in the finance / financial services industries a plus. Trust Company of America is proud of our corporate culture built on the principles of Integrity, Teamwork, Service, Innovation, and High Expectations. We are dedicated to providing services to meet the needs of our customers in a rapidly changing and highly regulated market. We offer a minimum travel, a competitive compensation package, and a comprehensive benefits package including health and dental care, 401(k), flexible benefits, vacation and paid time off, and educational assistance. Relocation will not be considered - we are seeking a local candidate. Please send resume and qualifications to [EMAIL PROTECTED] --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SYSTEM(49) on UV
I've never used UD so I don't know what SYSTEM(49) returns. But give SYSTEM(9001) a try on UV. I think it was added at 10.0.4. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Tuesday, 22 June 2004 01:32 To: [EMAIL PROTECTED] Subject: [U2] SYSTEM(49) on UV Does anyone know of an equivalent of the UDT SYSTEM(49) (UniBasic CALL Stack) in UniVerse? -Chuck Mongiovi / Silver Line MIS --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code example)
That's painful to look at. Isn't it more efficient to do the select and then read the id's while they are in memory ? What if your selection contains 500,000 items, won't that IDS array be huge ? Mark Johnson [EMAIL PROTECTED] wrote: Another note on the differences between READNEXTS. As I support UD/UV/D3/MCD and Native clients, I like to be consistent in my application programs. Thus, when appropriate, I have a subroutine that I can use blindly in my application thinking and not have to remember which format works for which flavor. My routine is called GET.IDS(TCL, IDS) and basically takes the TCL statement, either SSELECT, GET-LIST or null and throws the item-ids into the variable IDS. Thus my application programs all have GET.IDS and the actual program GET.IDS is flavorized. SUBROUTINE GET.IDS(TCL, IDS) *** * GATHER ITEM-IDS AND RETURN AS A VARIABLE * MAJ 062104 *** FLAVOR=UD IF TCL # THEN IF FLAVOR=MCD THEN PERFORM TCL RTNLIST TCLLIST CAPTURING JUNK END ELSE EXECUTE TCL CAPTURING JUNK END END IDS= BEGIN CASE CASE FLAVOR=UD OR FLAVOR=UV LOOP WHILE READNEXT ID DO ; IDS-1=ID ; REPEAT CASE FLAVOR=MCD LOOP READNEXT ID FROM TCLLIST ELSE ID=EOF UNTIL ID=EOF DO ; IDS-1=ID ; REPEAT CASE FLAVOR=D3 LOOP READNEXT ID ELSE EXIT UNTIL 0 DO ; IDS-1=ID ; REPEAT CASE 1 LOOP READNEXT ID ELSE ID=EOF UNTIL ID=EOF DO ; IDS-1=ID ; REPEAT CASE GOTO-friendly 10 READNEXT ID THEN IDS-1=ID ; GOTO 10 ELSE NULL END CASE RETURN If anyone chooses to use this routine, you can remove the unnecessary flavors. This also works with a PROC-level or external active list. Just pass the TCL as null. You could also insert your own localized versions of converting an active list to a variable. In any case, once i have this installed at a client's system, all I really have to remember is CALL GET.IDS(TCL, IDS) and not have to remember the different syntaxes. Obviously for the CASE 1 and MCD flavor, insure that EOF isn't a valid ID in the file being selected. Also, CASE 1 would work for all except MCD but the intent is to optimize per flavor. I never really liked the requirement that MCD required a listname if the list was gotten from a PERFORM. Also note that none of these methods require the DONE=0/DONE=1 flag stuff. my 1 cent. p.s. I threw in the GOTO-friendly condition if anyone cares. And yes, i know it will never be processed. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ - Do you Yahoo!? New and Improved Yahoo! Mail - 100MB free storage! --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
