Dave - thanks for the help.
I will go ahead an post an example of the revised code so it will be in the
archives
in case some one else needs it.

CREATE PROCEDURE jehimes/Testproc ()
        LANGUAGE SQL READS SQL DATA

         BEGIN
          DECLARE ID            INT;
          DECLARE ENDTABLE      INT DEFAULT 0;
          DECLARE BAD           INT DEFAULT 0;

          DECLARE C1 CURSOR FOR
          select c1nmid from lbucmfil/nammsp where c1nmid<999 ;

          DECLARE C2            CURSOR FOR
          select c3nmid from lbucmfil/biomsp where c3nmid<999;

          DECLARE CONTINUE HANDLER FOR NOT FOUND
            SET ENDTABLE = 1;
          DECLARE EXIT HANDLER FOR SQLEXCEPTION
            SET BAD=1;

          OPEN C1;
            FETCH C1 INTO ID  ;
            WHILE ENDTABLE = 0 DO
             FETCH C1 INTO ID  ;
            END WHILE;
          CLOSE C1;
          SET  ENDTABLE =0;
          SET  BAD       =0;

          OPEN C2;
            FETCH C2 INTO ID  ;
            WHILE ENDTABLE = 0 DO
              FETCH C2 INTO ID  ;
             END WHILE;
           CLOSE C2;

          END ;




As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.