|
#1
|
|||
|
|||
Error en ejecución
Hola,
Estoy tratando de realizar una conexión de Sap a SQL para traerme los datos de una tabla de SQL y llenar una tabla interna de SAP, pero me da error y no tengo como comparar el codigo para corregir sintaxis, anexo el codigo, si me pueden indicar que debo corregir , gracias *&---------------------------------------------------------------------* *& Report ZHRP_ZVHR_RETAIN *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zhrp_prueba_sql_sap. TABLES: ztps_carga. DATA: lv_dbs. DATA: BEGIN OF it_output OCCURS 100. INCLUDE STRUCTURE ztps_carga. DATA: END OF it_output. DATA: lv_exc_ref TYPE REF TO cx_sy_native_sql_error, lv_error_text TYPE string. **************************************************** here connect string TRY. EXEC SQL. CONNECT to 'PRUEBA' ENDEXEC. IF sy-subrc <> 0. RAISE EXCEPTION TYPE cx_sy_native_sql_error. ENDIF. CATCH cx_sy_native_sql_error INTO lv_exc_ref. CLEAR: lv_error_text. lv_error_text = lv_exc_ref->get_text( ). MESSAGE lv_error_text TYPE 'I'. ENDTRY. EXEC SQL. open dbcursor for SELECT NRO_SAN FECHA_SAN HONORARIOS HORAS NRO_RIF TIPO_EMP LOB CLIENTE ZZSUB_SRVC COD_RAMO FROM CARGA ENDEXEC. DO. EXEC SQL. FETCH NEXT cursor INTO :it_output-nro_san, :it_output-fecha_san, :it_output-honorarios, :it_output-horas, :it_output-nro_rif, :it_output-tipo_emp, :it_output-lob, :it_output-cliente, :it_output-zzsub_srvc, :it_output-cod_ramo if sy-subrc eq 0. APPEND it_output. clear it_output. else. exit. endif. ENDEXEC. ENDDO. ************************************************************************************** TRY. EXEC SQL. DISCONNECT 'PRUEBA' ENDEXEC. IF sy-subrc <> 0. RAISE EXCEPTION TYPE cx_sy_native_sql_error. ENDIF. CATCH cx_sy_native_sql_error INTO lv_exc_ref. CLEAR: lv_error_text. lv_error_text = lv_exc_ref->get_text( ). MESSAGE lv_error_text TYPE 'I'. ENDTRY. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|