RE: SQLRPG

[Luis Sanchez]

Title: SQLRPG

Mira haber como compilas el programa. Yo normalmente lo utilizo de esta manera.   ?CRTSQLRPG ??PGM(lib/obj)              ?*SRCFILE(lib/src)            ?*SRCMBR(mbr)                   COMMIT(*NONE)                      ALWCPYDTA(*NO)                     ALWBLK(*NONE)                    ??REPLACE(*YES)            Luego las instrucciones fuentes   C/EXEC SQL                                               C+ DECLARE C1 CURSOR FOR                         C+         SELECT *                                      C+                FROM lib/fichero                    C+                WHERE fichero.campo1 = :var1      AND C+                      fichero.campo2 = :var2           C+                ORDER BY campo3, campo4 C/END-EXEC                                                *                                                       C/EXEC SQL                                               C+ OPEN C1                                              C/END-EXEC                                                 * C           SQLCOD    IFEQ 0  * C/EXEC SQL                        C+ FETCH NEXT FROM C1 INTO :svar1 C/END-EXEC                      *   C           SQLCOD    DOWEQ0  * Operaciones C           var8    IFEQ 0 C/EXEC SQL                                                        C+ UPDATE lib/fichero SET campo6 = :var6, campo7 = :var7 WHERE campo1=:var1       C/END-EXEC                                                         *                  C                     ENDIF C/EXEC SQL                                                        C+ FETCH NEXT FROM C1 INTO :svar1 C/END-EXEC                                                        C                     ENDDO                                       C/EXEC SQL                 C+ CLOSE C1                C/END-EXEC                  *                          ***                        *                         C                     ENDIF Espero que te sirva De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Dulanto, Cesar Enviado el: lunes, 22 de agosto de 2005 18:58 Para: Help400 (forum.help400@combios.es) Asunto: SQLRPG   Holas, una consulta, tengo un loop en el cual leo un cursor, dentro del loop hago un update  a una tabla, pero al hacer el primer update, en el siguiente FETCH me dice q ya no hay más registros, lo cual no es cierto, y termina el loop. Alguna idea al respecto? César D.