) *+, - . , / )!)01 - . ) 2)! ), * )3 " 4 .
% ( % % % % % % % ? % % % % ,# 0#((6 !> -/%. >#$%&'% -- &( %'+% & %> &/% (,%-#1 -/%('%(,#%. (#- 0 &!0*/ &1 %5*(%&'(%0 . (#/%(' %(,#% . 0 #/% -- &( #$%'+%.
* 0 .
, ! " # ! !!" $ % ! " & ! " # $ % ' ! # " !! ( ! ! # ! $ % " "
3 ( " ! + 5 ! !6 ! $ ! " # $ %%! 3 ( !! ! !!" ' # (# 0 # 7 8 #$ 8 9 : 7 ! !!" ! ! 8 9 : 7 ;$-$ & 3 ( !! ' ! '
*) , ,!. % ( ! " " " $ . (. 1. 1-) -2 3 2 + %% ) * ! 9 ( " (# $ % +% ' !!" : 7 ' ! ! ! ! .
. (. 1. & 1-) -2 2 1"8 $ %# ) * ! 9 ( " (# 9 :5 ( ! ( $ % ! + + ' 9,1,7' ,. %' .<%,' ! ! !!" %< ' " # "( " ' ! : < ! ' ! # ! ! ! # ( 9 :5 #' ! " $ . (. 1.
) - * ) . $. */ .
D A # #' #!( D ! # ( " # * ! )" ( * "!( ( $ + * ! & SET[(modifier)]D(variable); " A # # * ! ' " " ! # ( " $ + * ! & NEW NAME? ALPHA 8 ' ( ' # * ! ! !" ( ( " $ + * ! & LET var[[subscript]] = value <" " " " " ! " $
' ,7! ) ) * *. 7 # 7 $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 7 7 $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ % ! 9,7 5 1 7 ! " $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 7 %,4 ,% $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 8 .
! ,* ) , ) * - *1 ) . ,* ) . % ! " %,4 ,%& D : ' ! # ! ! # ! ! ! (# !$ : ! ' " $ 0 * " %,4 ,% " ( ! $ D %,4 ,% " C ; 9 .
5 ,! ** 0. *) 9 : )5 * .
8 ! # +, % ' "!( /C HH / $ % " " ( ! & D 5 C$ 8$ C$ ,!" $ < 5 ' " %,4 ,%$ % ( ! $ % %,4 ,% )" 7 !" ( $ D / H$ !
' 7 ! ! $ CL[OSE] 9 %,4 ,% $ ES[CAPE]escape_char # ( 7:: * ( ( $ % " CONTROL ]$ escape_char % ' # ! ' # " ! # " $ % ( ! ' " %,4 ,% ! $ %!! 0,! ' . , /, , * .
:% 7 ! ' ! ' ! %,4 ,%$ ! QUIT$ EX[IT] ' 9 # %,4 ,% !! ! $ ! D$ HE[LP] [command] # %,4 ,% !! $ A !! ' HELP # ( !! $ : !! ' HELP %,4 ,% !! ' # *' !! $ ?' $ command % $ 7 %,4 ,% ! " $ IN[TERRUPT] intr_char #
% ( ( ! " ' ( " # ! " $ 0 ! # " !!" ( ! ! $ 9 intr_char ( ! %,4 ,% $ % %,4 ,% " CONTROL ] ( (# ESCAPE !! $ 7 ! (# (# $ L[INE] MO[DE] C[HARACTER] L[INE] ! ! !
!! ! $ E[SCAPE] IN[TERRUPT] SE[ND] E[SCAPE] A[YT] B[REAK] IP % SEND ESCAPE !! %,4 ,% ! $ ! #' %,4 ,% ! ! # ! $ % SEND ESCAPE !! " # " $ : ! " ! # ! )" # " " " ' # "
) ..,0 . % ! " " " (# %,4 ,% " !$ ! ' " ! # ( %,4 ,% ! $ ' $. ) ..,0 . ..
? ,7! ) ) * *.
:%, $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ % %0 $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ % 07% $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ = %,.
$. 0 ? +% " %, 7 !! : CI> $ +% ( " ! $ FTP [-i] [-l[filename]] [-n] [-tfilename] [-v] [-g] [–q] [–u[username:password]] [host] –i 9 ( ! " !" $ : ! # " # $ –l[filename] 4 +% " " filename " 6 ! $ : filename ! ' FTP.
@ : 7: " ! $ ! [prog_name] prog_name # ! # " * " #$ < !! * " ' # " " ! # " +% $ : !! * ! ! ' # " ! 7: " # " * " 7: EX !! $ < 9 # +% !! ! $ = " ! # " )" ! "( )" ! ?? $ ! HELP !! $ ? ?[?] [command] # +% !! $ : !! ' +% " #
% ! $ AP[PEND] local_file [remote_file] local_file ( ! $ remote_file ! $ : remote_file * ' +% ( $ : remote_file ! ! ' +% " local_file ! remote_file ! $ %% # ASCII$ AS[CII] # '' (
' 7 ! ! +% $ CL[OSE] #$ !! ! $ 0 +% $ % !! (" ! $ (" " DEB[UG] ' 9 ! ! #$ DEL[ETE] remote_file remote_file ! ( $ % ( ! # #$ % A * " " $ # ! # ! DI[R] [remote_l
:% 7 ! * ! +% $ ! BYE QUIT$ E[XIT] ? +% ! ! $ % # " ! non-print$ F[ORM] format format ! $ 7" # # " ! non-print$ ! ! ! $ % ! $ ! RECV$ GE[T] remote_file [local_file] remote_file ! (
' 9 # +% !! ! $ ! ? ??$ HE[LP] [command] command # +% !! $ A !! ' +% # ( !! $ : !! ' +% " # " +% !! $ ' # #$ LC[D] [local_directory] local_directory # ( #$ : local_directory ' +% " # " # " ! #$ ''
' 9 !" ! $ MDE[LETE] remote_file [remote_file ...] ! ( $ % ( ! # #$ % ... ! # " ! # # !" ! ' ! (# !! (# ! ( $ = " ! # " ! ! $ remote_file % A * # !" ! $ MD[IR] remote_listing [remote_listing ...
' A (( # !" ! $ ML[S] remote_listing [remote_listing ...] local_file remote_listing ! ! ! # ( $ % ...
'% A (( # ! # # " ! $ N[LIST] [remote_listing] [local_file] remote_listing ! # ! ! # ( $ : ! ! ' NLIST ! #$ local_file # $ : ! ! ' # # # " ! $
2 A ! ! # ! $ PW[D] $% 7 ! * ! +% $ ! BYE EXIT$ QUI[T] $ ( # !! ! $ QUO[TE] arguments arguments +% !! ( ! $ % arguments J 'K " !! " $ 0 (" " $ 9 % ! $ ! GET$ REC[V] remote_file [local_file] remote_file
! ! ! #$ REN[AME] remote_old remote_new remote_old ! ! ! # ( ! $ remote_new ! ! ! #$ : remote_new # * ' +% " !! $ % ! ! # # ! ! $ RM[DIR] remote_directory # ! ( ! $ % # !" ( ! # +% "
$ A " " +% ! $ STA[TUS] $ +% " " " " $ STR[UCT] struct_name struct_name ( +% " " $ 7" #' # " " " file$ + " " ! " " ( " " )" (# $ " # # ! " $ SY[STEM] !! "
$ 4 " " # ! $ U[SER] [user_name] [password] user_name " ! $ : user_name ' +% ! # " $ password " ' )" $ : )" ' +% ! # " $ 9 # ( " " $ % !! ( " " $ 5 ( " " # ! # ! # " $ %
) ..,0 . % ! " " " (# +% " !$ ! ' " ! # ( +% ! $ ? $. ) ..,0 . ..,0 , 0 FTP internal error encountered. (FTP ERR 1) +( Unable to connect to specified computer.
..,0 , 0 Two log files in runstring. Ignoring second one. (FTP ERR 17) ( +( ( Two transfer files in runstring. Ignoring second one. (FTP ERR 18) ( +( ( Same name given for log and transfer files. Ignoring both. (FTP ERR 19) ( Unknown nodename. No such node exists.
? 9 B ? ! - ,7! ) ) * *. 0 + 5 + $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ + 5 , .
$.
–u 0 % " ! " ! ! # ( " " ! $ –v 5 ( % ( ! " #$ 0 !! " ! $ ( + 5 ! ( $ % ( ! ! ! ( ' $ % LOGCHG " # ( " ! EVMON "
. -C $ ) C $ . )* 5 ! 5 * A .<0 % <7T90. " " 6 ! " ! ! $ . -C !* . . .. ) )* ,7! A ." " !" ( ( $ . -C ? ) C '% = . )* 5 ! 5 * A + <7T4: > " ! ! M " %, $ .
. -C * 1 I .* )5 D A A A F . -C )0JD F ) JD F 7 6 )" ! " $ + 5 #$ . -C , */ * ,* ) ) A < # 0% T0 :1 0% T < , " " $ . -C - . ) 5 .5,* /A < # 7 C " $ . -C 1 *,K ) * /).*.A /etc/hosts # * $ . -C $ ,7! *) 0 * , . .. ) 57 A L,% M # ! " "!( $ .
# % ) . * 71 ? 9 % # (# + 5 # " (# + 5 $ 1 ! ' "!( / H/ / F ' ! 8 9 : 7 ! "!( " (# + 5$ . -C.) * ) C DEF . -C7 ) C DEF . -C. *.) ) * ) C DEF . -C0 *.) ,5 ) C DEF . -C! .* ) C DEF . -C. ! * ) C DEF . -C, * ) C DEF . -C - ) C DEF .
# ! 1 ) *+, .* 7 * ) % * ) .. )55 ,* ) ,7! ) ) * *.
T $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ T $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ T $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $
$.
, *LM $ % " $ % accept() " (# )" ! $ 1 *,K newsocket = accept(socket, addr, addrlen) int struct sockaddr_in newsocket, socket, *addrlen; *addr; , ,5 * .
7 LM 8 $ 1 *,K result = bind(socket, addr, addrlen) int struct sockaddr_in result, socket, addrlen; *addr; , ,5 * .
) *LM : )" $ % " (# $ 1 *,K result = connect(socket, addr, addrlen) int struct sockaddr_in result, socket, addrlen; *addr; , ,5 * .
*!LM : < $ 7 ( " ( : < ! $ 1 *,K result = fcntl(socket, cmd, status) int long socket, cmd; result, status; , ,5 * .
0 *.) ) *LM " " " $ 1 *,K result = getsockopt(socket, level, optname, optval, optlen) int result, socket, level, optname; char *optval; int *optlen; , ,5 * .
0 *.
! .* LM " )" " )" $ 1 *,K result = listen(socket, backlog) int result, socket, backlog; , ,5 * .
-LM ! $ % recv() ! # ( " (# ( $ 1 *,K count= recv(socket, buffer, len, flags) int count, socket, len; char *buffer; long flags; , ,5 * . count " "!( (# " # $ " 0 ! " # " ! (" $ " -1 " $ socket $ buffer 8# (" $ len .
- )5LM ! ! $ % recvfrom() ! # ( " (# ( $ 1 *,K count= recvfrom(socket, buffer, len, flags, addr, addrlen) int char long struct sockaddr_in count, socket, len, *addrlen; *buffer; flags; *addr; , ,5 * . count " "!( (# " # $ " -1 " $ socket $ buffer 8# (" $ len .
-5.0LM $ % recvmsg() ! # ( " (# ( $ 1 *,K count= recvmsg(socket, msg, flags) int count, socket; struct msghdr *msg; long flags; , ,5 * .
. ! *LM # " : < !" * $ 1 *,K result = select(count, reads, writes, exceptions, timeout) int result, count; fd_set *reads, *writes, *exceptions; struct timeval *timeout; , ,5 * .
. ! *LM exceptions ( ! # ! 0 count-1 * $ ( ! 0 FD_ZERO ( * $ < " ' ( ! # ! 0 count-1 * $ 0 FD_SET ! fd_set ( # * ( # " " select() $ " select()' " FD_ISSET
. LM $ % send() ! # ( " (# ( $ 1 *,K count = send(socket, buffer, len, flags) int count, socket, len; char *buffer; long flags; , ,5 * .
. 5.0LM $ % sendmsg() ! # ( " (# ( $ 1 *,K count = sendmsg(socket, msg, flags) int count, socket; struct msghdr msg; long flags; , ,5 * .
. *)LM $ % sendto() ! # ( " (# ( $ 1 *,K count = sendto(socket, buffer, len, flags, addr, addrlen) int char long struct sockaddr_in count, socket, len, addrlen; *buffer; flags; *addr; , ,5 * .
. *.) ) *LM $ 1 *,K result = setsockopt(socket, level, optname, optval, optlen) int result, socket, level, optname, optlen; char *optval; , ,5 * .
. *.
./ * )+ LM " $ % ! # ( " (# $ 1 *,K result = shutdown(socket, how) int result, socket, how; , ,5 * . result 0 shutdown() " " $ -1 " " $ socket ( " $ how .
.) *LM 7 ' !!" ' " $ % !" ( 8 9 : 7 " $ 8 socket() $ 1 *,K socket = socket(af, type, protocol) int socket, af, type protocol; , ,5 * .
# % $* ! * . 8 9 : 7 " " " & D . " " ! ( & /etc/hosts' /etc/networks' /etc/protocols' /etc/services$ D <( D .
* *LM 7 /etc/networks $ result = endnetent() int result 0 " " $ -1 " " $ result )*) *LM 7 /etc/protocols $ result = endprotoent() int result 0 " " $ -1 " " $ result . - *LM 7 /etc/services $ result = endservent() int result result 0 " " $ -1 " " $ 0 */).
0 */).*71 ,5 LM " ! ! $ host = gethostbyname(name) host struct char *host; *name; hostent " " ! $ host % hostent " " " ' SOCKET.PASI' SOCKET.FTNI' 7' ' +< % ! ' #$ ! ( " ! # " ( ! $ % ! \0 $ name 0 */).
0 * *71, LM " ! "!( $ network = getnetbyaddr(net, type) struct netent *network; long net; int type; netent " " ! " (# getnetbyaddr()$ network % netent " " " ' SOCKET.PASI' SOCKET.
0 * ,5 LM " $ result = getpeername(socket, addr, addrlen) int result, socket, *addrlen; struct sockaddr_in *addr; result 0 " " $ -1 " " $ socket $ addr " " socket$ % " " " ( sockaddr_in # $ J 5 ( K 1 !
0 * )*)71 57 LM " ! "!( $ protocol = getprotobynumber(protonumb) struct protoent int protocol *protocol; protonumb; protoent " " ! " (# getprotobynumber()$ % protoent " " " ' SOCKET.PASI' SOCKET.
0 *. -71 ,5 LM " ! ! $ service = getservbyname(name, proto) struct servent char *service; *name, *proto; servent " " ! " (# getservbyname()$ service % servent " " " ' SOCKET.PASI' SOCKET.
0 *. - *LM * /etc/services " ! $ service = getservent() struct servent service *service; servent " " ! " (# getservent()$ % servent " " " ' SOCKET.PASI' SOCKET.FTNI' 7' ' +< % ! ' #$ 0 *.
/*) .
*H5, , LM 7 " : : $ ! : IPaddr = inet_makeaddr(net, node) struct in_addr u_long IPaddr; net, node; : : " ! $ IPaddr : : ! # ( # in_addr$ J K 1 ! ! ! in_addr$ net : "!(
*H *),LM % : : J K $ " 7:: string = inet_ntoa(IPaddr) char struct in_addr string *string; IPaddr; "!( * : J K ' " & J /C$; $C--$CK$ % ! \0$ J: 9 K * 9 1 ! ! ! $ IPaddr : : $ :
. */).
. *.
? H% LM % 6 ( ( ! $ result = FD_ISSET (socket, bitmask) int fd_set result, socket; *bitmask; " FD_ISSET() $ result result P 1 ! ( ' socket$ < ' result P 0$ socket $ bitmask fd_set ( # ( ! $ ? H LM 6 ( ( ! $ FD_SET (socket, bitm
) ..,0 . Errno ( " 0 :1@ !! $ + ( #' 7 ( # HPC.LIB " " ( ( errno$ % ! 8 9 : 7$ ,7! & ;A ) ..,0 .
9,! ) errno , 0 ) 5) 225 [EAFNOSUPPORT] 7 226 [EADDRINUSE] ( 227 [EADDRNOTAVAIL] ( 232 [ECONNRESET] ! 233 [ENOBUFS] & 234 [EISCONN] ( 7 235 [ENOTCONN] ( 7 236 [ESHUTDOWN] ( 7
*+) ? ! , . ,7! ) ) * *.
? ! ) 1 0 ?) 5,*.
[tlogon] % ' #' $ ." ( ( [ ] $ % ! 4 ! !" " $ #& : tlogon ! ' " " 9 7< = " " $ >tnode % ! $ ." ( (# J>$K ." ( ! node[.domain[.
FS[IZE]= filesize IN[TERCHANGE] RS[IZE]= recordsize ST[RIP] VA[RIABLE] !" filesize $ : * ' filesize $ : ( ' filesize "!( ! * !"! 2 $ % ( " 2 ! # 2 $ #& % ( ! 2 " $ < " # !
MO[VE] " " ( " " # # !$ 9 7< = " ( " $ = " !" ' " # " # ' " $ : # ' # # "( ( " ' (" # "( ( " $ #& % " " $ QU[IET] " ! $ , !
( )55, .
N $ " ! ! 9 7< =$ +RU,progname % ! ! ( " $ progname N 2 " # # " +DEFAULT !! $ +SH[OW] N ? % !! $ +TR[ANSFER],cmdfiledev cmdfiledev % ! !! 40 $ N2 9 # " #$ +WD[,directoryname] directoryname % ! #$ .
)0 ,55,* *+) ? ! , .
(#$%' 8" # ( " Dscopy $ DSCOPYBUILD(builtdescriptor,sfile, slogon[, snode],tfile[, tlogon] [, tnode],options,rsize,fsize) builtdescriptor Character array (FORTRAN); String (PASCAL)$ % " # ( " Dscopy $ A ( ( $ sfile Character array (FORTRAN); String (PASCAL)$ % " M ! ( $ slogon Character array (FORTRAN); String (PASCAL)$ % ' #'
' J7 # 9 K " $ 0 " " " $ 1 ASCII 2 3 BINARY " " " $ 4 5 FIXED INTERCHANGE 6 7 MOVE OVERWRITE 8 9 QUIET REPLACE 10 STRIP 11 12 VARIABLE SILENT 13 " 31 " " " $ rsize 32-bit integer$ RSIZE builtdescriptor$ % " rsize (# $ : * ( " ' rsize 2 $ : ( ( " ' rsize
) ..,0 . % ! " " 9 7< = " #$ ( $. ) ..,0 . ..
..,0 , 0 Error in option value for option option (NFT/1000 ERR –22) ( option File names cannot be defaulted (NFT/1000 ERR –23) Input command is too big (NFT/1000 ERR –24) ( Cannot open file filename (NFT/1000 ERR –25) /$!' 7 Unable to initialize DSCOPY (NFT/1000 ERR –26) ( " @2A /$!' ) D @
..
..
*+) % * ) .. )55 ,* ) ,7! ) ) * *.
*% )55) , ,5 * . % flags' opt' data' result' socketname' nodename ! !! ! # : 7 $ % flags' opt' result ! !! ! . ! . $ . * J ! . ! K $ % ( " " ! : 7 ! $ % opt ! " # : 7 .
) * ,5 , ,5 * # socketname ! ! # ( ! * !"! F ! # # 7:: $ 0 $ ) ,5 , ,5 * nodename ! ! " " & node[.domain[.
D % ! " # " : 7 !' ! # # ! : 7 ! %, XQ " ! " !! $ " D % : 7 ! * " # ! " ' " %, XQ !! A,47<.
% )" $ IPCCONNECT(calldesc,pathdesc,flags,opt,vcdesc,result) calldesc 32-bit integer, by value in Pascal, by reference in FORTRAN$ 7 $ (# $ pathdesc 32-bit integer, by value in Pascal, by reference in FORTRAN$ $ )" ( $
% ' ! $ : 77< % <4 IPCCONTROL(descriptor,requestfd,wrtdata,wlen,readdata,rlen, flags,result) descriptor 32-bit integer, by value in Pascal, by reference in FORTRAN$ % ( ! " $ . # ( 57 )" )" ! $ request 32-bit integer, by value in Pascal, by reference in FORTRAN$ )" $ 9 ( ! $ .
% ' wrtdata 16-bit integer, by reference$ (" " ! " ! $ : request -' ' ' wrtdata wlen ! )" $ wlen 32-bit integer, by value in Pascal, by reference in FORTRAN$ 4 (# wrtdata ! $ .
% 7 $ IPCCREATE(socketkind,protocol,flags,opt,calldesc,result) socketkind 32-bit integer, by value in Pascal, by reference in FORTRAN$ : # ( $ ." ( - $ < " " " " $ protocol 32-bit integer, by value in Pascal, by reference in FORTRAN$ : ! " $ .
% 7 $ IPCDEST(socketkind,nodename,nodelen,protocol,protoaddr,protolen, flags,opt,pathdesc,result) socketkind 32-bit integer, by value in Pascal, by reference in FORTRAN$ 9 # $ .
% ( # IPCGive$ IPCGET(givenname,nlen,flags,descriptor,result) givenname Packed array of characters (Pascal); Integer array (FORTRAN), by reference$ # 7:: ! # IPCGive$ 0 $ nlen 32-bit integer, by value in Pascal, by reference in FORTRAN$ % givenname$ .
% %9 L " ! # ( $ IPCGIVE(descriptor,givenname,nlen,flags,result) descriptor 32-bit integer, by value in Pascal, by reference in FORTRAN$ % ( " $ .
% ' =$ <( $IPCLOOKUP IPCLOOKUP(socketname,nlen,nodename,nodelen,flags,pathdesc, protocol,socketkind,result) socketname Packed array of characters (Pascal); Integer array (FORTRAN), by reference$ # 7:: ! ( J " $K 0 $ nlen 32-bit integer, by value in Pascal, by reference in FORTRAN$ % ! $ .
% ! $ IPCNAME(descriptor,socketname,nlen,result) descriptor 32-bit integer, by value in Pascal, by reference in FORTRAN$ % ( ! $ socketname " " " Packed array of characters (Pascal); Integer array (FORTRAN), by reference$ # 7:: ! ( $ 0 )" $ : 7 " ! # ! ! nlen $
% 9 ! $ IPCNAMERASE(socketname,nlen,result) socketname Packed array of characters (Pascal); Integer array (FORTRAN), by reference$ # 7:: ! " # IPCName$ 0 )" $ nlen 32-bit integer, by value in Pascal, by reference in FORTRAN$ % (# ! $ .
% 9 , ( " " (# )" ' " # ( $ IPCRECV(vcdesc,data,dlen,flags,opt,result) vcdesc 32-bit integer, by value in Pascal, by reference in FORTRAN$ 57 $ 57 & " " # ( ( ' C " # ( " " ( $ data Packed array of characters
% 9 D opt Byte array (Pascal); Integer array (FORTRAN), by reference$ # ! $ % & D result flags [32]35,7%< ,9 " $ A ' data ! (" $ optioncode P 8' datalength P 2 $ (# (# ! ( (" : 7 ( $ % # ! #
% 9 )" $ IPCRECVCN(calldesc,vcdesc,flags,opt,result) calldesc 32-bit integer, by value in Pascal, by reference in FORTRAN$ $ (# $ vcdesc 32-bit integer, by reference$ 57 $ 57 # ( " " $ flags 32-bit integer, by reference$ -C ( ! )" ( $ % & D opt re
% ' 9 ! " 57 $ IPCSELECT(sdbound,readmap,writemap,exceptionmap,timeout,result) sdbound " " " 32-bit integer, by reference$ " ( " readmap' writemap' exceptionmap ! $ IPCSelect ( ! ! ! * !"! " ! $ 8 " : 7 ! # " ! * !"! -C ' sdb
% " " $ : 7 , 9 IPCSEND(vcdesc,data,dlen,flags,opt,result) vcdesc 32-bit integer, by value in Pascal, by reference in FORTRAN$ 57 $ 57 " ( $ 57 ( ( (# IPCConnect' IPCRecvCn' IPCGet$ data Packed array of characters (Pascal); Integer array (FORTRAN), by reference$ (" ( ' (
% $ 2 # " $ IPCSHUTDOWN(descriptor,flags,opt,result) descriptor 32-bit integer, by value in Pascal, by reference in FORTRAN$ % ( $ .
"! opt ! $ ADDOPT(opt,argnum,optioncode,datalength,data,error) opt Byte array (Pascal); Integer array (FORTRAN), by reference$ % opt ! # " "! $ argnum 16-bit integer, by value in Pascal, by reference in FORTRAN$ % "!( "! ( $ % "! "!( 2 $ optioncode 16-bit integer, by value in Pascal, by reference in FORTRAN$ % "! ( $ %
? <( (# # (# (? $ ADROF(firstobjword,offset,byteaddress) firstobjword 16-bit integer, by reference$ % ! F ( (? $ offset 16-bit integer, by value in Pascal, by reference in FORTRAN$ ! ( (? $ .
% % : 2 opt ! "! ( $ INITOPT(opt,optnumarguments,error) opt Byte array (Pascal); Integer array (FORTRAN), by reference$ % opt ! ( 2 $ optnumarguments 16-bit integer, by value in Pascal, by reference in FORTRAN$ % "!( "! ( opt ! $ : ! 2 ' opt ! ( 2 2 "! $ error 16-bit integer, by reference$ % " M 2 $ > 88&
<( "! opt ! "! $ READOPT(opt,argnum,optioncode,datalength,data,error) opt Byte array (Pascal); Integer array (FORTRAN), by reference$ % opt ! ( $ argnum 16-bit integer, by value in Pascal, by reference in FORTRAN$ % "!( "! ( ( $ % "! "!( 2 $ optioncode 16-bit integer, by reference$ % "! $ % ( : 7 opt
*% ) ) . % " result ! : 7 !!" : 7 $ , % ( ! ! * $ *% ) ) . ) , 0 3 ( : ( 7 9 7 B 4 ; 23 22 & 2< .
) , 0 9: & 7 99 & 7 9B 7 98 ( B< IPCRecv B: B9 ! BB & B; - 7 43 ! 4: ) 4B 8; 5 88 5 23B 234 &$6 - D &$6 - D &$6 - 238 - 7 222 &$6 -
5)* ) .. , ,0 5 * ,7! ) ) * *. .
)55) , ,5 * . % flags' opt' result' nodename ! !! ! " . $ % # ! : 7 ! $ + " ! ! ' J : 7 7 !! ! K J : 7 !!" K J ! .
) ,5 , ,5 * nodename ! " " & node[.domain[.organization]] % ! # * ( J ! K J: " K $ '), 0 )0 ,5. . ! !" ( ! 79 ! $ . ! ( 79 79 ! $ : . ! ! .
' 7 * " !$ RPMCONTROL (pd,nodename,nodelen,reqcode,wrtdata,wrtlen, readdata,readlen,flags,result) pd Byte array (Pascal); Word array (FORTRAN), by reference$ # F (# ! ! )" $ % ! " )" " " ! RPMCreate $ RPMCreate ! ! ( " pd$ nodename Packed array of characters (Pascal); word array (FO
' C- C 3 IFBRK ( !6 :9 ! $ % ! !" %, IFBRK # ! $ )" " $ % ' wrtlen readlen !" ( 2 $ D C- - 37 !6 #$ % # "!( F ( ! -CHFH ! "!( #$ % # "!( wrtdata ! $ % )" )" %, PR ! # !!
" ! ' #' ! " $ RPMCREATE (progname,namelen,nodename,nodelen,login,loginlen, password,passwdlen,flags,opt,pd,result) progname Packed array of characters (Pascal); word array (FORTRAN), by reference$ ( # 7:: ! ! ( " $ : ! #' " ! ! !" ( $ % ! !" (
password Packed array of characters (Pascal); word array (FORTRAN), by reference$ ( # %, login$ : )" ' passwdlen ! !" ( 2 $ passwdlen 32-bit non-negative integer, by value in Pascal, by reference in FORTRAN$ % (# password ! $ : passwdlen 2 ' password $ % ! * !"! %, ; (# $ 32 bits, by reference$ -C ( !
: ' ! "! " # ::programs #$ .
* ) .
,* * ) 8 O ,.. * 0 %, # ! ,)" & $ * , ,5 * .
,* * ) 8; O .*) )0 ,5 %, +. ,)" & FmpRpProgram "! +, 5 $ * , ,5 * . optioncode 16-bit integer, by value in Pascal, by reference in FORTRAN$ C- J !K $ datalength 16-bit integer, by value in Pascal, by reference in FORTRAN$ % (# data ( " opt #$ .
,* * ) 8; 8 O .. 0 , * * ) %, # ! ,)" & AS !! "! +, 5 $ * , ,5 * . optioncode 16-bit integer, by value in Pascal, by reference in FORTRAN$ C- C J K $ datalength 16-bit integer, by value in Pascal, by reference in FORTRAN$ % (# data ( " opt #$ .
,* * ) 8; O ) 1 2) 0 * 6 %, # ! )" & WS !! "! +, 5 $ * , ,5 * . optioncode 16-bit integer, by value in Pascal, by reference in FORTRAN$ C- ; J. # A 2 K $ datalength 16-bit integer, by value in Pascal, by reference in FORTRAN$ % (# data ( " opt #$ .
,* * ) 8; > O ) 1 ) , * * ) 6 %, # ! )" & CD !! "! +, 5 $ * , ,5 * . optioncode 16-bit integer, by value in Pascal, by reference in FORTRAN$ C- F J. # 7 2 K $ datalength 16-bit integer, by value in Pascal, by reference in FORTRAN$ % (# data ( " opt #$ .
,* * ) 8; 4 O 5 / ! 0 %, # ! ,)" & EXEC 12 "! +, 5 $ * , ,5 * . optioncode 16-bit integer, by value in Pascal, by reference in FORTRAN$ C- I J% ! " K $ datalength 16-bit integer, by value in Pascal, by reference in FORTRAN$ % (# data ( " opt #$ .
units " & P ! C P - P ! " ; P " often delay " ; /E * " !" ! " $ % $ "!( ! * " 2 $ % ! # # ! & hour % " C- $ min % ! " E/ $ sec msec % E/ $ %
data Array, by reference$ ( # & 0 1 2 3 4 5 6 7 8 9 10 11 ...
,* * ) 8; O )0 ,5 / ! 0 %, # ! ,)" & EXEC 24 "! +, 5 $ * , ,5 * . optioncode 16-bit integer, by value in Pascal, by reference in FORTRAN$ C- JG" " ! " K $ datalength 16-bit integer, by value in Pascal, by reference in FORTRAN$ % (# data ( " opt #$ .
% bufr$ : ' bufln "!( $ : ' bufln "!( (# bufr$ : ' bufln "!( bufr$ : bufr ! ' (# bufln$ bufln , * ) < C- " ( " * ! ! ! # ! * " # # " $ : " ! " # * " ' .
% ! (# !$ RPMGETSTRING (rpmstring,rpmstringlen,result) rpmstring Packed array of characters (Pascal); word array (FORTRAN), by reference$ ( # opt ! RPMCreate " !$ rpmstringlen " " " 32-bit non-negative integer, by reference$ < " ' rpmstringlen ! * !"! (# rpmstring$ < " " ' rpmstringl
=%'' % ! ! " (# RPMCreate $ RPMKILL (pd,nodename,nodelen,result) pd Byte array (Pascal); Word array (FORTRAN), by reference$ # F (# ! " (# RPMCreate $ nodename Packed array of characters (Pascal); word array (FORTRAN), by reference$ ( # # ! $ % # * ! node[.domain[.
) ) . % " result ! ! . ! . $ , % ( ! ! * $ ) ) .
,7! ) ) * *. ,. % < $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ ,. % " $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ ,.
,* ) CI>RU,REMAT $ 4 %, !! $ $SW,570,572,DS " EH ( $ EHC $ " 6 " # DS !" $EX % ! ,. %$ )* # (# NODE1 = xx NODE2 = xx xx " (# . $ 4 ' ( " ,.
)55, . " ! . $ 9 " !! # " " " ' ! . ' ! %, # !$ AT[, user.group[/password]][user.group[/password]] user.group/password % " ( "( )" ,.
9 ! ! " ( %, # ! . $ DE[, N1][,N2] N1 " <9, $ N2 " <9,C$ ' 4 # " # <9, $ DL ,cartridge ,namr [, msc][,lu] cartridge 7 +.L $ .
?' 7 NODE1 " $ FL,namr,node namr ( +.
' 4 ( " ! ! NODE1 ! ! # ( %, # ! NODE2$ LO,namr ( +.
2 G" " " ! " NODE1$ : NODE1 %, # !' ! ( " !" :9 ! ( # ! " #$ QW,pname [,p1][,p2][,p3][,p4][,p5] [,string] % ! ! ( " $ pname p1,...
' 4 ! ! %< ! $ SL[, list lu] list lu % " "!( $ ." ( F;$ 9 " LL !! 40 (# ,.
2 7 # "( )" ,. % !! $ % SW !! ( " " # $ % # " " NODE1 NODE2& SW % NODE1 NODE2& SW[, NODE1][, NODE2],security code % NODE1 NODE2 & SW,LO[CAL] % " $ SW[, NODE1[: user.group/password]][, NODE2[: user.group/password]], security code NODE1 : ,.
,7! &4 A * ) 2 )55, 8 ') ,! AT $ @$ . A $ @$ . A BC . . CL ! CR + DE / @$ . A DL + DU + 0 / @$ .
! NODE1$ TE,message message 7:: " HC $ % ,.
) ..,0 . % ! " " " (# ! ,. %$ ,7! &4 8A ) ..,0 . ..,0 , 0 /LOGOFF:DSERR SSEE(QQ), REPORTING NODE NNNNN ( -#. ( $ . /LOGON:DSERR SSEE(QQ), REPORTING NODE NNNNN ( -#. ( $ .
,7! ) ) * *. .<%, < $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ . , 7 !! $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ .<%, " $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ .
,* ) CI>RU,RMOTE $ 4 %, !! $ $SW - $ #HELLO user.group < HELLO !! " ' $ - !! #EX ,* .<%,$ )55, . .<%, ! . , !! $ : " .<%,' # " " ( ! - . , !! $ % !! ( . , !! ! " $ / ! 0 .
)55, . : % ! .<%, * " $ EX '' 7 V %94: % $ LL,lu % " "!( V %94: % $ lu . ( - $ : " ! 40' .<%, ! CONTROL D ! #$ & *) J K $ &; ? ! , .
. ( - $ &; *) & ? ! , .
2 G" " ' ' !$ RW,program[,parameters] program ! ! ( " $ % ! !" :9 ! ( # ! " #$ parameters 0 ! ( !$ : ! ' " " (# LOGLU$ : ! ' "!( ( .
% !! " " $ ,filedesc TR ,lu ,-integer filedesc % ! !! ( $ lu 4 " " !! ( $ .
) ..,0 . % ! " " " (# ! .<%,$ ) ..,0 . ..,0 , 0 AUTO “BYE” FAILED BYE EX HELLO .
5)* ? ! .. ,7! ) ) * *.
% + ( DX " F-I- ( $ % ( DX * ! ' DXCRE " -CHFH ! CI ( 2 $ ? )55) , ,5 * .
: 9 < 91 < * ( (# " $ % ! # ( DLOCF$ DAPOS )" +.
' : ' + ' # " ! # " DCLOS DXCLO$ DCLOS )" +.
% %, " " " )" %# ! " " $ DCONT )" +.
,7! & A ? * ) ) . ?$ % L 'M ?$ % 9% 33 * . ( ! ( * 32 6 6 . ( ! ( * 3< 5 7 . ( ! ( * 3= + . ( ! ( * 3: - . ( ! ( * 39 - $ - . ( ! ( * 3B .
: % DCRET DXCRE " $ DCRET )" +.
' ? :' % " " $ DLOCF )" +.
! * $ DNAME )" +.L " NAMF$ DNAME(dcb,err,name,nname[, secu][, cr][,erlc]) dcb " " " Four-word array$ 9 7 8 $ J + 7 !! ! K ! ! $ err 16-bit integer$ , " ( $ J + 7 !! ! K ! ! $ name Integer array (FORTRAN); Packed character array (PASCAL)$ + 6 " ! $ - # 7:: " ! $ ." ( +.
< (# # " ! $ DOPEN )" +.L OPEN$ DOPEN(dcb,err,name[, optn][, secu][, cr][,erlc]) dcb Four-word array$ 9 7 8 $ J + 7 !! ! K ! ! $ err 16-bit integer$ , " ( $ J + 7 !! ! K ! ! $ name Integer array (FORTRAN); Packed character array (PASCAL)$ + ! $ - # 7:: ! ( $ ." ( +.
: % " # # " "!( $ DPOSN )" +.
$ DPURG ! ! #$ DPURG )" +.L " PURGE$ DPURG(dcb,err,name[, secu][, cr][,erlc]) dcb " " " Four-word array$ 9 7 8 $ J + 7 !! ! K ! ! $ err 16-bit integer$ , " ( $ J + 7 !! ! K ! ! $ name Integer array (FORTRAN); Packed character array (PASCAL)$ + ! $ - # 7:: ! ( " $ ." ( +.
: % " ! # " " # 9 7 8 # " !6 (" $ DREAD )" +.
% " ( " ! ! " #$ DSTAT )" +.
% ! ( " DSTAT ( $ ,7! & 8A stat ?) 5,* % 2) ) * *. 2 0 * & < 0 +. ( 7 = ! : 0 7 9 0 * & B 0 +.
2% 9A: 9 ! # ( " ( %# * ( $ DWIND )" +.
2 % :2 % % " ! (" # " " # 9 7 8 $ DWRIT )" +.
&; ? ,!!. = " " ! # " ! ! ( - + $ % - 9 - $ < # ( - $ . , ! " ! $ : ' - + " 6 * <6 # * < $ ,7! & A & % * . &; % * . . I -,! * % * .
: ,7! ) ) * *.
: ,!! 1 *,K ! ! ( # ! ( 9,1,7 ,1,7 ! & 9,1,7 " ! ' dest' 9,1,7 ( $ % dest ! ! # ( " " ' " !!" " "!( $ " Q $ % 9,1,7 # *
: L 5)* , M % ! : < (" $ )" 40 " $ DEXEC(dest,code,cnwd,bufr,bufl[, prm1][, prm2][,0,0,keywd]) dest 16-bit integer$ % " * " $ " Q $ 4 * " ( ! dest )" $ code 16-bit integer$ cnwd 7 $ 0 ,1,7 ' ( cnwd 9,1,7 ( "
% * , * - 2 * , % A :%, , 9 " ! )" ! " " ! !" !!" " )" ! * ! $ )" 40 " $ DEXEC(dest,code,cnwd,bufr,bufl[, prm1][, prm2][,0,0,keywd]) dest 16-bit integer$ % " * " $ " Q $ 4 * " ( ! d
: 8 L 5)* 2 * M 9,1,7 )" C " ! (" : < $ )" 40 " $ DEXEC(dest,code,cnwd,bufr,bufl[, prm1][, prm2][,0,0,keywd]) dest 16-bit integer$ % " * " $ " Q $ 4 * " ( ! dest )" $ code 16-bit integer$ A )" P C$ cnwd 7
: ; L 5)* % ) * )!M 9,1,7 )" - ! ! : < " ( ' ' $ DEXEC(dest,code,cnwd][,p1[, p2][, p3][, p4][,0,0,keywd]) dest 16-bit integer$ % " * " $ " Q $ 4 * " ( ! dest )" $ code 16-bit integer$ : < )" P -$ cnwd 7 $ +, 5
: > L 5)* )0 ,5 5 ,* ) M 0 9,1,7 # " ! ! %, # ! ! * " !$ 9,1,7 F # ! # (# 9,1,7 /' ' C-' C; $ DEXEC(dest,code,name,numb) : ! ! # ' ! ( " & DEXEC(dest,code,name,numb[, op1][, op2][, op3][, op4][,op5]) dest 16-bit integer$ % "
: 3 3 8;3 8 9,1,7 /' ' C-' C; " ! ! * " $ DEXEC(dest,code,name[, prm1][, prm2][, prm3][, prm4][, prm5][, bufr,bufl]) dest 16-bit integer$ % " * " $ " Q $ 4 * " ( ! dest )" $ code 16-bit integer$ " )" & 9 :!! " ' 10 :!! " ' 23 G" " " ' 24 G"
: L 5)* 5 I .
: 8 L 5)* 5 )0 ,5 / ! M % 9,1,7 )" C " ! * " ! $ ,* " ! # ( " ( " ! " $ ! " %, # ! 9,1,7 C !" ( # ! " $ " * " ( " ! # *& DEXEC(dest,code,name,resl,mtple,hrs,mins,secs,msecs) " * " "
: ; L 5)* % *,* .
: 8" L 5)* , * * ) *,* .M <( " " %, F 5. $ % " %, # ! $ DEXEC(dest,code,part,page,pnum,stat) dest 16-bit integer$ % " * " $ ." ( 9 :5 %, F 5.
: L 5)* )0 ,5 *,* .
)0 ,5 *) )0 ,5 )55 ,* ) L M ,7! ) ) * *. %< 7 !! ! $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ .
)55) , ,5 * .
& *) &; ,!! 0 I < , ! - " ! %< ! ( " $ + %< !!" ( - # " !" "( " HELLO !!" ( " < , $ BYE !" ( %< ! !!" $ POPEN(pcb,err,name,node,tag[, enam][, pram][, flag][,bfsz]) pcb %< ( $ err 16-bit integer$ , name ! ! $ # " CI (#
7 ! ! ! ! !$ PREAD(pcb,err,buf,len,tag) pcb " " " %< ( $ err 16-bit integer$ , buf 9 (" $ # 2 )" " len ! $ len 16-bit integer$ 9 $ ! " ( PREAD )" $ % " len ! 6 GET ! * !"! ! " ! $ !
2 % % ! ! ! !$ PWRIT(pcb,err,buf,len,tag) pcb " " " %< ( $ err 16-bit integer$ , buf 9 (" $ # 2 )" " len ! $ len 16-bit integer$ 9 $ ! " " ( PWRIT )" $ % " il ! 6 GET !" * ! !
( 7 ! ! ! ! ! # ! ACEPT REJCT ( " $ % # PWRIT' PCONT' PCLOS$ POPEN PREAD ( #$ %< !!" # ( # ( $ " %< #$ .
tag % len 16-bit integer$ " " ! GET func P C - PREAD PWRIT $ len " "!( ( ! )" $ bufr ! $ ! ! !$ bufr 9 (" $ # " bufz ! $ % ! # )" ! )" PWRIT$ 9 ! ! (" ( $ + POPEN' PREAD' PCONT )" '
P 7 ! ! ? ! )" ( GET $ REJCT(tag,err) tag % $ err 16-bit integer$ , " $ ?% % 7 ! ! ! !!" ! !$ 7 ( " ! ! - $ FINIS ) ) . % $ " err ! %< ! %< ,7! & 8 ;A ..,0 ) ) .
5)* % , 0 ,7! ) ) * *. 0 :<. $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ : 2 : < . $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ , ( . 0 + 0 " . ( 40 $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ , ( 7 . $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 9 ( .
! : < . " : < )" 40 40 ! $ % ! 40 - M : < )" " 40 # # - # # $ $. 0 % % " ! 40 ' # " * " ! :<. " $ = # # & $ #. #) # # $ ' $ :<.
% * ,! 6 % , 0 [RU,]IOMAP,mappableLU,–1 , ,5 * . mappableLU . ( 40 # ! 40 ! ( 95% $ * , ,5 * . + ! :<. " mappableLU ! ( ' ' " ! ( 40$ .*,7! ./ , , $. 0 ? .* $ . , ,7! '$ [RU,]IOMAP,–1,destinationLU,destinationNode,securityCode , ,5 * . destinationLU 9 # ! 40 ! $ < & ( E ( $ ! : < .
* , ,5 * . + ! % " 40 ! " " # ( ' & D Q HHHHH8 securityCode D QC HHHHF8 sourceLU ! ( 40 D Q- HHHHE8 ! : < . " # ! : < .
.*,7! ./ ) /, 0 , , [RU,]IOMAP,sourceLU,destinationLU,destinationNode,securityCode , ,5 * . sourceLU . ( 40 " # !$ destinationLU 9 # ! 40 ! $ % destinationLU !" ( " " ! ' ' ! " $ < & ( E ( $ ! : < .
D QF HHHHC8 destinationLU ! ( ! ( " 40 D QH HHHH 8 40. D QI HHHH 8 40G0, ! destinationLU % destinationNode ! + " ! : :<. ( ! ' " securityCode$ : :<.
* '$ , 0 % ) 5,* ) [RU,]IOMAP,sourceLU,–1 , ,5 * . sourceLU % ! ( 40 # " :<. # ! $ : # " # ! ( 40' :<. # ! ! ! ( 40 sourceLU$ * , ,5 * .
* , 0 % ) 5,* ) ) , '$ [RU,]IOMAP,sourceLU,–2 , ,5 * . sourceLU % ! ( 40 # " :<. # ! $ * , ,5 * . + ! sourceLU' D Q- : < ! 2 & #$ ! ' % 40 D ! & Q HHHHH8 sourceLU ! ( : " ! ! ( 40' :<.
* ) 9,! . [RU,]IOMAP,–2 * , ,5 * . + ! 7:: " * ! ' J9 K 9 ; $ + " ' "! ' ! ( ! $ ! $ % "!( $ ! 7:: " 5)* % * , * - .. ) . ! : < . # " ! !! 7: +.
% ( ! ! ' & RU,SYSAT,programName,remoteNode ')0) : # " " " !! ' # " !! J " #K ! # !$ < # # " !! ! # " ! " SS $ % 7:' # ! !! GO$ +, 5 /C HH / C ! ! !! $ = " !" '
, * , $* ! * . ,7! ) ) * *.
94L< $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 9., L $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 9., $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 9 , $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 9 TL,% .
% ? : + ! " #$ % ? / ! 0 [RU,]NSINF % ? ,* ) : + !$ A # " " : +' ! # " !! & NSInf> , ? : + ! ! " "!! # : + !! $ !! $ % ( ; % * : +' E NSInf> ! $ : : + ! " ! ' # " # " ! !
,7! & A % ? )55, . )55, .
% % : :% " " ! " 2 ! $ = " # " # " " #$ / ! 0 % % % 2 ' # " " : :% ! # ! A,47<.
$. 0 ..,0 , 0 % " " ! & $ , ( ! $ C$ " " ! # * ! ' " +% +% # $ : # " (" " : 7 !' " : + P !! !6 L ( 9 L 9 $ -$ A ! # ! ' (# " 8 % 7$ ;$ + ! * ! " +.
NETWORK # % ! $ % 7 ! 4: # $ : ' % 7 # ( ' #' +%' %7 ' : ! ! ! (# ! " " ' 947 ." J4 0 K ! $ = " " +.% 7 ! : 4: < : # - QQ:,,, I C$- ,% , ,% 4 " $ +.
titleField 7:: " HC ( " " $ +.% 7 titleField ( " " $ logDevice 9 ! 40 +.% 7 # $ #& 40 " ! # " " +.% 7 #' FMTRC.LOG # " $ : FMTRC.LOG # * ' +.% 7 $ - * ')00 0 % " & D ,5.< ' ! $ ,5.
,7! & 8A ')0 ,. - * !,.. . # * ). * ) ')00 0 - * !,..
')0 ) .
4 .
)55, . 4 !! "!! 2 % ( ; -$ = " !" 4 !! " $ ,7! & ;A ' ;= )55, .
( # # ! # " $ AP TY DA:numWords HE NO AP % ! $ DA:numWords % ! ' ' numWords $ numWords !" ( ( -E$ HE % ! $ NO % $ G0,1 9->.
)55, . % 7-> ! # " !! (# ! & /TRC3K: % 7-> !! "!! 2 % ( ; ;$ ,7! & A ;= )55, .
'% " " $ L[IST]=outputDevice % 40 % 7-> ! " " $ : outputDevice ' # # $ / # 3 $ #& ! " outputDevice M # " # outputDevice " ' " " ! $ outputDevice % ! " " $ ,A[LL] P[RINT] ,F[IRST] ,N[EXT] ALL ! ! (# SET
! ( (# PRINT !! $ S[ET] C[LASS]=value E[NDREC]=value R[TENO]=value STA[RTREC]=value STR[EAM]=value @ . . .
9 .<9 # " 9 :5 7 ! ( ! " 2 ' ! ! " : :% )" $ DSMOD / ! 0 ,lu ,file [,errordevice] lu % " "!( ! 9 .<9 ! ( $ 9 " " ! $ file % ! !! 9 .
,7! & "A )55, . )55, . * ) ?? /A /$.'/ /$.'/ CN ! & - K @&-KA DI / /E # /$.'/ /I ! / ) /L # 7 @ /L 0 & 7 G <9 0* @ /$.'/ DI G <9 0* A /N / & - K @&-KA /S $ @' /$.'/" !&$0. /0 $( #G#!.
len 16-bit integer$ % U Q (# " $ oride 16-bit integer$ # # " $ 9 " 2 $ DLGON ! ! ( " ! $ ' ? ! 9 :5 .
1 < $ $ )" ! !6 " # )" $ 0 9 " $ ! !6 " $ ( #$ $ % )" " ( $ ' ( ' ( $ –1 ! ! ! # " # ! 40 ! $ DMESG
8 P Q , * ) : $ : ' Q; bufr ; ! * ! ' DS03 $ : " # ! !! OF' program name DMESS' program name ! # !' ! # " " )" ! ! $ DMESS ! %, "( " ' MESSS$ +, 5 ' "!( /C HH / H' ! !
Node 16-bit integer$ % "!( ! # " ! $ 0 "!( ! 5$ % "!( " /system/nodenames ! ( ! $ Nodename Integer array (FORTRAN); Packed character array (PASCAL)$ # ! " /system/nodenames$ 4 F $ H <( "!( ! /system/nodenames ! $ Node = DS_GETNODE(Nodename) Node 16-bit integer$
sec1 16-bit integer$ < " # $ # " # * $ typ2 16-bit integer$ 9 # $ # # # " # ! $ siz2 16-bit integer$ 9 2 ( $ # # # " 2 ! $ : ' " !" ( ( 2 $ " " ( " "
erbf Integer array (FORTRAN); Packed character array (PASCAL)$ , (" $ - # " " 7:: ! ! " $ <( # " " $ GNODE(node) node 16-bit integer$ = " " " $ " –1 2 $ ' 4 ' * " ! ! ! $ SEGLD(name,err[, p1][, p2][, p3][, p4][,p5] name - # 7:: !
lstdv 16-bit integer$ % " "!( $ % J K - " " " HELLO ! $ S )" " ! $ nmsmp 16-bit integer$ % .
'$;= L ) :A8" ' .M <( 40 "!( " " - 1$CE $ a3klu = LU3K([dumy]) a3klu 16-bit integer$ % 40 "!( 1$CE " " " $ dumy 9"!!# ! )" +% ;* +< % ! $
% K % ! * ! " $ % # ! " $ ) , ,! *! ' "!( / H/ / C $ , # # & # ' "!( / H/ / - $ + # " '" # ' "!( / H/ / - $ ! " # $ % ' "!( / H/ / E $ 3 3 %
157)!. $$ !! ' +% & - / N !! ' +% & - H D !! +% & - I' - ;C %,4 ,%& C ' ! * ' +% & - C ' ! ' +% & - C ' ' +% & - C' - ;; ' " ' +% & - C ) ' )" ! ' +% & - C ' !! " ' +% & - C' - H; " ' # " ' +% & - C ' ( " " ' +% & - C' - HI O9 .& , F ; OL,%& + / -I OL .
& 3 C 7, %& F CI 7, %' & + / ; 9 % ' +% ! & - C < & E H-' F E * ! & F C .& F /' F C .
8:L $4:8& , E ;' F H 8:L T79 & , F 8:L T79 $4:8& , E ;' F H 8: =' 9 7< = & ; H 8: = !! ' +% & - CE ( & 1 C -' C E' - ' - C' - E' - I' - ' ; F ( & 1 - I' - ( & 1 ; F 8 # & , - IM + / ;IM HM F' H ( & + C 79 & H !!" ( 2 & , C H ! & , C H 2 & , C ; : < )" & + / EC :9 )" & , - ; ' / CE' C HM + I / & , E' - ' / CE #
. ! & F -' F ;' F ; 79 ! & 1 M I 49 & , 7 ; 8 # & H ! ! # ( # !& , 7 ; 1$CE& H 790 ' +% ! & ; C %,4 ,% & C -' C C & 3 - # & 1 - H " & E I "!& + C / "!! ' # !& E CI' E C/' E - ' .& , 7 I !& , ; F .
: 7& E CE' E CH' E CI' E C/' E - - & E ' E CE' E CF' E CH' E C/' E -H' E ; ' E ;;' E E/' E FC' E FI' E H / & E ' E CE' E CF' E CH' E CI' E -H' E ; ' E ;;' E E/' E FC' E FI' E H 7& E ' E CE' E CF' E CH' E - ' E -H' E ; ' E ;;' E E/' E FC' E FI' E H ! * ! & E I ' E I : 7 & E CF 2 & E CI' E C/' E - & E CI %7 & E CI' E C/' E - 7 & , / -M + / I 7 %84$ ,4& , E ; 7A9' +% ! & ; C 7
! ! ! " & E ; ! & E H !! * ! & E / .
& , - H 947& , 7 4 & , 7 ! ! # ( # !& , - ' - C' - H' 7 ! & H I ! " & , ; C # !& , - ' - H' - 9 < & H EE'I E-M ; CC 9 0 L& H E ' I E;M ; C; 9 , 9& H E;' I EEM ; CE 8: = 7& , E E & , E ; 947& , E E :,,, I C$-& , E E & , E ; & , E ; & , E ; ! : < ! & , E E %,4 ,% " ! & , E E 1$CE& , E E 9 # 9$ %
!! & ; E # & ; F * ! & ; ! & ; ! & ; " & ; C " & ; 57U& ; ! ! # ( # !& , 7 F ( & ; E !! & ; CI ! " ! & ; %, ! & ; " #& ; E' ; " !! #& ; CH 9 7< = !! D ,4 & ; CF U74, & ; F U9,+ 04%& ; H U,7 < !! & ; / U,1& ; C U44& ;
! ' ! ! # ( # !& , 7 E ! & 1 7 ! ' + 5& 3 E H 8 9 : 7 " (# + 5& 3 E / , 7 , !! ' %,4 ,%& C C , 7 , ! ' %,4 ,% , 9 !! & C CC ( - & I ( & E ;' E E-' E EE , & , EM HM F & , / F & , ( & / & E 4:& , - I' / F !" & / ( " & , - I # &
! (( & - -/ ! & 3 C C & 3 C C ! & 3 C C # ! & 3 C ; & ; E ' " # !& , 7 F + 5 & 3 C %, # !& 3 C ( " & 3 E " \ 2 & 3 ; C * & 3 ; C $! & 3 ; C' ; F & 3 ; C' ; ; 2 (& 3 ; C' ; H "*T " & 3 ; C' ; F "*T" & 3 ; C' ; E &
R,<+ & 3 - & 3 - & 3 - & 3 - # ! " & 3 - ! & 3 - ! & 3 - %, # & 3 - %, & 3 - ; # C (# ! & 3 - ; 0 :1 & 3 - ; " & 3 ; / # " & 3 ; +% & , I' ; C/' F HM -' - M C $$ !! & - / N !! & - H D !! & - I' - ;C !! & - C [ 7 %7 & , E , 9 !! & - CC 7:: !! &
790 & ; C 7A9& ; C 9,4,& ; C ,4 & ; 4: %& ; .>9& ; .<9,& ; 4 %& ; ; << & ; ; & ; ; < %& ; ; A9& ; E G0:%& ; E ,% & ; E .9& ; F + & ; F %<& ; F :%,& ; H %< & ; H % 0& ; H = %& ; H %= ,& ; I 0 , & ; I .9,4,%, !! & - ;H .9: !! & - ;I ! ! # ( # !& , 7 C' 7 F' 7 I .L,% !! & - ;/ .>9: !! & - E .4 !! & - EC .<9, !! & - E.
(( ' +% & - L <9,& H C L .
.9.T% 84,& , E ' E I' E -' C C & 1 E -/ & 1 E ; % :7. & :9 ! & , ; - .
: < 2 & & , E & 1 C -' - -' - H' - I' 9 C : ! & & 1 9 # & , C ! $ : ,%9 : & , & H & , E !!" : 7 %< & E : %, 0 % ! ' %,4 ,% , 9 !! & C CC : %, 0 % !! ' %,4 ,%& C F (
& E H & E H 57 & E H : < < : ! & ' ( !! ' # ! & , E ( # ! !! O17<.& , E Z , & , E .9.
44 !! ' +% & - ;; 4< 9 ! " & , 7 ; ' .& F ; 8 9 : 7 ! & 1 - I ! & C CC 49 & , 7 ; +4< 9& H I 4< 9 ! " & , 7 ; ! ! # ( # !& , 7 ; .,. = ! " & , 7 ; .
" & , 7 E +% & , 7 C' 7 F 947& , 7 .9.& , 7 H 4 & , 7 ! & , 7 ; 4
# *& M / ( & , - -H' / C ($ & 1 8 ' 8 H : 7& , M + C /' / C' / EM ;M E /M C : 7 # !& E CE' E CH' E CI' E C/' E - # ! & E CF : 77 & E -I .
! & E C & E )" & E FE ( & E EE * & E FE ! & E H +< % HH& E I' E I " " & E FH - & E ' E CE' E CF' E C/' E -H' E ; ' E ;;' E E/' E FC' E FI' E H / & E ' E CE' E CF' E CI' E -H' E ; ' E ;;' E E/' E FC' E FI' E H : 77 & E -E " ! & E F ! * !"! "!( & E I ! * !"! "!( & E CF !
! " & + / FC ! & , F F ! ! & + / H ! " & , ; E )" ! & , C ! & + / HC & + E I "!& , / / "( & + C 1 . " & , ; H +%.
+% & -M C & -M C !!" & -M C ! ! ! & -M C %,4 ,%& -M C & , - F !' & + C H ! & , / C ' " & , I ' ! ! ! & E " & -M C 7.9 <+T $7.9& , F 8 $ ,4& , E , $. L& + F , $.
( & E H/ < % L0., % " " & E C .& F E' F C " " & E C " ' .& F I' F / .& F -' F I .
& + C I <8, ! & CC ( *# & , - CF & , - CF !!" $ : 7 ! & + C / "!( & + C CF 4 <97& , ; E' ; C/' F H' H -M + / H ! ! # ( # !& , 7 F
! & F C ! " & , ; /' ; CH # * & F %< .& , ; /' ; CH' ; - ' ; -C' F H' / M + / ;C 0% !! ' +% & - F A9' +% ! & ; E A9 !! ' +% & - F A :%& F C & + / ;C A :%,& H CH' I / 1 & , CM + / C' / E & I & + C C G74.& , ; ;' ; H' ; C;' ; C/' ; - ' ; - ' F H G0, =& H G0,0,& , ; ;' ; C;' ; C/' ; - ' F H' H CM + / -F' / ;/ )" " ! " ' .
# !! & C C "! !! & C ; * !! & C E & C " !! & C F +.
! & , ; ' ; -' ; C; ! & , ; ! & , ; I 95%& , ; CE 40& , ; CE " & , ; ! ! & , ; C; " " & , ; H & , ; CE ! " & , ; CC # ! & , E / %,4 ,%& , C -' ; ' ; CF ! " & , ; C-' ; C; ! " ,9:% & , ; C; " & , ; " :<.
! " & + C CI " ' .& E + & , ' ' / M ;M -' ; ' I 9 < & ; E 974< & ; I 97< %& ; 97 ,%& ; 94<7+& ; E 9 .,& ; H 9< , & ; I 9 < & ; CC 9 0 L& ; C; 9 , 9& ; CE 9 % %& ; CH 9A: 9& ; - 9A :%& ; - 91 <& ; E 9174<& ; I 91 < & ; CC 91 , & ; CE 91A :& ; - ! " & , ; CC' ; CH & + C CI + .
& E E' E F ! & F E' F ' F F' F -:9 ! & F C-' F CE : < & F E' F C : & E E & F ! ! # ( # !& , 7 I ! & E ! & E ! # & F CI ! # & F C/ ! & E : 7& F C' F E' F CM E / : 7 & F E & , - F ! & F H' F ! ! & F E #& E E ! & F C " & F I' F / &
# C 8<<%,1 & 3 E E 9 # & 3 E E +% 7:: & 3 E E %+ & 3 E F " # ! ! & 3 E E %, " ' .& F ; %, ' ( & , F C %, # F & ; -' ; H' ; I %,8: !! ' +% & - FI % ' & , / C; % 4:& , - F' - /' - -C' / F & + C C 0 !! ' %,4 ,%& C C .
:S,' 9 7< = & ; I 4' & + / ;; %78& + C CE ! " & , / ' & + / ;; 4 5, 4: % ,. % & H -C ' & + / ;; 4 5, <++ ,. % & H - ! & F E :74< ! & F E ! & F E ' ! " & , ; CE ! " & + C CI ! # & + I ; .
9 7< =& , ; E' ; C/' F H 9 7< =$ 4 & , ; C/ 9 4: & , ; CE' ; -C' F H 9 .<9& , ; ;' ; I' ; C/' ; - ' F H 9 G& , ; 9 % & , ; -' ; CI' F H' F I 9 %, & , ; CH' ; -C' F H 9 57 & , ; C-' ; C;' ; - ' F H ,5.< & , ; C' ; CI' F H ,1,7.& , ; /' ; C ' ; CH' ; - ' ; - ' ; -C' F H ,1,7A& , ; /' ; C ' ; C-' ; CH' ; - ' ; - ' ; -C' F H +.% 7& , ; C' ; CI' F H + 5& , ; H' ; C/' F H +% & , ; H' ; C/' F H +% 5& , ; H' ; C/' F H L .& , ; ;' ; H' ; C/' ; - ' F H :+ .
"( & 1 9 -M , - ; "( & 1 9 -M , - ;' / H "( & 1 9 -M , - ; "!! # : 7 & E " & EM ; # " # " ! & E ; # " : <& E ; : 7 & E EF # " : < !" * & 1 ; CH # " ! " & E # *' .& F E = %& , ; CC' ; - ' F H' ; C = %' +% ! & ; H # ! ( . ! #$ . = %,.
, 7 ,& C C ,1:%& C ; ,4 & C E : %, 0 %& C F .
" & + H ! " " & + H I ,% !! & + H H % + & , ' ; -' ; CI' F H' F I' / ' / ' 7 CM + IM H H "( & + F' I 8 9 : 7& + ' 9 :5 ! ( & + " & + & + E " & + 2 & + ; & + : 7& + ' %, " & + H & + E & + I ( 2 & + H %7 & + & + E " & + "
# & 3 ; # + 5 " & 3 ; # " & 3 " " & E C " " & E C' E F " & E I " " & E C " " & E " ! & , I' ; FM -' C M C' - ! & F ( : < )" & F CC ( : < & F C #& F )" & F H & F ( )" & F C/ ( & F -