Or since UniData does keep AM pointers, you could do this - then the @SVM
become @VM -- and if there is sub-valued data, in some ways this is EASIER
than tracking what item 'REMOVE' is handling.

SEARCHITEM = RAISE(RECORD<31>)
CNT = DCOUNT(SEARCHITEM,@AM)
FOR PTR = 1 TO CNT
   ELEMENT = SEARCHITEM<PTR>
   ....
NEXT PTR

-----Original Message-----
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of David A. Green
Sent: Thursday, June 07, 2012 11:45 AM
To: 'U2 Users List'
Subject: Re: [U2] FW: Multivalue Question

X = RECORD<31> isn't your issue.

This is your issue:
CNT = DCOUNT(MVDATA, @VM)
FOR PTR=1 TO CNT
  SNGDATA = MVDATA<1, PTR>
  ...
NEXT PTR

Use instead:
MORE.FLAG = (MVDATA # "")
LOOP WHILE MORE.FLAG DO
  SNGDATA = REMOVE(MVDATA, MORE.FLAG)
  ...
REPEAT

Of course other factors can help your decision on how to store your data.

1. Does it need to be sorted?
2. How do you need to retrieve it?

David A. Green
(480) 813-1725
DAG Consulting

-----Original Message-----
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Al DeWitt
Sent: Thursday, June 07, 2012 9:30 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] FW: Multivalue Question

Unidata 7.1.20 Pick Flavor

 

I am going to end up with a situation where I will have a multivalue field
that contains 5500 +/- values.  Each value will be 5-characters long.

 

I'm concerned that this will issues with the following statement: X =
RECORD<31>

 

I've tried searching the manuals and can't find a good answer.

 

Appreciate your input.

 

Albert DeWitt, CPIM

_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to