*-------------------------------------------*
* Este arquivo de 'Script' faz a conexão
* automática ao TSO, verificando se a tela
* inicial é uma USSTAB ou se é da aplicação
* de controle de acesso do ambiente.
*-------------------------------------------*
terminal "IBM-3279-5-E"
title "Acesso ao Unix System Services via TSO"
port "2323"
connect "10.3.6.3"
*
* O comando abaixo poderia ser usado,
* se o endereço IP acima já tiver sido definido
* na sessão.
*
* connect "TEC3270=*"
*
looklist "I1)[USSTAB]I5)[ACESSO]"
label "ACESSO"
key "ENTER"
goto "meio"
label "USSTAB"
type "EX"
key "enter"
* goto "meio"
*
* O comando goto acima está comentado
* porque o label "meio" já é o próximo
* comando.
*
label "meio"
lookfor "TELA 001"
prompt "Informe o seu código de acesso"
key "tab"
password "Informe a sua Senha"
key "tab"
key "tab"
type "xg"
key "enter"
lookfor "IKJ567"
prompt "Informe o seu código de acesso ao TSO"
key "enter"
lookfor "Enter LOGON"
password "Informe a Senha do TSO"
key "enter"
looklist "***[ENTERT1]TSOSUPORTE[TSO]"
label "ENTERT1"
key "enter"
looklist "***[ENTERT2]TSOSUPORTE[TSO]"
label "ENTERT2"
key "enter"
lookfor "TSOSUPORTE"
label "TSO"
type "tso ish"
key "enter"
looklist "***[ENTERT3]OpenMVS[OPENMVS]"
label "ENTERT3"
key "enter"
*
* O comando abaixo pode ser usado para posicionar
* o cursor no lugar onde o texto digitado no
* comando 'prompt' vai ser inserido:
*
* movecursor "15:15"
*
* Ele não foi usado porque quando a tela é recebida
* o cursor já está nesta posição.
*
label "OPENMVS"
prompt "Informe Diretório:"
key"enter"