Dan I still get the same result when I assign each item to a variable. Am I missing something?
006 INCLUDE NEW.BP INIT.COMMON 007 008 OPEN 'RM' TO RM ELSE CRT 'CANNOT OPEN RM FILE';STOP 009 010 STMNT = 'SELECT RM WITH S/N = "STOCK" AND WITH FLAG NE "OUCH" AND WITH NO.CHANGE = "" FLAG S/N MINQOH MAXQOH REOQOH QOH QIH QOO' 011 012 EXECUTE STMNT CAPTURING JUNK RTNLIST OUCHLIST 013 014 LOOP 015 READNEXT ITM FROM OUCHLIST ELSE EXIT 016 I1 = ITM<1> 017 I2 = ITM<2> 018 I3 = ITM<3> 019 PRINT I1:" ":I2:" ":I3 020 REPEAT 021 022 STOP 023 024 STOCK 0 0 0 0 0 STOCK 0 1 0 0 2 12 STOCK 0 0 0 2 0 STOCK 0 3 0 5 3 0 STOCK 0 0 0 1 0 On Jun 2, 8:23 pm, Daniel Klein <[email protected]> wrote: > xx = ITM<1>etc... > > Dan > > > > On Tue, Jun 2, 2009 at 2:45 PM, ww <[email protected]> wrote: > > > The following code always prints items down the screen as shown toward > > the end of this post. How do I capture each ITM value to a variable so > > I can use them in a calculation later? > > > Thanks in advance, > > > INCLUDE BP INIT.COMMON > > OPEN 'RM' TO RM ELSE CRT 'CANNOT OPEN RM FILE';STOP > > > STMNT = 'SELECT RM WITH S/N = "STOCK" AND WITH FLAG NE "OUCH" AND WITH > > NO.CHANGE = "" FLAG S/N MINQOH MAXQOH REOQOH QOH QIH QOO' > > > EXECUTE STMNT CAPTURING JUNK RTNLIST THELIST > > LOOP > > READNEXT ITM FROM THELIST ELSE EXIT > > PRINT ITM<1>:" ":ITM<2>:" ":ITM<3> > > REPEAT > > STOP > > > STOCK > > 0 > > 3 > > 1 > > 9 > > > 8 > > > STOCK > > 0 > > 3 > > 1 > > 14 > > > 0 > > > STOCK > > 0 > > 2 > > 1 > > 22 > > > 0- Hide quoted text - > > - Show quoted text - --~--~---------~--~----~------------~-------~--~----~ Please read the posting guidelines at: http://groups.google.com/group/jBASE/web/Posting%20Guidelines IMPORTANT: Type T24: at the start of the subject line for questions specific to Globus/T24 To post, send email to [email protected] To unsubscribe, send email to [email protected] For more options, visit this group at http://groups.google.com/group/jBASE?hl=en -~----------~----~----~----~------~----~------~--~---
