Script Examples
Script Examples
The following are three short example scripts. The blank lines have been added for clarity only, they have no effect on the script. For more information on the individual commands, please check the List of Supported Commands section.
Example 1:
REM ------------------------ BEGINNING OF SCRIPT ------------------------
REM
REM ALL EXAMPLES IN THIS FILE COULD HAVE BEEN TYPED
REM IN UPPERCASE AS WELL, EXCEPT FOR THE PARTS THAT
REM APPLY TO SEARCH TEXT (THIS TEXT IS CASE SENSITIVE)
REM
port 2445
REM The following address is not valid
connect ‘‘111.11.111.11’‘
lookfor ‘‘SPARTACUS KNET/MVS’‘
cursor ‘‘1/14’‘
type ‘‘tso’‘
key ‘‘enter’‘
REM Change the delimiter from ‘‘ to *
delimiter *
key *enter*
REM And change it back to the default
delimiter ‘‘
lookfor ‘‘PLEASE ENTER USERID’‘
prompt ‘‘Please enter your user id’‘
key ‘‘enter’‘
lookfor ‘‘Enter LOGON parameters’‘
password ‘‘Enter your password’‘
key ‘‘enter’‘
lookfor ‘‘***’‘
key ‘‘enter’‘
lookfor ‘‘Welcome to’‘
key ‘‘enter’‘
lookfor ‘‘***’‘
key ‘‘enter’‘
lookfor ‘‘Primary Option Menu’‘
cursor 3/12
key ‘‘pf2’‘
lookfor ‘‘* * * * *’‘
type ‘‘M.5’‘
key ‘‘enter’‘
lookfor ‘‘SDSF PRIMARY OPTION MENU’‘
type ‘‘prefix *’‘ key ‘‘enter’‘
key ‘‘pf9’‘
REM ------------------------ END OF SCRIPT ------------------------
Example 2:
REM ------------------------ BEGINNING OF SCRIPT ------------------------
REM Connect to Queens Library on port 23. Execute a search on Author,
REM then search for text, while text is not found, go to next screen.
REM Once the text is found, copy the screen to a disk file, close the
REM connection and exit the program.
port 23
connect qline.queensu.ca
lookfor "Queen's University"
type "qcat"
key enter
key home
type "a=heinlein, robert a."
key enter
dowhile (!search, "GALILEO")
key pf8
loop
screentodisk "c:\galileo.txt"
type stop
key enter
close ""
REM ------------------------ END OF SCRIPT ------------------------
Example 3:
REM ------------------------ BEGINNING OF SCRIPT ------------------------
REM Connect to Queens Library, change to the local library, do a search on
REM keyword "mark", display and save to disk all screens until the end
REM of the index
port 23
connect qline.queensu.ca
lookfor Queen's
type libs
key enter
type local
key enter
type k=mark
key enter
type 1
key enter
screentodisk c:\mark.txt,5/1,12/80
dowhile (!search, "Last entry in index displayed")
key pf6
REM do not print the screen if the search string
REM is displayed, because in that case we already have
REM the screen in the file
if (!search, "Last entry in index displayed")
appendtodisk c:\mark.txt
endif
loop
type stop
key enter
close
REM ------------------------ END OF SCRIPT ------------------------