IBM 3770 - Manual (Page 14)

3770Link
12
IF conn_loop, connect
QUIT
:connect
PTR testptr
SEND jcl.txt
IF sendfail
RCV
:sendfail
DISC
QUIT
This example LU script file dials a phone number and checks for numerous
possible result codes. If the dial is successful, two files are transmitted
consecutively and a RCV is executed to await the host’s reply. The line is
then disconnected. This script file example also assumes that a single LU
is configured for the current connection and that the INIT_SELF has been
enabled and configured for the single LU specified for this connection.
:top
DIAL 1-512-555-1212
;; Check for busy signal.
IFERROR= 1055 top
;; Check for no dial tone.
IFERROR= 1056 no_tone
;; Other dial error occurred.
IFERROR exit
;; Send two files in a row.
SEND jcl.1
;; Check for any error.
IFERROR exit
SEND jcl.2
;; Define auto-naming printer file.
PTR newdata /n
;; Wait for host reply.
RCV
:exit
DISC
QUIT