Bienvenidos a Iseries Venezuela

Las mejores prácticas, recursos, tips, enlaces, videos y artículos para informáticos relacionados con el Iseries y el As/400 lenguajes de programación RPG, ILE RPG y SQL.

The best practices, resources, tips, links, videoes and articles for computer related to the Iseries and the As/400 languages of programming RPG, ILE RPG and SQL.

Sunday, August 22, 2010

Cómo abrir una sesión FTP en Batch







En varias ocasiones me han preguntado vía Email, cómo realizar un proceso FTP en BATCH tomando en cuenta que requerimos el usuario y la clave para abrir la sesión FTP.

En esta oportunidad les adjunto tres programas que son útiles para generar comandos FTP batch manejando el tema del usuario y la clave.

La idea es tener un archivo donde se graban los comandos FTP.

En este caso el archivo se llama FTPPAS, es un archivo que no tiene DDS sino que se crea con CRTPF con un largo de 132 posiciones. EL objeto del archivo se crea dinámicamente a tiempo de ejecución en la librería QTEMP. Esto es para no embasurar el disco. Una vez terminado el proceso el sistema operativo elimina el archivo al terminar el job.

El primer programa: PROGRAMA1 es un CLP.

1.-Verifica si existe el archivo FTPPAS en QTEMP, si no existe lo crea
2.-Luego llama a un programa RPG que se encarga de grabar en el archivo FTPPAS, cada comando FTP.

Notaras que la llamada al programa oprpg501 tiene en sus dos parámetros el usuario y la clave respectivamente.

La clave puedes preguntarla por pantalla al usuario, que va a ejecutar esto o tenerlos guardados en una dataara en un archivo, colocarlos en el programa directamente, como tu prefieras.

Existe un comando llamado CHKPWD. A ese comando le pasas el password que el usuario colocó en pantalla y el sistema operativo chequea si en verdad corresponde al password del usuario que está realizando la solicitud en pantalla, si no es así, se monitorea el error y se manda un mensaje de error.
Si no dispones de este comando en tu equipo, en el link al final de este artículo puedes descargar una utilidad que se encarga de realizar esta verificación.


IF COND(&IN03 = '1') THEN(GOTO FIN))


CHKPWD PASSWORD(&PSW) MONMSG
MSGID(CPF2362 CPF2363 CPF2364 CPF0001) EXEC(DO) CHGVAR VAR(&MSG) VALUE('La contraseña ingresada no +
                         corresponde al perfil del usuario')
GOTO LAZO2
ENDDO

FIN: ENDPGM

El tercer parámetro es la dirección IP con la cual se va a realizar la conexión, el cuarto y quinto parámetro es el nombre del archivo de salvar (donde está la data) y la librería del archivo de salvar. En este ejemplo se trata de enviar un SAVF desde un AS/400 hacia un PC.

3.-Por ultimo el programa llama a un CLP el cual se encarga de realizar efectivamente la serie de comandos FTP enviando la data.


El segundo Programa: PROGRAMA2 es un RPG.

Este Programa graba en el archivo FTPPAS y es llamado por el programa anterior.

Resalté en amarillo las instrucciones que interesan. Como puedes ver, arma cada instruccion FTP y hace WRITE al archivo FTPPAS.


El Tercer Programa: PROGRAMA3 es un CLP

Este programa es llamado por el primer programa y ejecuta el comando STRTCPFTP con parámetro la dirección IP.

Veras que se hace un override sobre el FTPPAS y que se crea un nuevo archivo llamado FPPASOUT sobre el cual también se hace override. Este archivo es también un físico sin dds de 132. En este archivo va a quedar un LOG para ti que puedes revisar después para saber si el proceso corrió bien o no. Es un log con todos los mensajes que envía el sistema operativo cada vez que ejecuta un comando FTP y puedes ver si fue satisfactorio o no.

Se crea en QTEMP para no embasurar el sistema. EL FTPPAS sirve como INPUT al comando STRTCPFTP y el FTPPASOUT sirve como output del log de ejecución. Este archivo FTPPASOUT es muy útil si quieres probar el programa interactivo primero y ver si corre bien. Vas mirando con un SQL o con un DSPPFM los mensajes que deja y así te aseguras que el proceso esta funcionando antes de ponerlo en producción como un proceso batch.

Puedes descargar los fuentes mencionados en este link:

http://cid-99e67619d21bbebb.office.live.com/browse.aspx/FTP%20BATCH


Autor: Ing. Liliana Suárez.


Si te pareció interesante el artículo reenvíalo a un amigo, haciendo click en el sobrecito que está al final del artículo. El conocimiento es valioso, compártelo.

1 comment:

Andres said...

una pregunta, como puedo iniciar dos o mas sesiones de 400 en una misma maquina con el mismo usuario???


Gracias,