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
 |
|
| ¿Buscas trabajo ? | | Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico. |
|
|
¿Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.
Envianoslo y si resulta seleccionado
te enviaremos un vale de Amazon por valor de 50$.
Todos los trucos y documentos recibidos serán publicados.
|
|
