ocubero
07/11/07, 21:08:34
Hola Chicos, espero su gran ayuda para solucionar un problema, estoy tratando de extraer una informacion de unas tablas, sin embargo me esta dando problemas con la creacion del archivo, en ningun momento me da ningun error, e inclusive el SY-SUBRC en todo momento es 0, pero cuando le das buscar en la ruta que le asignas, el archivo no fue creado.
Alguien ha tenido ese tipo de problemas?, por favorrrr su ayuda si alguien sabe por que me puede estar pasando esto.
Aqui les adjunto un codigo pequeñito que hice de prueba con valores fijos para ver si asi se creaba el file , pero aun asi, no se crea.
Gracias por cualquier consejo que me puedan dar
REPORT ZFILES message-id zz.
SELECTION-SCREEN: SKIP 2.
PARAMETERS: RUTA(40) DEFAULT 'C:\Documents and Settings' LOWER CASE.
DATA: RUTA_ARCHIVO(50) TYPE C,
ZOUT(40) VALUE `HOLA`.
START-OF-SELECTION.
CONCATENATE RUTA '\p3.txt' INTO RUTA_ARCHIVO.
TRANSLATE RUTA_ARCHIVO TO LOWER CASE.
OPEN DATASET RUTA_ARCHIVO FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC = 0.
TRANSFER ZOUT TO RUTA_ARCHIVO.
ENDIF.
IF SY-SUBRC <> 0.
Message e001 with text-001." with 'Error opening output file'.
ENDIF.
CLOSE DATASET RUTA_ARCHIVO.
END-OF-SELECTION.
Alguien ha tenido ese tipo de problemas?, por favorrrr su ayuda si alguien sabe por que me puede estar pasando esto.
Aqui les adjunto un codigo pequeñito que hice de prueba con valores fijos para ver si asi se creaba el file , pero aun asi, no se crea.
Gracias por cualquier consejo que me puedan dar
REPORT ZFILES message-id zz.
SELECTION-SCREEN: SKIP 2.
PARAMETERS: RUTA(40) DEFAULT 'C:\Documents and Settings' LOWER CASE.
DATA: RUTA_ARCHIVO(50) TYPE C,
ZOUT(40) VALUE `HOLA`.
START-OF-SELECTION.
CONCATENATE RUTA '\p3.txt' INTO RUTA_ARCHIVO.
TRANSLATE RUTA_ARCHIVO TO LOWER CASE.
OPEN DATASET RUTA_ARCHIVO FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC = 0.
TRANSFER ZOUT TO RUTA_ARCHIVO.
ENDIF.
IF SY-SUBRC <> 0.
Message e001 with text-001." with 'Error opening output file'.
ENDIF.
CLOSE DATASET RUTA_ARCHIVO.
END-OF-SELECTION.