Hi Kevin, Any reason why you are using type "U" ? This certainly
works using "P" ...
S='SELECT SOMEFILE WITH SOMETHING = "OOJIT"'
EXECUTE S RTNLIST MYLIST CAPTURING ANYOUTPUT
EOF=0
LOOP UNTIL EOF DO
READNEXT MYID FROM MYLIST THEN
GSOUB MYMESS
END ELSE EOF=1
REPEAT
Martin
-----Original Message-----
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Baker Hughes
Sent: 24 September 2012 17:49
To: 'U2 Users List'
Subject: Re: [U2] Unidata 7.1.16 Multiple Active Select Lists
Can you use SELECT yourfile WITH whatever TO 8 {specific list number} in
the master process, and let your SUBR virtual field default to list 0
{zero}?
The other option could be to do a READLIST within the SUBR function and
reset the list when RETURNing, but this could be onerous in terms of
processing speed.
HTH
-Baker
-----Original Message-----
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Kevin King
Sent: Monday, September 24, 2012 11:43 AM
To: U2 Users List
Subject: [U2] Unidata 7.1.16 Multiple Active Select Lists
How does one manage multiple active select lists in Unidata? I could
have sworn I've done this before, but for some reason it's not working
at all as I recall.
I have this SUBR(..) type field in file A that selects records from file
B to calculate an aggregate. This works fine when listing file A and
showing the field. However, if there's an active select list when file
A is listed with this field, the select statement in my SUBR(..) is
consuming the active select list 0 and returning incorrect results.
My subroutine is $BASICTYPE "U" and is selecting records using the lower
case select and selecting to active list #3. It then processes from
list
#3 and returns its result. I've tried using the RTNLIST and PASSLIST
options on the EXECUTE statements and I get a "Misuse of Reserved Word
'PASSLIST'" or "Misuse of Reserved Word 'RTNLIST'". I've tried
UDTEXECUTE with no compilation errors but also no improvement on the
problem. I've even tried MDPERFORM but I get the misuse errors with the
RTNLIST and PASSLIST options. Oddly enough, removing $BASICTYPE "U" I
don't get an error on MDPERFORM but I can't READNEXT from a numbered
select without the $BASICTYPE "U".
How should I structure this SUBR(..) so that it does not consume list 0
when selecting to list 3?
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
________________________________
This communication, its contents and any file attachments transmitted
with it are intended solely for the addressee(s) and may contain
confidential proprietary information.
Access by any other party without the express written permission of the
sender is STRICTLY PROHIBITED.
If you have received this communication in error you may not copy,
distribute or use the contents, attachments or information in any way.
Please destroy it and contact the sender.
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
Click
https://www.mailcontrol.com/sr/wQw0zmjPoHdJTZGyOCrrhg==
04y!LlOoL8USVGrPZehFfPKcPPmbfFPdrr1lqOECv!Swg== to report this email as
spam.
--------------------------------------------------------
Epicor Software (UK) is a limited company registered in England & Wales.
Registration Number: 2338274. Registered Office: 6th Floor, One London Wall,
London EC2Y 5EB
This e-mail is for the use of the intended recipient(s) only. If you have
received this e-mail in error, please notify the sender immediately and then
delete it. If you are not the intended recipient, you must not use, disclose or
distribute this e-mail without the author's prior permission. We have taken
precautions to minimize the risk of transmitting software viruses, but we
advise you to carry out your own virus checks on any attachment to this
message. We cannot accept liability for any loss or damage caused by software
viruses. Any views and/or opinions expressed in this e-mail are of the author
only and do not represent the views of Epicor Software (UK) Limited or any
other company within its group.
This message has been scanned for malware by Websense. www.websense.com
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
