BAJAR FICHEROS DE MAINFRAME A TXT

Todo lo referido a automatizadores de consola u otros (CONTROL-O, System Automation, etc)
Responder
Silvana

BAJAR FICHEROS DE MAINFRAME A TXT

Mensaje por Silvana » 06 Ago 2012, 16:54

Hola,

estoy trabajando en un proyecto donde no tenemos permisos para hacer FTP desde producción, por lo que los copiamos a local con este script muy básico. Como pueden ver es un loop que no corta nunca, por lo que necesito agregarle un EOF o algo similar, para no tener que estar controlándolo y cancelándolo desde el Mainframe. Podrían ayudarme?

SCRIPT:

LOOP:
EditSelect 5,1,21,14
key EditCopy
FileSpec clipboard,"c:\Users\XX\Desktop\SALIDA.txt",append
key EditSaveClipboard
key PF8
CursorTo 5,1
goto LOOP:
exit

Muchas gracias desde ya y saludos a todos.

Avatar de Usuario
Vicente
Colaborador avanzado
Colaborador avanzado
Mensajes: 543
Registrado: 21 Jul 2011, 04:52
País: España
Ciudad: Malaga
Ocupación: Técnico en Sistemas

Re: BAJAR FICHEROS DE MAINFRAME A TXT

Mensaje por Vicente » 07 Ago 2012, 10:49

Hola Silvana
No aclaras mucho, por lo que he de suponer que el lenguaje de script que estás utilizando es el proporcionado por tu software de emulación telnet 3270, de los que hay muchos disponibles.
Deduzco que, una vez editando el fichero, estas repitiendo los pasos: Copiar, Pegar y F8 sobre las lineas de datos del fichero editado.
De esta manera, la única forma que se me ocurre de detectar el fin de fichero es la siguiente:
1) Una vez que la tecla F8 ha llegado al final del fichero, otra tecla F8 posiciona en la línea 5 la siguiente:
***** **************************** BOTTOM OF DAATA ****************************
2) Tendrás que leer con el script esa posición de la pantalla y preguntar si es "** BOTTOM OF DATA **"
3) Condicionar el fin de tu bucle a esta situación

No obstante, como dices que no puedes usar FTP, una alternativa para hacer la transferencia es IND$FILE:

1) Habilitar este tipo de transferencia de ficheros en tu emulador telnet, en lugar de FTP (hay muchos emuladores que lo tienen). Podrías necesitar reinstalar el software de emlación telnet.
2) Poner tu terminal ISPF en la pantalla P.6
3) Desde el emulador ejecutar la transferencia de archivo.

Nota: IND$FILE es mucho más lento que FTP.

Un saludo
Varios días probando, equivocandote y volviendo a probar
pueden ahorrarte quince minutos de lectura de un manual.

jaisaper
Usuario avanzado
Usuario avanzado
Mensajes: 42
Registrado: 11 Nov 2010, 09:12
País: España
Ciudad: Pamplona
Ocupación: Técnico en Sistemas

Re: BAJAR FICHEROS DE MAINFRAME A TXT

Mensaje por jaisaper » 13 Ago 2012, 02:30

Otra alternativa es que "imprimas" :wink: el fichero por una sesión de emulación de impresora en vez de pantalla asignada a disco.

Responder