*-------------------------------------------*
* This 'Script' file make an automatic
* connection to TSO, verifying if initial
* screen is an USSTAB screen or it is an
* access control application screen.
*-------------------------------------------*
terminal "IBM-3279-5-E"
title "Unix System Services access via TSO"
port "2323"
connect "10.3.6.3"
*
* The following command could be used,
* if IP address above has been defined
* on session configuration.
*
* connect "TEC3270=*"
*
looklist "I1)[USSTAB]I5)[ACCESS]"
label "ACCESS"
key "ENTER"
goto "half"
label "USSTAB"
type "EX"
key "enter"
* goto "half"
*
* The goto command above is an comment
* because the "half" label is next
* command.
*
label "half"
lookfor "SCR 001"
prompt "Type your access code"
key "tab"
password "Type your password"
key "tab"
key "tab"
type "xg"
key "enter"
lookfor "IKJ567"
prompt "Type your TSO userid"
key "enter"
lookfor "Enter LOGON"
password "Type your TSO password"
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"
*
* The following command could be used to put
* the cursor at the screen place where the "prompt"
* command typed string will be inserted:
*
* movecursor "15:15"
*
* It wasn't executed because the screen is received
* with the cursor already positioned in this place.
*
label "OPENMVS"
prompt "Type (sub)directory path:"
key"enter"