se arma un archivo de comandos de ftp como este
Archivo . . . . : xxxxx Biblioteca . . . : xxxxx
Nombre . . . . . : xxxxxx Registro . . . . : 1
Control . . . . . Columna . . . . : 1
Buscar . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+
OPEN ip puerto
USER usuario password
Put aaaaa \\Carpeta1\Carpeta2\Carpeta3\Carpeta4\arch1.TXT
Put bbbbb \ \Carpeta1\Carpeta2\Carpeta4\Carpeta4\arch2.OK
CLOSE
quit
****** FIN DE DATOS ******
La cl seria como esta
/*%ATTR DbgView(*Source) Aut(*All)
PGM PARM(&IPSE)
DCL VAR(&IPSE) TYPE(*CHAR) LEN(15)
CLRPFM FILE(archivolog)
OVRDBF FILE(INPUT) TOFILE(archvoparametros) MBR(archvoparametros)
OVRDBF FILE(OUTPUT) TOFILE(archivolog) MBR(archivolog)
FTP &IPSE
ENDPGM
el &IPSE sirve para 2 cosas, pero esta cl lo requiere, en el programa cobol
call clxxx &IPSE (aunque este en espacios, se supone que ahy debe de llevar la ip
Esto deja un log del ftp
Visualizar Miembro de Archivo Físico
Archivo . . . . : archivolog Biblioteca . . . : xxxx
Nombre . . . . . : archivolog Registro . . . . : 1
Control . . . . . Columna . . . . : 1
Buscar . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+...
Se ha redirigido la salida a un archivo.
Lectura de entrada del archivo de la alteración temporal especificado.
No se ha podido encontrar el sistema principal OPEN.
Entre un submandato de FTP.
> OPEN ip puerto
Conectando con el sistema principal remoto 10.110.10.39 utilizando el puerto
8046.
220 Microsoft FTP Service
Entre un submandato de FTP.
> USER usuario password
331 Password required
230 User logged in.
Windows_NT
Entre un submandato de FTP.
> Put ....
229 Entering Extended Passive Mode (|||52887|)
125 Data connection already open; Transfer starting.
226 Transfer complete.
8000 bytes transferidos en 3.002 segundos. Velocidad de transferencia 3.891
KB/seg.
Entre un submandato de FTP.
> Put ....
229 Entering Extended Passive Mode (|||52888|)
125 Data connection already open; Transfer starting.
226 Transfer complete.
19 bytes transferidos en 0.005 segundos. Velocidad de transferencia 3.891
KB/seg.
Entre un submandato de FTP.
> CLOSE
221 Goodbye.
Entre un submandato de FTP.
> QUIT
****** FIN DE DATOS ******