Mover txt entre carpetas

[gbrunatti]

Buen día gente,
estoy haciendo un programa que levanta unos archivos txt y luego los procesa.
Lo que me piden es que si el txt se procesó bien, que lo mueva de la carpeta "Pendientes" a "Procesados".
Alguien sabe como lo puedo hacer?

Gracias!!

[koken]

Hola gbrunatti,

acá te dejo un código que seguro te va solucionar tu problema:

Tené en cuenta que V_PATHA es el archivo a mover y V_PATHN es el path destino del archivo

*   Copiar archivo original a tabla interna
    OPEN DATASET V_PATHA FOR INPUT IN TEXT MODE ENCODING DEFAULT.
    IF SY-SUBRC = 0.
      DO.
        READ DATASET V_PATHA INTO WA.
        IF SY-SUBRC NE 0.
          EXIT.
        ENDIF.
        ITAB-REC = WA.
        APPEND ITAB.
      ENDDO.
    ENDIF.
    CLOSE DATASET V_PATHA.

*   Crear nuevo archivo a partir de la tabla interna
    OPEN DATASET V_PATHN FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

    IF SY-SUBRC = 0.
      LOOP AT ITAB INTO WA.
        TRANSFER WA TO V_PATHN.
      ENDLOOP.
      CLOSE DATASET V_PATHN.

*     Borrar el archivo original
      DELETE DATASET V_PATHA.
    ENDIF.