EXECUTE "SELECT FILE WITH VALUE = 'A' TO 1"
EXECUTE "SELECT FILE WITH VALUE = 'B' TO 2"
EXECUTE "MERGE.LIST 1 UNION 2 TO 0"
TOT.VAL = 0
END.OF.LIST = FALSE
LOOP
READNEXT KEY FROM 0 ELSE END.OF.LIST = TRUE
UNTIL END.OF.LIST = TRUE DO
READ RECORD FROM FILE, KEY THEN
VALUE = OCONV(RECORD<X>,'MD2')
TOT.VAL += VAL
END
REPEAT
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of John Thompson
Sent: Wednesday, July 27, 2011 1:17 PM
To: U2 Users List
Subject: Re: [U2] Doing Multiple Selects in BASIC and combining the
lists
Ok, got stuck again...
How would your example play out in BASIC?
Its just a bunch of archive info in a file that only has a couple of
indexes, but, I would like to look at the active file as well...
EXECUTE \SELECT FILE1 WITH VALUE = 'A' TO 1\
EXECUTE \SELECT FILE2 WITH VALUE = 'A' TO 2\
EXECUTE \MERGE.LIST 1 UNION 2 TO 0\
I get an error claiming select list 1 is not active this way. I need
the
selects to be separate and not stack. I know how to stack them with
PASSLIST and RTNLIST... I'm just fuzzy on how to do them separately and
then
combine them?
Would I need to save them and use LIST.UNION?
Or just do the two READNEXTS?
(I'm trying to avoid because the READNEXT loop is kind of big)
Any help is appreciated.
On Wed, Jul 27, 2011 at 1:22 PM, Buffington, Wyatt
<[email protected]
> wrote:
> In a nutshell
> SELECT FILE WITH VALUE = 'A' TO 1
> SELECT FILE WITH VALUE = 'B' TO 2
> MERGE.LIST 1 UNION 2 TO 0
> SORT FILE VALUE
>
>
>
>
> -----Original Message-----
> From: [email protected]
> [mailto:[email protected]] On Behalf Of John
Thompson
> Sent: Wednesday, July 27, 2011 12:16 PM
> To: U2 Users List
> Subject: [U2] Doing Multiple Selects in BASIC and combining the lists
>
> This may be an easy one, or a hard one, however, I realized I don't
> recall
> ever having to do this until today, or I could just be tired...
>
> How can you do a SELECT from two different files in a BASIC program
and
> then
> combine the lists of ID's so that you can do a READNEXT on it?
>
> I ask this because I believe by default that Universe does not store
the
> select lists as dynamic arrays.
>
> For example:
>
> EXECUTE \SELECT FILE1 WITH AMOUNT = "112.50"\ RTNLIST FILE1_LIST
> EXECUTE \SELECT FILE2 WITH AMOUNT = "112.50"\ RTNLIST FILE2_LIST
>
> ...Code to combine FILE1_LIST and FILE2_LIST into FINAL_LIST...
>
> REANEXT ID FROM FINAL_LIST THEN
> do something
> NEXT ID
>
> I am using Universe 10.3.x on AIX 5.3. I'm in a PICK flavor account.
>
> --
> John Thompson
> _______________________________________________
> U2-Users mailing list
> [email protected]
> http://listserver.u2ug.org/mailman/listinfo/u2-users
> _______________________________________________
> U2-Users mailing list
> [email protected]
> http://listserver.u2ug.org/mailman/listinfo/u2-users
>
--
John Thompson
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
