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

VA03 VA02 Obtener Textos Cabecera, Funct. ‘READ_TEXT’

Hoy me tocó obtener textos de pedidos, me pareció un tema interesante para compartir. Si bien no escribí yo el documento, me sirvió por eso lo comparto, y abajo cito la fuente. Obtener textos de las cabeceras en este caso mas especifico el texto de los pedidos como por ejemplo obtener el texto de un pedido. La forma de obtener textos es a través de la función ‘READ_TEXT’, pero tiene cierto chiste usarla y pasarle los parámetros correctos entonces vamos a proceder con el tutorial. Lo primero será en este caso ingresar a nuestro pedido, ya sea VA02 o VA03. Una vez que ingresamos el pedido daremos enter, y nos visualizará todo el pedido, procederemos a dar clic en el menú ‘Pasar a’ - ‘Cabecera’ - ‘Textos’ Esto nos llevará al texto que buscamos Una vez que vemos el texto, daremos doble para que nos abra una nueva ventana, dentro de la nueva ventana daremos clic en menú ‘Pasar a’ - ‘Cabecera’ y nos mostrará lo siguiente. Lo más importante de esta pantalla es: Nom...
Publicar un comentario
Leer más