jueves, 20 de octubre de 2011

Pasar al IFS archivos de AS400 / iSeries en formato texto con CPYTOIMPF.

Si queremos usar la línea de mandatos para realizar esta tarea, aquí tenemos un ejemplo del uso del mandato CPYTOIMPF para pasar ficheros a formato txt:

CPYTOIMPF FROMFILE(LIBRERIA/ARCHIVO MIEMBRO) TOSTMF('/temporal/carlos/nombre.txt') FROMCCSID(284) STMFCCSID(*PCASCII) RCDDLM(*CRLF) STRDLM(*NONE)

3 comentarios:

  1. Me sirvió muchísimo. Gracias Carlos.

    ResponderEliminar
  2. Buenas tardes, como envio un archivo en texto plano (txt) desde el IFS al menu del iseries y poder visualizarlo

    Ejemplo:

    /home/micarpeta a MiLibreria/MiFile/MiMBR
    y luego poder visualizarlo con la opcion 5
    el problema es que creo que esta en ascii
    cuando uso el comando EDTF, puedo visualizarlo pero de otra forma no, saludos

    ResponderEliminar
    Respuestas
    1. Hola kaisersouse. Prueba esto:
      1. Crear el archivo a visualizar.
      CRTPF FILE(MiLibreria/MiFile) RCDLEN(X) MBR(MiMBR)

      2. Copiar el fichero txt al archivo creado
      CPYFRMSTMF FROMSTMF('/home/micarpeta/fichero.txt') +
      TOMBR('/QSYS.LIB/MiLibreria.LIB/MiFile.FILE/MiMBR.MBR') + MBROPT(*REPLACE) STMFCCSID(*PCASCII) ENDLINFMT(*CRLF)

      En cualquier caso, es posible que haya que adaptar los parámetros del mandato CPYFRMSTMF a las características de tu fichero txt.

      Saludos,
      Carlos Bartolomé.

      Eliminar

Muchas gracias por tus comentarios.