Código de AS/400 - Ftp de as400 a windows

<<>>
sin imagen de perfil
Val: 19
Ha aumentado su posición en 2 puestos en AS/400 (en relación al último mes)
Gráfica de AS/400

Ftp de as400 a windowsgráfica de visualizaciones


AS/400

Publicado el 11 de Septiembre del 2019 por Hugo Arturo
287 visualizaciones desde el 11 de Septiembre del 2019
me pidieron transferir archivos de as400 a servidores windows

1. Se genera en este caso un archivo de datos en cobol
2. Una vez generado primero se arma un archivo con los comandos de ftp
3. Se invoca una cl, que toma dicho archivo de comandos, y genera un archivo de log

salu2

Requerimientos

..

1

Actualizado el 12 de Septiembre del 2019 (Publicado el 11 de Septiembre del 2019)gráfica de visualizaciones de la versión: 1
287 visualizaciones desde el 11 de Septiembre del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
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 ******



Comentarios sobre la versión: 1 (0)


No hay comentarios
 

Comentar la versión: 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5526
Revisar política de publicidad