Or you could smarten up the program and check if there is an active select list. If not, INPUT, else READNEXT. I do a lot of my Quick-N-Dirty programs like that, and a few main app programs that it makes sense to. This way you can run it like it now operates, one record at a time, or you make a paragraph like you want, or for special situations, create a select list on the fly and run the program from TCL.
Just a thought... BobW -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of andy baum Sent: Thursday, December 10, 2009 1:07 PM To: U2 Users List Subject: Re: [U2] A readnext within a VOC? George, This was possible in PI/Open using PA GET-LIST LISTNAME LOOP IF <<L, ID>> = "" THEN GO NEXT RUN LIB PROGRAMNAME DATA <<ID>> REPEAT NEXT: Unfortunately this never made it in to Universe, don't know about Unidata. I reported this when I beta tested the PI/Open to Universe migration stuff,I think they 'fixed it' by documenting somewhere that it doesn't work. Cheers, Andy ----- Original Message ---- From: George Gallen <[email protected]> To: U2 Users List <[email protected]> Sent: Thu, 10 December, 2009 19:03:08 Subject: [U2] A readnext within a VOC? I'd like to setup a VOC to select a list, then run a program for each entry in the list (like below...) PA GET-LIST LISTNAME LOOP READNEXT ID ELSE EXIT DATA ID RUN LIB PROGRAMNAME REPEAT I Thought there was a way to do this...but just can't remember how. In the meantime, I pass the list to another program (on another channel) which reads each item and EXECUTEs the PROGRAMNAME George Gallen Senior Programmer/Analyst Accounting/Data Division, EDI Administrator [email protected] ph:856.848.9005 Ext 220 The Wyanoke Group http://www.wyanokegroup.com _______________________________________________ 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 _______________________________________________ U2-Users mailing list [email protected] http://listserver.u2ug.org/mailman/listinfo/u2-users
