Difference between revisions of "SAP ABAP UNIX"

From SapWiki
Line 69: Line 69:
  
 
Programa ejemplo: RSFTP003
 
Programa ejemplo: RSFTP003
 +
===Ejemplo usando clases===
 +
<nowiki>
 +
CLASS cl_ftp DEFINITION.
 +
  PUBLIC SECTION.
 +
    METHODS: constructor IMPORTING  i_user            TYPE c
 +
                                    i_password        TYPE c
 +
                                    i_host            TYPE c
 +
                                    i_rfc_destination TYPE rfcdest DEFAULT 'SAPFTPA'
 +
                        EXCEPTIONS error,
 +
                command IMPORTING i_command TYPE c
 +
                        EXPORTING e_subrc  TYPE sy-subrc,
 +
              disconnect EXPORTING e_subrc  TYPE sy-subrc,
 +
                  upload IMPORTING i_xstring  TYPE xstring
 +
                                  i_fullpath TYPE string
 +
                        EXPORTING e_subrc    TYPE sy-subrc.
 +
 +
    DATA g_handle TYPE i.
 +
    DATA g_dest TYPE rfcdes-rfcdest.
 +
 +
ENDCLASS.
 +
 +
CLASS cl_ftp IMPLEMENTATION.
 +
  METHOD constructor.
 +
    CALL FUNCTION 'FTP_CONNECT'
 +
      EXPORTING
 +
        user            = i_user
 +
        password        = i_password
 +
        host            = i_host
 +
        rfc_destination = i_rfc_destination
 +
      IMPORTING
 +
        handle          = g_handle
 +
      EXCEPTIONS
 +
        not_connected  = 1.
 +
    IF sy-subrc <> 0.
 +
      RAISE error.
 +
    ENDIF.
 +
    g_dest = i_rfc_destination.
 +
  ENDMETHOD.
 +
 +
  METHOD command.
 +
    DATA lt_result TYPE TABLE OF text.
 +
    CALL FUNCTION 'FTP_COMMAND'
 +
      EXPORTING
 +
        handle        = g_handle
 +
        command      = i_command
 +
      TABLES
 +
        data          = lt_result
 +
      EXCEPTIONS
 +
        tcpip_error  = 1
 +
        command_error = 2
 +
        data_error    = 3.
 +
    e_subrc = sy-subrc.
 +
  ENDMETHOD.
 +
 +
  METHOD upload.
 +
 +
    DATA: lt_xtable  TYPE faa_t_tenv_xmlraw.
 +
    DATA: ld_filesize TYPE i.
 +
    DATA l_command(120).
 +
 +
* Converting XString to XTable
 +
    CALL METHOD cl_faa_tenv_services=>convert_xstring_to_xtable
 +
      EXPORTING
 +
        id_xstring    = i_xstring
 +
      IMPORTING
 +
        et_xtable    = lt_xtable
 +
      EXCEPTIONS
 +
        invalid_table = 1
 +
        OTHERS        = 2.
 +
 +
    IF sy-subrc <> 0.
 +
      MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
 +
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 +
      e_subrc = sy-subrc.
 +
      RETURN.
 +
    ENDIF.
 +
 +
* . Save XTable
 +
    ld_filesize = xstrlen( i_xstring ).
 +
    DATA l_fname(120).
 +
 +
    l_fname = i_fullpath.
 +
    CALL FUNCTION 'FTP_R3_TO_CLIENT'
 +
      EXPORTING
 +
        fname          = l_fname
 +
        rfc_destination = g_dest
 +
        blob_length    = ld_filesize
 +
      TABLES
 +
        blob            = lt_xtable
 +
      EXCEPTIONS
 +
        command_error  = 1
 +
        data_error      = 2
 +
        OTHERS          = 3.
 +
    e_subrc = sy-subrc.
 +
    IF sy-subrc <> 0.
 +
* Implement suitable error handling here
 +
    ENDIF.
 +
 +
  ENDMETHOD.
 +
 +
  METHOD disconnect.
 +
 +
    CALL FUNCTION 'FTP_DISCONNECT'
 +
      EXPORTING
 +
        handle = g_handle.
 +
 +
    CALL FUNCTION 'RFC_CONNECTION_CLOSE'
 +
      EXPORTING
 +
        destination = g_dest
 +
      EXCEPTIONS
 +
        OTHERS      = 1.
 +
    e_subrc = sy-subrc.
 +
  ENDMETHOD.
 +
ENDCLASS.
 +
 +
CLASS cl_documento DEFINITION.
 +
  PUBLIC SECTION.
 +
    CLASS-METHODS: upload_ftp IMPORTING i_path    TYPE string
 +
                                        i_xstring TYPE xstring
 +
*                                        i_open    TYPE abap_bool
 +
*                                        i_close  TYPE abap_bool
 +
                              CHANGING  c_subrc  TYPE sy-subrc
 +
                                        c_ftp    TYPE REF TO cl_ftp,
 +
      gui_download IMPORTING i_xstring  TYPE xstring
 +
                            i_fullpath TYPE string
 +
                  CHANGING  c_subrc    TYPE sy-subrc.
 +
 +
 +
 +
ENDCLASS.
 +
 +
CLASS cl_documento IMPLEMENTATION.
 +
  METHOD upload_ftp.
 +
    DATA: lt_bin_tab    TYPE solix_tab,
 +
          l_file_length TYPE i.
 +
 +
    DATA: l_user(30) TYPE c VALUE 'svc_stockmed',
 +
          l_pwd(30)  TYPE c VALUE '5Vc_5t0CKm3D',
 +
          l_host(64) TYPE c VALUE '172.22.0.21',
 +
          l_dest    TYPE rfcdes-rfcdest VALUE 'SAPFTPA'.
 +
    DATA l_command(120).
 +
 +
    DATA: key        TYPE i VALUE 26101957,
 +
          hdl        TYPE i,
 +
          slen      TYPE i,
 +
          x          TYPE i,
 +
          docid      TYPE sysuuid-c,
 +
          cmd(120),
 +
          error,
 +
          bline(120) TYPE x.
 +
 +
*select SINGLE * into @data(ls_t000) from t000.
 +
*  IF ls_t000-cccategory = 'D' or ls_t000-cccategory = 'C'.
 +
*    l_user = 'svc_stockmed@sapwiki.cl'.
 +
*    l_host = 'ftp.sapwiki.cl'. " '162.241.60.11'.
 +
*endif.
 +
 +
    IF c_ftp is NOT BOUND. "i_open = abap_true.
 +
      slen = strlen( l_pwd ).
 +
 +
      CALL FUNCTION 'HTTP_SCRAMBLE'
 +
        EXPORTING
 +
          source      = l_pwd
 +
          sourcelen  = slen
 +
          key        = key
 +
        IMPORTING
 +
          destination = l_pwd.
 +
 +
      CREATE OBJECT c_ftp
 +
        EXPORTING
 +
          i_user            = l_user
 +
          i_password        = l_pwd
 +
          i_host            = l_host
 +
          i_rfc_destination = l_dest
 +
        EXCEPTIONS
 +
          error            = 1.
 +
      IF sy-subrc <> 0.
 +
        c_subrc = sy-subrc.
 +
        RETURN.
 +
      ENDIF.
 +
 +
      c_ftp->command( EXPORTING i_command = 'set passive on'
 +
                    IMPORTING e_subrc = c_subrc
 +
                ).
 +
      IF c_subrc <> 0.
 +
        RETURN.
 +
      ENDIF.
 +
    ENDIF.
 +
 +
    c_ftp->upload( EXPORTING i_xstring = i_xstring
 +
                            i_fullpath = i_path
 +
                  IMPORTING e_subrc = c_subrc
 +
              ).
 +
    IF c_subrc <> 0.
 +
      RETURN.
 +
    ENDIF.
 +
    l_command = |put { i_path }|.
 +
 +
    c_ftp->command( EXPORTING i_command = l_command
 +
                  IMPORTING e_subrc = c_subrc ).
 +
 +
    IF c_subrc <> 0.
 +
      RETURN.
 +
    ENDIF.
 +
 +
*    IF i_close = abap_true.
 +
*      c_ftp->disconnect( IMPORTING e_subrc = c_subrc ).
 +
*    ENDIF.
 +
 +
  ENDMETHOD.
 +
 +
  METHOD gui_download.
 +
* Stores a XSTRING as file on frontend client
 +
 +
    DATA: lt_xtable  TYPE faa_t_tenv_xmlraw.
 +
    DATA: ld_filesize TYPE i.
 +
 +
* Converting XString to XTable
 +
    CALL METHOD cl_faa_tenv_services=>convert_xstring_to_xtable
 +
      EXPORTING
 +
        id_xstring    = i_xstring
 +
      IMPORTING
 +
        et_xtable    = lt_xtable
 +
      EXCEPTIONS
 +
        invalid_table = 1
 +
        OTHERS        = 2.
 +
 +
    IF sy-subrc <> 0.
 +
      c_subrc = sy-subrc.
 +
      MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
 +
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 +
      RETURN.
 +
    ENDIF.
 +
 +
* . Save XTable
 +
    ld_filesize = xstrlen( i_xstring ).
 +
    CALL METHOD cl_gui_frontend_services=>gui_download
 +
      EXPORTING
 +
        bin_filesize = ld_filesize
 +
        filename    = i_fullpath
 +
        filetype    = 'BIN'
 +
      CHANGING
 +
        data_tab    = lt_xtable
 +
      EXCEPTIONS
 +
        OTHERS      = 4.
 +
    c_subrc = sy-subrc.
 +
    IF sy-subrc <> 0.
 +
      MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
 +
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 +
    ENDIF.
 +
 +
 +
  ENDMETHOD.
 +
 +
ENDCLASS.
 +
DATA g_ftp TYPE REF TO cl_ftp.
 +
 +
</nowiki>
  
 
==Unix Varios==
 
==Unix Varios==

Revision as of 13:58, 4 March 2021

Ejecutar comando de sistema operativo

(Los comandos se definen en la tran. SM69) Función SXPG_COMMAND_EXECUTE

ejemplo: 

FORM mueve_ficheros USING p_file p_dir p_dire CHANGING p_subrc.

    DATA: BEGIN OF lt_btcxpm OCCURS 0.
        INCLUDE STRUCTURE btcxpm.
    DATA: END OF lt_btcxpm.
    DATA: l_para LIKE sxpgcolist-parameters,
          l_aux_dir1(200),
          l_aux_dir2(200),
          l_string TYPE string.

    CONCATENATE p_dir   '/' p_file INTO l_aux_dir1.
    CONCATENATE  p_dire '/' p_file INTO l_aux_dir2.
    CONCATENATE l_aux_dir1 l_aux_dir2 INTO l_para SEPARATED BY space.

    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.

    CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
      EXPORTING
        commandname                   = 'ZMV'
        additional_parameters         = l_para
      TABLES
        exec_protocol                 = lt_btcxpm
      EXCEPTIONS
        no_permission                 = 1
        command_not_found             = 2
        parameters_too_long           = 3
        security_risk                 = 4
        wrong_check_call_interface    = 5
        program_start_error           = 6
        program_termination_error     = 7
        x_error                       = 8
        parameter_expected            = 9
        too_many_parameters           = 10
        illegal_command               = 11
        wrong_asynchronous_parameters = 12
        cant_enq_tbtco_entry          = 13
        jobcount_generation_error     = 14
        OTHERS                        = 15.
    p_subrc = sy-subrc.

    IF sy-subrc <> 0.
      CASE sy-subrc.
        WHEN 1.
          MESSAGE e010(0t) WITH 'Sin autorizacion para comando OS ZMV' INTO l_string. "#EC NOTEXT
        WHEN 2.
          MESSAGE e010(0t) WITH 'Comando OS ZMV no existe' INTO l_string. "#EC NOTEXT
        WHEN OTHERS.
          MESSAGE e010(0t) WITH 'ZMV errorcode: ' sy-subrc INTO l_string. "#EC NOTEXT
      ENDCASE.

      WRITE:/ l_string.
    ENDIF.
  ENDFORM.

PUT/GET archivos a/desde servidor FTP

Funciones:

  • FTP_CONNECT
  • FTP_COMMAND
  • FTP_R3_TO_CLIENT
  • FTP_SERVER_TO_R3

Programa ejemplo: RSFTP003

Ejemplo usando clases

CLASS cl_ftp DEFINITION.
  PUBLIC SECTION.
    METHODS: constructor IMPORTING  i_user            TYPE c
                                    i_password        TYPE c
                                    i_host            TYPE c
                                    i_rfc_destination TYPE rfcdest DEFAULT 'SAPFTPA'
                         EXCEPTIONS error,
                 command IMPORTING i_command TYPE c
                         EXPORTING e_subrc   TYPE sy-subrc,
              disconnect EXPORTING e_subrc   TYPE sy-subrc,
                  upload IMPORTING i_xstring  TYPE xstring
                                   i_fullpath TYPE string
                         EXPORTING e_subrc    TYPE sy-subrc.

    DATA g_handle TYPE i.
    DATA g_dest TYPE rfcdes-rfcdest.

ENDCLASS.

CLASS cl_ftp IMPLEMENTATION.
  METHOD constructor.
    CALL FUNCTION 'FTP_CONNECT'
      EXPORTING
        user            = i_user
        password        = i_password
        host            = i_host
        rfc_destination = i_rfc_destination
      IMPORTING
        handle          = g_handle
      EXCEPTIONS
        not_connected   = 1.
    IF sy-subrc <> 0.
      RAISE error.
    ENDIF.
    g_dest = i_rfc_destination.
  ENDMETHOD.

  METHOD command.
    DATA lt_result TYPE TABLE OF text.
    CALL FUNCTION 'FTP_COMMAND'
      EXPORTING
        handle        = g_handle
        command       = i_command
      TABLES
        data          = lt_result
      EXCEPTIONS
        tcpip_error   = 1
        command_error = 2
        data_error    = 3.
    e_subrc = sy-subrc.
  ENDMETHOD.

  METHOD upload.

    DATA: lt_xtable   TYPE faa_t_tenv_xmlraw.
    DATA: ld_filesize TYPE i.
    DATA l_command(120).

* Converting XString to XTable
    CALL METHOD cl_faa_tenv_services=>convert_xstring_to_xtable
      EXPORTING
        id_xstring    = i_xstring
      IMPORTING
        et_xtable     = lt_xtable
      EXCEPTIONS
        invalid_table = 1
        OTHERS        = 2.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      e_subrc = sy-subrc.
      RETURN.
    ENDIF.

* . Save XTable
    ld_filesize = xstrlen( i_xstring ).
    DATA l_fname(120).

    l_fname = i_fullpath.
    CALL FUNCTION 'FTP_R3_TO_CLIENT'
      EXPORTING
        fname           = l_fname
        rfc_destination = g_dest
        blob_length     = ld_filesize
      TABLES
        blob            = lt_xtable
      EXCEPTIONS
        command_error   = 1
        data_error      = 2
        OTHERS          = 3.
    e_subrc = sy-subrc.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.

  ENDMETHOD.

  METHOD disconnect.

    CALL FUNCTION 'FTP_DISCONNECT'
      EXPORTING
        handle = g_handle.

    CALL FUNCTION 'RFC_CONNECTION_CLOSE'
      EXPORTING
        destination = g_dest
      EXCEPTIONS
        OTHERS      = 1.
    e_subrc = sy-subrc.
  ENDMETHOD.
ENDCLASS.

CLASS cl_documento DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS: upload_ftp IMPORTING i_path    TYPE string
                                        i_xstring TYPE xstring
*                                        i_open    TYPE abap_bool
*                                        i_close   TYPE abap_bool
                              CHANGING  c_subrc   TYPE sy-subrc
                                        c_ftp     TYPE REF TO cl_ftp,
      gui_download IMPORTING i_xstring  TYPE xstring
                             i_fullpath TYPE string
                   CHANGING  c_subrc    TYPE sy-subrc.



ENDCLASS.

CLASS cl_documento IMPLEMENTATION.
  METHOD upload_ftp.
    DATA: lt_bin_tab    TYPE solix_tab,
          l_file_length TYPE i.

    DATA: l_user(30) TYPE c VALUE 'svc_stockmed',
          l_pwd(30)  TYPE c VALUE '5Vc_5t0CKm3D',
          l_host(64) TYPE c VALUE '172.22.0.21',
          l_dest     TYPE rfcdes-rfcdest VALUE 'SAPFTPA'.
    DATA l_command(120).

    DATA: key        TYPE i VALUE 26101957,
          hdl        TYPE i,
          slen       TYPE i,
          x          TYPE i,
          docid      TYPE sysuuid-c,
          cmd(120),
          error,
          bline(120) TYPE x.

*select SINGLE * into @data(ls_t000) from t000.
*  IF ls_t000-cccategory = 'D' or ls_t000-cccategory = 'C'.
*    l_user = 'svc_stockmed@sapwiki.cl'.
*     l_host = 'ftp.sapwiki.cl'. " '162.241.60.11'.
*endif.

    IF c_ftp is NOT BOUND. "i_open = abap_true.
      slen = strlen( l_pwd ).

      CALL FUNCTION 'HTTP_SCRAMBLE'
        EXPORTING
          source      = l_pwd
          sourcelen   = slen
          key         = key
        IMPORTING
          destination = l_pwd.

      CREATE OBJECT c_ftp
        EXPORTING
          i_user            = l_user
          i_password        = l_pwd
          i_host            = l_host
          i_rfc_destination = l_dest
        EXCEPTIONS
          error             = 1.
      IF sy-subrc <> 0.
        c_subrc = sy-subrc.
        RETURN.
      ENDIF.

      c_ftp->command( EXPORTING i_command = 'set passive on'
                     IMPORTING e_subrc = c_subrc
                 ).
      IF c_subrc <> 0.
        RETURN.
      ENDIF.
    ENDIF.

    c_ftp->upload( EXPORTING i_xstring = i_xstring
                             i_fullpath = i_path
                   IMPORTING e_subrc = c_subrc
               ).
    IF c_subrc <> 0.
      RETURN.
    ENDIF.
    l_command = |put { i_path }|.

    c_ftp->command( EXPORTING i_command = l_command
                   IMPORTING e_subrc = c_subrc ).

    IF c_subrc <> 0.
      RETURN.
    ENDIF.

*    IF i_close = abap_true.
*      c_ftp->disconnect( IMPORTING e_subrc = c_subrc ).
*    ENDIF.

  ENDMETHOD.

  METHOD gui_download.
* Stores a XSTRING as file on frontend client

    DATA: lt_xtable   TYPE faa_t_tenv_xmlraw.
    DATA: ld_filesize TYPE i.

* Converting XString to XTable
    CALL METHOD cl_faa_tenv_services=>convert_xstring_to_xtable
      EXPORTING
        id_xstring    = i_xstring
      IMPORTING
        et_xtable     = lt_xtable
      EXCEPTIONS
        invalid_table = 1
        OTHERS        = 2.

    IF sy-subrc <> 0.
      c_subrc = sy-subrc.
      MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      RETURN.
    ENDIF.

* . Save XTable
    ld_filesize = xstrlen( i_xstring ).
    CALL METHOD cl_gui_frontend_services=>gui_download
      EXPORTING
        bin_filesize = ld_filesize
        filename     = i_fullpath
        filetype     = 'BIN'
      CHANGING
        data_tab     = lt_xtable
      EXCEPTIONS
        OTHERS       = 4.
    c_subrc = sy-subrc.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.


  ENDMETHOD.

ENDCLASS.
DATA g_ftp TYPE REF TO cl_ftp.

Unix Varios

Trn. SM69 : Comandos Sistema Operativo

Trn. CG3Z / Reporte RC1TCG3Z : Upload fichero a servidor

Trn. CG3Y / Reporte RC1TCG3Y : Download fichero desde servidor

Trn. CACS_FILE_COPY, Rep. CACS_FILE_COPY : copiar de servidor a PC y viceversa

Rep. RSBDCOS0 : Ejecutar comando SO (grabado en log sistema y ficheros Trace)

FM. BRAN_DIR_CREATE : crear directorio (ojo con las validaciones internas pero se puede usar de base)

Retrieved from "http://sapwiki.cl/wiki/index.php?title=SAP_ABAP_UNIX&oldid=1042"