Hi Rod, I too have had the 'pleasure' of F and A correlatives.
Once upon a time, a nice man named Dick Pick, who created Pick basic, issued a challenge. He said that there was no way in native Pick to access the last value of a multivalued field and challenged anyone to find a way. Enter Me. 'A' correlatives were new at that time and I created a three step dict. Dict "step1" converted value marks into "1" 's. Dict "step2" summed those 1's into a number, and Dict "step3" used that sum as an index for the value and BINGO last value of a multivalued field in native Pick! I did the 'victory dance' big time while singing "feeling stronger" from the "Rocky" movies :-D !!! And then proceeded to pack up my solution and send the results to Dick. Dick replied to me that the challenge was only for F correlatives (ahh, shucks......) but that he would publish my solution since nobody else had ever done so yet. "Publish" as in "paper" before the internet became widely used. So, that was my 15 seconds of fame!!!! Today, I prefer SUBR type dicts over all else if it takes me more than a couple of seconds to try to figure out what to do. However, I'm currently working for a client with a..........Legacy Pick system without SUBR's. gaaaaaa....... Allen -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Rod Hills Sent: Wednesday, September 01, 2004 11:01 To: [EMAIL PROTECTED] Subject: RE: [U2] Correlative referencing multi-value field in another file Allen, Universe does have I-descriptors, but the programmer was trying to build an F-correlative (from old PICK) to do the task. -- Rod Hills -----Original Message----- From: Allen E. Elwood (CA) [mailto:[EMAIL PROTECTED] Sent: Wednesday, September 01, 2004 9:40 AM To: [EMAIL PROTECTED] Subject: RE: [U2] Correlative referencing multi-value field in another file Wow, in Unidata this would be an "I descriptor" that would just be SUM(WO.COMP.QTY) in attr 2 of the dict. Guess UV doesn't have I desc's? -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dianne Ackerman Sent: Wednesday, September 01, 2004 08:37 To: [EMAIL PROTECTED] Subject: Re: [U2] Correlative referencing multi-value field in another file Yes, this is the way it works, unfortunately. What we ended up doing was to change att 8 in WO.COMP.QTY to F;0(TWIP;X;;8);(G0 1);0(TWIP;X;;8);(G1 1);0(TWIP;X;;8);(G2 1);.........;+;+;+;+ etc -Dianne Rod Hills wrote: >We are trying to do a very basic PICK technique of summing a multi-value field >in a F-type correlative. > >However, it appears uniVerse is not putting the multi-values onto it's "stack" >as inividual values, but rather as one entry with the value markers replaced >with blanks. > >Below are two dictionary definitions, the only difference is WO.COMPL.QTY does >a sum as its last step. > >As can be seen by the LIST output, only single-value entries return a non-zero >value. > >Anyone else come across this? And should it be working this way? > >We are on UV10.0.16 and HPUX11i. > >Thanks in advance > >-- Rod Hills > > WO.COMPL.QTY >0001 A >0002 0 >0003 Wo Compl}Total >0004 >0005 >0006 >0007 >0008 F;0;(G0*1);(TWIP;X;;8);S >0009 R >0010 8 > > WO.QTY.COMPL >0001 A >0002 0 >0003 Wo Qty Compl >0004 >0005 >0006 >0007 >0008 F;0;(G0*1);(TWIP;X;;8) >0009 R >0010 12 > >LIST WIPOPERACT WO.COMPL.QTY WO.QTY.COMPL 10:05:27am 31 Aug 2004 PAGE 1 >WIPOPERACT Wo Compl Wo Qty Compl > Total... > >89783*560 4 4 >89433*111 0 14 1 >78574*370 0 3 5 6 1 5 >84804*780 0 2 2 3 3 5 3 >88810*070 0 >R7735*380 0 15 2 1 >89922*630 0 >60330*001 0 >79101*000 0 18 60 5 2 10 > 3 2 >90032*050 0 >82930*110 0 >88671*001 2937 2937 >90449*260 0 3 20 4 3 >60268*790 0 >60129*720 0 >79312*380 2 2 ------- 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/ ------- 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/
