Problema con EXEC SQL

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • CRISTINO.GARCIA
    Senior Member
    • ago
    • 101

    #1

    Problema con EXEC SQL

    Hola a todos, estoy trabajando con un EXEC SQL pero no me esta actualizando toda la informacion que esta contenida en la tabla interna.Si me pueden dar una ayuda se lo agradeceria.

    la data almacenada en TAB_UPD son dos registros: Solo me actualiza el primer registro en el UPDATE.

    DATA: FECHA_AUX2(10).

    * Coneccion a la Base de Datos de ATEX
    EXEC SQL.
    CONNECT TO 'SAPENTPRD' AS 'C1'
    ENDEXEC.

    IF SY-SUBRC = 0.
    EXEC SQL.
    SET CONNECTION 'C1'
    ENDEXEC.


    LOOP AT TAB_UPD.
    FECAUX = SY-DATUM.

    CONCATENATE FECAUX+6(2) '/' FECAUX+4(2) '/' FECAUX(4) INTO FECAUX.
    FECHA_AUX2 = TAB_UPD-FECHA_PUB.
    CONCATENATE FECHA_AUX2(2) '-' FECHA_AUX2+2(2) '-' FECHA_AUX2+4(4) INTO FECHA_AUX2.
    CONDENSE TAB_UPD-NRO_AVI NO-GAPS.


    EXEC SQL.
    UPDATE detalle_interfaces
    SET fecha_proceso = sysdate,
    sistema_recibe = 'SIO',
    numdocsap = :doc
    WHERE numero = :TAB_UPD-NRO_AVI
    AND trunc(fecha_envio) = TO_DATE(:FECHA_AUX2, 'dd-mm-yyyy')
    AND tipo = 'AVISO'
    ENDEXEC.
    ENDLOOP.

    EXEC SQL.
    COMMIT
    ENDEXEC.

    * Cerrar la coneccion de oracle
    EXEC SQL.
    SET CONNECTION DEFAULT
    ENDEXEC.

    * Liberar los recursos tomados por la base de datos de memoria
    EXEC SQL.
    DISCONNECT 'C1'
    ENDEXEC.
    ENDIF.
Trabajando...