DEFINE FILE CAR MYMARKET/A15 = COUNTRY; END -RUN TABLE FILE CAR PRINT DST.MYMARKET WHERE MYMARKET NE '' ON TABLE SAVE END -RUN -SET &COMMA = ''; -*for each line in the table -REPEAT :END_MARKET_REPEAT &LINES TIMES -* read the line in -READ SAVE &MYMARKET.A15 -SET &LINE= &COMMA | '"' | &MYMARKET || '"'; -* write out this new object to the HTML page -HTMLFORM BEGIN !IBI.AMP.LINE; -HTMLFORM END -SET &COMMA = ','; -*do the next loop -:END_MARKET_REPEAT
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
SET HOLDLIST=PRINTONLY SET ASNAME=ON -DEFAULTH &MYMARKET=''; DEFINE FILE CAR MYMARKET/A15 = COUNTRY; END -RUN TABLE FILE CAR BY MYMARKET WHERE MYMARKET NE '' ON TABLE HOLD END -RUN -SET &COMMA = ''; -*for each line in the table -REPEAT :END_MARKET_REPEAT &LINES TIMES -* read the line in -READFILE HOLD -SET &LINE= &COMMA | '"' | &MYMARKET || '"'; -* write out this new object to the HTML page -HTMLFORM BEGIN !IBI.AMP.LINE; -HTMLFORM END -SET &COMMA = ','; -*do the next loop -:END_MARKET_REPEAT
quote:Correct syntax for -READ is -READ &variable.{format of I or A only}.
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
DEFINE FILE CAR MYMARKET/A15 = COUNTRY; END -RUN TABLE FILE CAR PRINT DST.MYMARKET WHERE MYMARKET NE '' ON TABLE SAVE END -RUN -SET &COMMA = ''; -*for each line in the table -REPEAT :END_MARKET_REPEAT &LINES TIMES -* read the line in -READ SAVE NOCLOSE &MYMARKET.A15. -SET &LINE= &COMMA | '"' | &MYMARKET || '"'; -* write out this new object to the HTML page -HTMLFORM BEGIN !IBI.AMP.LINE; -HTMLFORM END -SET &COMMA = ','; -*do the next loop -:END_MARKET_REPEAT -CLOSE SAVE
quote:working with the incorrect READ syntax in 8010 version
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
-DEFAULTH &LINE='', &MARKETVAR='' DEFINE FILE CAR MYMARKET/A15 = COUNTRY; END -RUN TABLE FILE CAR SUM COMPUTE CNTR/I9 = LAST CNTR + 1; NOPRINT COMPUTE MARKETVAR/A20 = IF CNTR EQ 1 THEN '"' || MYMARKET || '"' ELSE ',"' || MYMARKET || '"'; BY MYMARKET NOPRINT WHERE MYMARKET NE '' ON TABLE HOLD AS MYDATA ON TABLE SET HOLDLIST PRINTONLY END -RUN -READFILE MYDATA -REPEAT :Loop WHILE &IORETURN EQ 0; -SET &LINE = &LINE || &MARKETVAR; -READFILE MYDATA -:Loop -* write out this new object to the HTML page -HTMLFORM BEGIN !IBI.AMP.LINE; -HTMLFORM END
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |