I'll second Mats, and move to add an amendment:
> iii)
> >SELECT PRODS
> >and then
> >READNEXT PROD ELSE DONE = TRUE
> >
> iii) extracts fields ( attributes ) .
READNEXT PROD ELSE ...
extracts the ENTIRE 1st VALUE of each field (i.e., including ALL
SUBvalues of that 1st value) but ignores any other values.
Notice "A|a" and "B|b" disappear from being the scene:
RDNXTTST
01 ARRAY = CONVERT( ' ;.', @SM:@VM:@AM, '1 one;A a.2 two;B b' )
02 CRT ARRAY
03 SELECT ARRAY
04 LOOP WHILE READNEXT X
05 CRT X
06 REPEAT
>RUN CDS.BP RDNXTTST
1|one}A|a~2|two}B|b
1|one
2|two
>
That said, I'll concede it can be a useful technique.
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
