Trailing-Edge
-
PDP-10 Archives
-
tops20_v6_1_tcpip_installation_tp_ft6
-
uetp/lib/sender.rel
There are 13 other files named sender.rel in the archive. Click here to see a list.
0 MD9z H ,REL:OPRPAR.REL/SEG:LOW ,REL:GLXLIB/SEARCH/REQUIRE:I%INIT * @ gtI9 ( + 3 P@@ Q*" O "" " $ , , e " A B r " $ r, 5@ H `f + Q`f +
`f * " +
, R " , H , +
ZH ZT t H , .P , , , t "D ( , +
S 0 r , !4@ H .( , 4 S\" C, ,,~ H ""D( "`f 5 5 @@ y@@ x@@ y@@ z, 4@ \ B v " $ v, 4@ a B y $ , ("( * B x $ 4 h, %4@ 3 B w " $ w, 4@ o B y $ , * B z $ *
T 34 w x, O@ z+ d z $ \& {, x+ d, ,4@ \$ !" 4 XB
' * A* ;
'
4
'\$ & @ ( 4 $ @/ \" , + =Z
' "Q*T( D+ @@
'+ d $ \& , x+ d t B P+ d\" $ @\& , x$" *U @* L\" , + d " , 4 #+ dO@ , T, , 6B , N4 &+ d " (T
UU$ @@ + + \" (, ,+ d\"H , ,+ d y6@ , @@ y+ d ( *
] B P\" ) $ ,> , ,^ 4 a, Q1 + f,> ,> ,> ,> ,> ,> 2 U*Q f B 4 g, R, T P ( B P, S4 3\" $ (, 3 $ D 6 *A* n & @ + + $ @/ \" , V P+ d! t5 " " C6@ z, j * w4 #+ d1 + |,> ,> ,> ,> ,> ,> ,> ; B D F , 4@ @,> "T
: \ ~ v @ 4 F,^ + d@@ Y G*& } ,> & \( V, ,^ &" t\( W, * " P B ~ "E" " $ }, 5@ ]1B
+ 1B
+ 1B + , 4 W=j + 1 + ,> @ * ,> ,> ,> [, &$ D &$ D~ F~, 4 \+ d1 (* !+ $,> ,> ,> ,> eQ" , 4 h\" X$Q$ S&}@ + + " , $ *Q *4 m+ d, )4 r,~ , +4 #,~
" Q @@ *" !" B0 (D 2 u B0 \" v B0 \" v B0 ,~
" Q @@ *" !" B0 u "(Q ; B0 \" v B0 \" w B0 ,~ 7@ z5 u@ $ w5 #@@ 5 @ C C C E @ X~p (8HX ( `( H (
L o @ H
o @ H
P ( ( H (@* T o ( `( H o @ H Y @ @( H ] > @ (
] . @ H _ a @ @( H _ @ 6 ( P( e`( H o @ H i ( l o s 0 5 @ n( 8 H SENDER> A q * w+ +
****************************************************************** **
SENDER Program
FUNCTION THISPROGRAM IS MEANT TO BE USED BY THE BATCH
TEST CREATOR FOR UETP COMMUNICATION. ALL EVENT AND
ERROR CONDITIONS OCCURING IN THE BATCH TEST CAN BE RELAYED
TO THE UETP VIA THIS PROGRAM. THERE IS NO OTHER WAY
TO COMMUNICATE WITH THE UETP.
COMMANDS
a. Commands which qu !alify the messages to be sent.
1. TEST NAME <text>
* The first 10 characters of <text> go into the
2 test name field of all messages to be sent until
the ; next "TEST NAME" command.
2. BLABEL <text>
C The first 10 characters of <text> go into the
b Latch test label field of all messages to be sent
until the Tnext "BLABEL" command.
3. / MAJOR \
] / MINOR \
TY ePE (OF MESSAGE) \ END /
\ ERROR n /
\ START /
v A code corresponding to message type will be
placed into the message type field of all
messages sent unt il the next "TYPE" command is
given. The message types ar e:
MAJOR major run milestone
MINOR minor run milestone
ERROR errors
! END end of run (a major milestone message)
) START start of run (a major milestone message)
b. Commands 2 which relate to the message text.
1. EXTRACT (MESSAGES FROM :) <file-spec>
This tells "SENDER" that the messages are to come Cfrom
the named file. These messages will be placed in the
K ninth (text) position of message records. The first
Teight field being filled in by SENDER.
Each message sent will also \ be written to the terminal
assigned to the job, so that in nor emal usage, running
under a batch control file, the messages will sho mw up in
the test log file.
All the messages in t vhe file will be sent in this
manner. When "SENDER" reaches ~ "end of file" it will
return to the user terminal (batch contro l file) to
accept more commands.
2. SEN D (MESSAGE TO UETP) <text><carraige return>
The contents of <text> will be used for a message which
will be sent immediately, alo ng with any qualifying
information provided via the commands a.1 t )hrough a.6.
The time stamp will be taken from the current monito 1r
time and will be labeled "origination time stamp" ("O"
: in position 19).
3. EXIT (TO MONITOR)
B This command terminates the execution of SENDER.
RESTRICTIONS
K The general conventions for running batch jobs are intended to
guarante Se communication with the Command Processor at the
beginning and end o \f each batch run. To accomplish this goal
each batch job should run t dhe SENDER program at the beginning
and end of each batch run.
S mENDER gives the batch run creator
the ability to communicate with UETP u which records all
information in the error and event logs. This rec ~ording is
essential to the sucess of UETP. If all batch runs follow the
recording conventions then their flow and status can be
mo nitored and reported promptly and accurately.
The basic conventions are qu ite simple. The first step in any
batch control statement will be an execution of SENDER. The
information sent must identify the sender and gi (ve the start
time. The last logical step must have two components. first 1, a
%ERR:: execution of SENDER which traps unknown errors and
9 informs UETP. Second, a SENDER run informing UETP that this
is a succesfu Bll end of this run. An example may clarify the
convention:
J
@RUN SENDER
SENDER> TYPE (OF MESSAGE) START S
SENDER> TEST NAME COBOL2
SENDER> SEND BEGINNING CO [BOL2 RUN
SENDER> EXIT
.
d . ACTUAL BATCH RUN
.
@GOTO NOERR
l ; We execute here if there was an unexpected error
%ER uR::@CHKPNT
PRINT COBOL2.LOG
@RUN SENDER
} SENDER>TYPE ERROR
SENDER>BLABEL %ERR
SEBDER>T EST NAME COBOL2
SENDER>SEND UNKNOWN ERROR IN COBOL2 RUN
SENDER>TYPE MINOR
SENDER>EXTRACT COBOL2.LOG
SE NDER>EXIT
;We always pass through this next section
NOERR::@RUN SENDER
SENDER> TYPE END
SENDER>TEST NA (ME COBOL2
SENDER> SEND END OF COBOL2 RUN
SENDER> EX 0IT
%FIN::;In case of disatorous errors
@CHKPNT
9 @PRINT COBOL2.LOG
The basic philosophy of Athe convention is to guarantee that some
message gets back to UETP about the J ending status of this run.
If the run ends with no errors then that fact wi Rll be conveyed.
However, if any unexpected errors occur then UETP will st [ill
receive information about the end of the test.
HINTS
EXAMPLES
( c
: x ,~ \" % & #4 )\" + J4 / *
D l\"( \$ @ @ 4 6 " $ {, 4@ >, 4@ FZ
`F `, 4 Q "P t ( B
( B }+ d { @ UETP- P X .T@ Pt C p0, Z@@ z+
H CP 0 Improper field * Y(input file) in TAKE command \" W, !+ d
?Cannot open TAKE command file
*@ * a\" ], ,+ dCould not set file byte size for TAKE input file \" c, ! y, [ ( * j+ d
?Cannot open output file for TAKE command
\" j, , y, i+ dCould U* r not set file byte size for TAKE output file \" r, ! y, q y, x+ dH U {?Error in BLABEL command (from SENDER)
?Error when trying to parse filespec in EXT RACT command \" , ,, ++ dError opening file for EXTRACT command \" , ! (
+ d ?ERROR IN OPENIFOR EXTRACT (FROMESENDER) \" DER)
'
`d + C\" , b+ dH Q?ERROR IN TEST NAME COMMAND (FROM SENDER) ?Error in SEND command (from SENDER) 0 % S
ERROR ?SENDER started illegally. BATCH control err D .or 1 : },^ ,^ ,^ ,^ ,^ ,~ . H 0 @ @ @ 61 : },^ ,^ ,^ ,^ ,^ ,^ ,~ 6
?Error parsing TEXT field of curr
?ent command \" ;, ,, ++ dERROR WITH SOUT JSYS AT STTXT: \" B, b+ d 8@ D G; Y H Y 0 H Rr K H S ( " P K Can't send message to UETP because Q0 K g:(UgtI9 X1 : ~,^ ,^ ,^ ,~ X: H t \ t ~ \ t @ a ~ 1 : ~,^ ,^ ,^ ,~ b
?SENDER error: f i 0
?Jsys error message: k 0
?GALAXY error r: p0 K ?{UETP CMD LOG Take command illegal within a 0f ztake file..command ignored BLABEL XJEXIT
LEXTRACT NHELP `SSEND 9L` UTAKE 8WTEST XeTYPE gcurrent label of BATCH control file to MONITOR messages from file to extract messages from with SENDER message to the UETP commands from file file to take commands from logging output on file to log out put in name of test of message END LOG MAJOR MINOR START T % x Unexpected error in GETJI at GPID: \" &, !, a@ Unexpected error in -NOUT at GPID: \" +, !, * )` Error in SOUT Jsys attempting to write UETP's PID *@ " 6\" 1, !, 0Unable to send message to INFO becase 70 K g9;gtI9 * >, s4 =Failure in receiving INFO message: ?0 K g9CgtI9, > ( G4 ECan't get UETP's PID (probably not running in this directory) G 0 * O J NgtI9 "P J P J P K z3g t [~ x+sU) @+t ],d P,d6 8v: CR8H. @bU0Y qbUQ#G pD89w+ HX|J !#ll K!?< ZJLmf` "JLzU JL=A KQ(T CKRB KRY" EL>G WRM o/ M^$G VROI@ D" RO: u? R_Q Pgs }*2 w KHY4 R^C3
_sG bR`=3
" L Rd=_ 6M\ C6kL
' Wcw =c ]L 1c ] 4 (c hz4 /`
/G7 y SB1V Se& S
14 S
1g S
2~ K "jK5kb SO.&
+ @
NtY #
Nv sK+l>@ K+lu_ K+m P
X V S,`> / "?C eK1+G\ "
k[L
l
E$X, cgtmK 7cg| SWaI@ SWb SWbB SWbx P eSv |> AK`+ g `S`'uK i
Xp4@ D" P
Xw5@ dXI dyc d{bB R(P~s YT+#R dIal$ T:QI T:"h @" T:"z ;
: XP>. @C>9t C?2 YQ ut
#Pm&X LYf7D@ 0 J "HB( TUH u^#z wu^5, yu^;L zP Ugd @ P P P
D P
u}C tu~h rUus3 Uus~ uC
K
eu?Z
uA UTI@ UTTf UTmxx UTuN $c CP Wx ` %B [S5
=w q U
)u/ U
)uW U
)uk ) T d4z-x w* [ 3 1;+ d D P*& 5tQ+ d 8Q dI c M[+ >M[+ FM[+ P E P E UJuRd UJuRz UJuS/ UJuSm UJuSv MD:K y?V 9EI UP9@@ " UPK 8( Rp ! Rp@, , 9s UT9<H e etX , `u6) P Y P Y P Z P Z >' 3c; >>#9 .>#9 6 D" c;@ zc;z vc;+, yc;1A xc;r ue-! T ;F3 S ;F3 h0G D W3 Qn5@ nJq RnK'; UUqRU UqRUf UqRUl` UqRV? UqRX; p D qQ9N qQ;t CqQS xUqR$. @~:aC
(
=} }Pb K V;/ "VK V P @ ^t= J=VT@ o_ L_ N=Zo P_w S D"_]X U_c& W=w Y=w ]=w _=w a_cz e_g g=xi i @" =xi l7
t V7
z. @z { PP2Z#, W+P W. { ~P KM;,~ PP@5 `
@PP@W1$D4@ `~T2W1$DW1$K5@ `~T2W1$KPPG5 `
GPPGW1UK ~ WPBi WPC%[gtI9W (Y1 W +e= W +|+ W +|. W .Id W 0 " W 4S Pt P7 Pd W Lo W uP5 fW uP5 |W uP6 W uP6 $W uPK E @ W uPK W uVX lW uVh PGj PGp Pk/ P P2n /P2n W /rt W /rt P2p W /s W /s_ P2u W /tW W /u[ P Hg
P Hg
P Hg P Hg P Hhj P Hho ~W 5WD9_ WDp ONk ON- ON36 ON?) ON@I ONK] ON_} OOw iMK P cu 8 O/L` O { OX O/g OKi OQV nE% NO(h O(h O(h O(h, Oi), O9RH P I= `~T2 OOrc `
@ A`
G > D" G Ig>#s `aA Fd #~3 EW
W W W W W W W W Wr W\3 WR[ WR^ zo H H @ P ~ oh H @