Ir al contenido principal

OPEN DATASET - Trabajar con archivos del servidor (sy-subrc 8)

 OPEN DATASET - Trabajar con archivos del servidor

Muchas veces nos encontramos que no sabemos que pasa con un archivo en el servidor, porque el comando OPEN DATASET, nos devuelve un SY-SUBRC = 8, muy poco explicito.

No sabemos si no existe, o simplemente no tenemos permiso.

Con este código, podremos detectar lo que sucede del lado del servidor.


REPORT y_test_data_set_joel.


PARAMETERS: p_rt LIKE rlgrap-filename OBLIGATORY. "ruta en servidor
PARAMETERS: pa1 AS CHECKBOX.           "crea y escribe archivo
PARAMETERS: pa2 AS CHECKBOX.           "Levanta archivo y lo lista
PARAMETERS: p_l1 LIKE rlgrap-filename. "linea 1
PARAMETERS: p_l2 LIKE rlgrap-filename. "linea 2

CONSTANTS: c_error TYPE sy-msgty VALUE 'E'.

DATA: l_message   TYPE string,
      o_exception TYPE REF TO cx_root.
DATA: BEGIN OF rec OCCURS 0,
        campo1 TYPE rlgrap-filename,
        campo2 TYPE rlgrap-filename.
DATA: END OF rec.
DATA: linea(255) TYPE c.

IF pa1 IS NOT INITIAL.

*  Cargar un par de datos de pruebas.
  rec-campo1 = p_l1.
  APPEND rec.
  rec-campo1 = p_l2.
  APPEND rec.

*  Abrir el archivo destino.
  OPEN DATASET p_rt FOR OUTPUT IN TEXT MODE ENCODING DEFAULT MESSAGE l_message.

*  Ver si el archivo fue creado correctamente..
  IF sy-subrc NE 0.
    FORMAT COLOR 6 INTENSIFIED OFF.
    ULINE AT (80).
    WRITE: / sy-vline,
            ' No se pudo crear al archivo  : ',
            80 sy-vline.
    FORMAT COLOR 2 INTENSIFIED OFF.
    WRITE: / sy-vline,
             ' ', p_rt.
*             80 sy-vline.
    WRITE: / ' Mensaje obtenido >>>' , l_message, 80 sy-vline.
    ULINE AT (80).
    EXIT.
  ENDIF.
*  Recorrer la tabla que contiene las informaciones.
  LOOP AT rec.
*     Cargar la linea que sera utilizada como buffer salida.
    linea  = rec-campo1.
*     Carga la tabla interna con el contenido del archivo plano.
    TRANSFER linea TO p_rt.
  ENDLOOP.
*  Cerrar el archivo ASCII plano.
  CLOSE DATASET p_rt.
ENDIF.


IF pa2 IS NOT INITIAL.

  TRY.
*  Abrir el archivo destino.
      OPEN DATASET p_rt FOR INPUT IN TEXT MODE ENCODING DEFAULT
      MESSAGE l_message.
*  Ver si el archivo fue abierto correctamente..
      IF sy-subrc NE 0.
        FORMAT COLOR 6 INTENSIFIED OFF.
        ULINE AT (80).
        WRITE: / sy-vline,
                ' No se pudo abrir el archivo  : ',
                80 sy-vline.
        FORMAT COLOR 2 INTENSIFIED OFF.
        WRITE: / sy-vline,
                 ' ', p_rt.
*                 80 sy-vline.
        WRITE: / ' Mensaje obtenido >>>' , l_message, 80 sy-vline.
        ULINE AT (80).

      ELSE.
*  Recorrer el DATASET que contiene las informaciones.
        CLEAR rec.
        REFRESH rec.
        DO.
          READ DATASET p_rt INTO linea.
          IF sy-subrc NE 0.
            EXIT.
          ENDIF.
*     Cargar la tabla con los campos adecuados.
          rec-campo1 = linea.
          APPEND rec.
        ENDDO.
        WRITE: / 'Contenido de la ruta: ' , p_rt .
        LOOP AT rec.
          WRITE : / rec-campo1.
        ENDLOOP.
      ENDIF.
*   Error
    CATCH cx_root
      INTO o_exception.

*     Gets error message
      CALL METHOD o_exception->if_message~get_text
        RECEIVING
          result = l_message.

      MESSAGE l_message
         TYPE c_error.

  ENDTRY.
*  Cerrar el archivo ASCII plano.
  CLOSE DATASET p_rt.
ENDIF.

Etiquetas:

Comentarios

Publicar un comentario

Entradas más populares de este blog

A to Z of OLE Excel in ABAP 7.4

  SAP users, both business and end users always need to download the output of a report to spreadsheet and do their analytics.   The standard excel output from a report is very simple process but it is old fashioned and the spreadsheet looks quite boring.  There is no default formatting and the users have to do all the hard work of changing the fonts, coloring the texts, marking the borders etc. Updated 16th Aug 2019  –  If you are working in non-ABAP 7.4 (below), there is complete reference program for you too. Go to the end of this article.  Thank you  Legxis  ( LeonievonK ) for the share. I acknowledge, whatever I mentioned above can be achieved in many ways programmatically. We can do it in the old traditional ABAP way but  providing multiple tabs in the spreadsheet and formatting is quite tricky with non  OLE  method. OLE = Object Linking and Embedding The high level agenda of this article is to be the  G.O.A.T.  (ple...
Publicar un comentario
Leer más
How to add custom field in Additional B Tab for SAP Sales Order In this article we want to explain step by step how to add custom field in SAP Sales Order transaction VA01/VA02/VA03. This time Mr ABAPGurus will give the tutorial of enhancement to add custom field in SAP Sales order. In this sample we will add new custom field for comments and customer satisfaction, this data will save into separate table from SAP Standard table ( VBAK / VBAP ). SAP provided us with ADDITIONAL TAB in the sales order transaction ( VA01/VA02/VA03 ) which allow customer to add custom fields.  T he different between ADDITIONAL A and ADDITIONAL B is the ADDITIONAL A for field which already predefine in Sales Order Header ( VBAK ) fields and ADDITIONAL B is for field that freely define. This sample we will use ADDITIONAL B because we will store data from customer satisfaction into Z database table. 1. Create one Z table using SE11 SAP Transaction code. 2.Using SE38 Transactio...
Publicar un comentario
Leer más

CÓMO ENCONTRAR LA BADI Enhacements Exits

¿Cómo encontrar la BADI que necesitamos? Existen varios caminos para encontrar la BADI que requerimos en un momento dado, vamos a ver algunas de ellas: Opción A. Entramos a la transacción SE80, buscamos en el explorador la clase “CL_BADI_FLT_DATA_TRANS_AND_DB”, luego ubicamos el método “ACT_IMPS_PER_FLT_VAL” y entramos al código, apelamos al buscador para ubicar el comentario “read BADI attributes”, y justo debajo del SELECT que veremos, fijamos un break-point. Luego, abrimos otro modo para ejecutar la transacción que se desea analizar, y veremos que se detendrá cada vez que pase por el break-point fijado, ahora revisamos en el debugger los campos “exit_name” e “internal” para dar con las BADI’s que toca dicha transacción. Opción B. Utilizamos la transacción SE93 para ver los atributos de la transacción estándar que queremos evaluar, buscamos su paquete (clase de desarrollo), luego nos dirigimos a la transacción SE18, optamos por la opción de búsqueda ampliada, indicam...
Publicar un comentario
Leer más