¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas

Utilidades
Copiar SAVF sin TCP/IP

De todos es sabido es que un fichero SAVFde AS400   puede transportarse via FTP con la opcion "Binary" atraves de internet, pero ¿que pasa cuando no disponemos de TCP/IP en el AS400 o deseamos bajar a diskette de PC este SAVF?

Esta ha sido mi solucion:

  1. CRTSAVF  QGPL/XXSAVF
  2. CRTPF  QGPL/XXPF RCDLEN(528)
  3. CRTSRCPF QGPL/QREXPRC
  4. STRSEU SRCFILE(QGPL/QREXSRC) SRCMBR(SAVFTOPF) TYPE(REXX)
  5. Introducir las lineas del procedimiento REXX:

     'OVRDBF FILE(STDIN)  TOFILE(QGPL/XXSAVF)'
     'OVRDBF FILE(STDOUT)  TOFILE(QGPL/XXPF)'

     DO FOREVER
        PARSE LINEIN line
        IF line == '' THEN LEAVE
        SAY line
     END

     RETURN

* Las comillas de la línea          IF line == '' THEN LEAVE  son dos comillas (')

  6. SAVOBJ OBJ(xxx) LIB(xxx) DEV(*SAVF) OBJTYPE(*PGM) SAVF(QGPL/XXSAVF)
  7. STRREXPRC SRCMBR(SAVFTOPF) SRCFILE(QGPL/QREXPRC)
  8. Desde el PC con CA400 arrancado crear una transferencia para el fichero QGPL/XXPF para crear el fichero PC de nombre ZZZZZ  y   SIN CONVERSION EBCDIC  a ASCII.
  9.  Ahora podremos incluso zipear el fichero ZZZZZ y enviarlo via e-mail desde PC o por diskette a cualquier destinatario.
  10. El proceso inverso consistira en crear un SAVF en el sistema destino, un fichero intermedio de 528 caracteres de longitud de registro y un procedimiento REXX exactamente igual pero con un STDIN que será el fichero fisico y un STDOUT para el SAVF que deberá estar vacio para que funcione
correctamente el procedimiento REXX. Tener en cuenta tambien que para subir el fichero del PC al AS400 deberemos hacerlo SIN CONVERSION ASCII a EBCDIC.

Cualquier comentario enviarlo a J.CANTOS@teleline.es

Fecha: 05-06-2000

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049