Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] double looping

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[SOLVED] double looping
 Login/Join
 
Virtuoso
posted
I created this fex to loop through a number of masters and see the first record of each

but for some reason it stops after the first found table

any suggestions on how to solve this?


-SET &ECHO = ALL;

TABLE FILE SYSCOLUM
BY TBNAME
WHERE TBNAME CONTAINS 'KCO_' ;
ON TABLE HOLD AS TABELLEN FORMAT ALPHA
ON TABLE SET HOLDLIST PRINTONLY
END
-SET &AANTAL=&RECORDS ;
? HOLD TABELLEN
-RUN
-READ TABELLEN NOCLOSE &TABELNAME.A64
-REPEAT :Loop1 WHILE &IORETURN EQ 0;
-READ TABELLEN NOCLOSE &TABELNAME.A64
-SET &AANTAL=&AANTAL-1 ;
-TYPE &TABELNAME
-RUN


TABLE FILE SYSCOLUM
PRINT 
NAME
      USAGE
   BY SEGNAME NOPRINT
   BY SEGNO   NOPRINT
WHERE TBNAME EQ '&TABELNAME.EVAL' ;

ON TABLE HOLD AS VELDEN FORMAT ALPHA
ON TABLE SET HOLDLIST PRINTONLY
END


-RUN
TABLE FILE &TABELNAME.EVAL
PRINT
-READ VELDEN &FIELDNAME.A66. &FORMAAT.A8.
-REPEAT :LOOP WHILE &IORETURN EQ 0;
&FIELDNAME.EVAL AS '&FIELDNAME - &FORMAAT'
-READ VELDEN &FIELDNAME.A66. &FORMAAT.A8.
-:LOOP
IF RECORDLIMIT EQ 1
HEADING
"&TABELNAME"
END

-:Loop1





This message has been edited. Last edited by: Kerry,




Frank

prod: WF 7.6.10 platform Windows,
databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7
test: WF 7.6.10 on the same platform and databases,IE7

 
Posts: 2387 | Location: Amsterdam, the Netherlands | Registered: December 03, 2006Report This Post
Expert
posted Hide Post
Frank,

You're missing NOCLOSE in the last two _READ statements. But that isn't the problem!

Is it possible that the &IORETURN in the second loop stops the first loop?

Try using &LINES in the -REPEAT statements instead...

-SET &ECHO = ALL;

TABLE FILE SYSCOLUM
BY TBNAME
WHERE TBNAME CONTAINS 'gg' ;
ON TABLE HOLD AS TABELLEN FORMAT ALPHA
ON TABLE SET HOLDLIST PRINTONLY
END
-RUN

-SET &AANTAL=&RECORDS ;
-SET &TABLINES=&LINES ;
? HOLD TABELLEN
-RUN

-READ TABELLEN NOCLOSE &TABELNAME.A64
-REPEAT :Loop1 &TABLINES TIMES;
-READ TABELLEN NOCLOSE &TABELNAME.A64
-SET &AANTAL=&AANTAL-1 ;
-TYPE &TABELNAME
-RUN

TABLE FILE SYSCOLUM
PRINT 
NAME
      USAGE
   BY SEGNAME NOPRINT
   BY SEGNO   NOPRINT
WHERE TBNAME EQ '&TABELNAME' ;

ON TABLE HOLD AS VELDEN FORMAT ALPHA
ON TABLE SET HOLDLIST PRINTONLY
END
-RUN
-SET &COLLINES=&LINES ;

TABLE FILE &TABELNAME
PRINT

-READ VELDEN NOCLOSE &FIELDNAME.A66. &FORMAAT.A8.
-REPEAT :LOOP &COLLINES TIMES;
&FIELDNAME.EVAL AS '&FIELDNAME - &FORMAAT'
-READ VELDEN NOCLOSE &FIELDNAME.A66. &FORMAAT.A8.
-:LOOP
IF RECORDLIMIT EQ 1
HEADING
"&TABELNAME"
END
-RUN

-:Loop1


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Virtuoso
posted Hide Post
Francis

that worked well
thanks a lot
sometimes you just do not see the error anymore




Frank

prod: WF 7.6.10 platform Windows,
databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7
test: WF 7.6.10 on the same platform and databases,IE7

 
Posts: 2387 | Location: Amsterdam, the Netherlands | Registered: December 03, 2006Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] double looping

Copyright © 1996-2020 Information Builders