Autor Tema: Tratamiento de ficheros servidor  (Leído 4907 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado jesusrodriguez

  • Novato
  • *
  • Mensajes: 10
    • Ver Perfil
Tratamiento de ficheros servidor
« en: 16 de Junio de 2009, 08:54:59 am »
function ztratamiento_ficheros.
*"----------------------------------------------------------------------
*"*"Interfase local
*"  IMPORTING
*"     REFERENCE(P_RUTA1) TYPE  STRING
*"     REFERENCE(P_FICH) TYPE  STRING
*"     REFERENCE(P_RUTA2) TYPE  STRING OPTIONAL
*"     REFERENCE(P_ACCION) TYPE  CHAR01 DEFAULT 'M'
*"  EXCEPTIONS
*"      ACCION_INVALIDA
*"      PARAMETROS_INVALIDOS
*"      FICHERO_NO_BORRADO
*"      DESTINO_NO_ENCONTRADO
*"      FICHERO_NO_ENCONTRADO
*"      FALLO_TRATAMIENTO
*"----------------------------------------------------------------------

* Validación de la acción
  if p_accion ne 'M' and p_accion ne 'B' and p_accion ne 'C'.
    raise accion_invalida.
    exit.
  endif.

  if ( ( p_accion eq 'M' or p_accion eq 'C' ) and p_ruta2 is initial ) or
       p_ruta1 is initial or p_fich is initial.
    raise parametros_invalidos.
    exit.
  endif.

  case p_accion.

    when 'C'.

      clear d_retorno.
      perform copiar_fichero using p_ruta1
                                   p_fich
                                   p_ruta2
                                   d_retorno.
      if d_retorno is initial.
        write: /01(100) 'Fichero copiado'.
      endif.

    when 'M'.

      clear d_retorno.
      perform copiar_fichero using p_ruta1
                                   p_fich
                                   p_ruta2
                                   d_retorno.

      if d_retorno is initial.
        perform borrar_fichero using p_ruta1
                                     p_fich
                                     d_retorno.
      endif.

      if d_retorno is initial.
        write: /01(100) 'Fichero movido'.
      endif.

    when 'B'.

      perform borrar_fichero using p_ruta1
                                   p_fich
                                   d_retorno.

      if d_retorno is initial.
        write: /01(100) 'Fichero borrado'.
      endif.

  endcase.

endfunction.

*********************************
*  INCLUDE DE DECLARACION DE DATOS    *
*********************************
function-pool zficheros.                    "MESSAGE-ID ..


data: d_ruta type string,
      d_retorno(1) type c.


types: begin of t_fichero,
         campo(1000) type c,
       end of t_fichero.

data: i_fichero type t_fichero occurs 0.

data: w_fichero(1000) type c.


*************************
*  INCLUDE DE SUBRUTINASS    *
*************************
*----------------------------------------------------------------------*
***INCLUDE LZFICHEROSF01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  COPIAR_FICHERO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form copiar_fichero using p_ruta1 type any
                          p_fich  type any
                          p_ruta2 type any
                          p_retorno type any.

  data: l_longitud  type i,
        ld_ruta_ini type string,
        ld_ruta_fin type string.

  concatenate p_ruta1
              p_fich
        into ld_ruta_ini.

  concatenate p_ruta2
              p_fich
        into ld_ruta_fin.

  open dataset ld_ruta_ini for input
                         in text mode
                         encoding non-unicode.

  if sy-subrc <> 0.
    raise fichero_no_encontrado.
    p_retorno = 'X'.
    exit.
  else.

    do.
      clear w_fichero.
      read dataset ld_ruta_ini into w_fichero.
      if sy-subrc ne 0.
        p_retorno = 'X'.
        exit.
      else.
        append w_fichero to i_fichero.
      endif.
    enddo.

* Cerrar el fichero
    close dataset ld_ruta_ini.

    if sy-subrc ne 0.
      raise fallo_tratamiento.
      p_retorno = 'X'.
    else.
      clear p_retorno.
    endif.

  endif.

* Se copia el contenido de la tabla
  open dataset ld_ruta_fin for output
                           in text mode
                           encoding non-unicode.

  if sy-subrc <> 0.
    raise destino_no_encontrado.
    p_retorno = 'X'.
    exit.
  else.

    clear l_longitud.
    describe field w_fichero length l_longitud
                             in character mode.

    clear w_fichero.
    loop at i_fichero into w_fichero.

      transfer w_fichero to ld_ruta_fin
                       length l_longitud.

      clear w_fichero.
    endloop.

    close dataset ld_ruta_fin.

    if sy-subrc ne 0.
      raise fallo_tratamiento.
      p_retorno = 'X'.
    else.
      clear p_retorno.
    endif.

  endif.

  free i_fichero.

endform.                    " COPIAR_FICHERO
*&---------------------------------------------------------------------*
*&      Form  BORRAR_FICHERO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_P_RUTA1  text
*      -->P_P_FICH  text
*----------------------------------------------------------------------*
form borrar_fichero  using    p_ruta1
                              p_fich
                              d_retorno.

  clear d_ruta.

  concatenate p_ruta1
              p_fich
         into d_ruta.

  delete dataset d_ruta.

  if sy-subrc ne 0.
    raise fichero_no_borrado.
    d_retorno = 'X'.
    exit.
  else.
    clear d_retorno.
  endif.

endform.                    " BORRAR_FICHERO