Google
 

Trailing-Edge - PDP-10 Archives - BB-D867C-BM - uetp/lib/sender.exe
There are 20 other files named sender.exe in the archive. Click here to see a list.
?p0` 00?h@?x " 
 
<++!2	`0ah@!2`9@3gtI9(+ 3 @@L *" " $0,
H.(,9+R\ 	
+@@B@@B@@C@@C,
4@ B@," $@,4@4,
4@e BA " $A,4@ BC $,# BC $4" B,mO@D+. & $\&&,/+.,
4@0\$!"46XB
q 
q 84= 
q\$	M &@ (4B $@/\"	M,;+oZ
q	+ @@
q+. F $\&F,/+. > B
+.\"M $@\&K,/$" \"M,;+. "J,9+@ +.O@	,	,K,_6B,9+@DC`+. " U$@@+ + \"O,u+.\"H,u+. C6@, @@C+. O B
\"P $,>,;,^4,K1+,>,>,>,>,>,>Y B4,,	 
 O B
,9+!\ 	M @E\"	M $(,; Z $D Z &@+ +  $@/\"	M,; V
+.!>+
6"D,9+.@ +.1+3,>,>,>,>,>,>,> B D F,+4@e,>:\  @4j,^+.@@
	 l*&	 FG,9+@\ 
	 E,9+C\ 
`l E,9+F\ 
lE\"},>&\(
,S,^&"t\(
,S * "
 BH " $G,5@1B
+R1B
+R1B+R,4s=jK+Q1+V,>,>,>,>w-!  &$ D &$ D~ F~,9+a\  `0 w`~0 w`~0E+.1+e,>,>,>,>{Q",9+i@DC` { \"MX$Q$S&}@+ +  "M,9+p@DC` } +.,9+t@DC`  l,~,9+w@ ,~  
  "Q@@*"!" B0  B0\" B0\" B0,~  
  "Q@@*"!" B0  B0\" B0\" B0,~7@D+
@$+@@+ 
Hp (`(H9 @H9 @H((H9 @H9(`(H9 @H #@@(H"'
w @H%)+@@(H')
(`(H*9 @H+3(59)0P	x`pSENDER>:+5+5

********************************************************************


SENDER Program

FUNCTION	THIS PROGRAM 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 qualify the messages to be sent.  

                1.      TEST NAME <text>

                        The first 10 characters of <text>  go  into  the
                        test name field of all messages to be sent until
                        the next "TEST NAME" command.

                2.      BLABEL <text>

                        The first 10 characters of <text>  go  into  the
                        batch test  label field of all messages to be sent
                        until the next "BLABEL" command.

                3.                           /  MAJOR  \
                                            /   MINOR   \
                         TYPE  (OF MESSAGE) \   END     /
                                             \  ERROR  /
                                              \ START /


                        A code corresponding to  message  type  will  be
                        placed  into  the  message  type  field  of  all
                        messages sent until the next "TYPE"  command  is
                        given.  The message types are:


                        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 which relate to the message text.

                1.       EXTRACT (MESSAGES FROM) <file-spec>

                This tells "SENDER" that the messages are to  come  from
                the  named  file.   These messages will be placed in the
                ninth (text) position of  message  records.   The  first
                eight field being filled in by SENDER.

                Each message sent will also be written to  the  terminal
                assigned  to  the  job, so that in normal usage, running
                under a batch control file, the messages will show up in
                the test log file.

                All the messages in  the  file  will  be  sent  in  this
                manner.   When  "SENDER"  reaches  "end of file" it will
                return to the user  terminal  (batch  control  file)  to
                accept more commands.


                2.       SEND (MESSAGE TO UETP) <text><carraige return>

                The contents of <text> will be used for a message  which
                will  be  sent  immediately,  along  with any qualifying
                information provided via the commands a.1  through  a.6.
                The  time  stamp  will be taken from the current monitor
                time and will be labeled "origination time  stamp"  ("O"
                in position 19).


                3.      EXIT (TO MONITOR)

                This command terminates the execution of SENDER.




RESTRICTIONS

        The general conventions for running batch jobs are  intended  to
        guarantee  communication  with  the  Command  Processor  at  the
        beginning and end of each batch run.  To  accomplish  this  goal
        each  batch  job  should run the SENDER program at the beginning
        and end of each batch run.  

        SENDER  gives the batch run creator
        the  ability  to  communicate  with  UETP  which  records  all
        information in the error and  event  logs.   This  recording  is
        essential  to  the sucess of UETP.  If all batch runs follow the
        recording  conventions  then  their  flow  and  status  can   be
        monitored and reported promptly and accurately.

        The basic conventions are quite simple.  The first step  in  any
        batch  control  statement  will  be an execution of SENDER.  The
        information sent must identify the sender  and  give  the  start
        time.  The last logical step must have two components.  first, a
        %ERR::  execution of  SENDER  which  traps  unknown  errors  and
        informs UETP.  Second, a SENDER run informing UETP that this
        is a succesfull end of this run.  An  example  may  clarify  the
        convention:

                
                @RUN SENDER
                SENDER> TYPE (OF MESSAGE) START
                SENDER> TEST NAME COBOL2
                SENDER> SEND BEGINNING COBOL2 RUN
                SENDER> EXIT
                        .
                        .  ACTUAL BATCH RUN
                        .
                @GOTO NOERR
                ; We execute here if there was an unexpected error
                %ERR::@CHKPNT
                PRINT COBOL2.LOG
                @RUN SENDER
                SENDER>TYPE ERROR
                SENDER>BLABEL %ERR
                SEBDER>TEST NAME COBOL2
                SENDER>SEND UNKNOWN ERROR IN COBOL2 RUN
                SENDER>TYPE MINOR
                SENDER>EXTRACT COBOL2.LOG
                SENDER>EXIT
                ;We always pass through this next section
                NOERR::@RUN SENDER
                SENDER> TYPE END
                SENDER>TEST NAME COBOL2
                SENDER> SEND END OF COBOL2 RUN
                SENDER> EXIT
                %FIN::;In case of disatorous errors

                @CHKPNT
                @PRINT  COBOL2.LOG
                
        The basic philosophy of the convention is to guarantee that some
        message gets back to UETP about the ending status of this run.
        If the run ends with no errors then that fact will be  conveyed.
        However,  if  any unexpected errors occur then UETP will still
        receive information about the end of the test.  

HINTS

EXAMPLES

:x,~\" 2 &#46\"J  7J4; * = B(@@(\"(\$I@@4B " $D,4@K,4@RZ
 `F`,4\ ( B
q BG+.@
UETP-                                                                                t
yHM,@@D+:Improper field (input file) in TAKE command\",b+.
?Cannot open TAKE command file
 \"	,u+.Could not set file byte size for TAKE input file\",b B, +.
?Cannot open output file for TAKE command
 \",u B, +.Could not set file byte size for TAKE output file\",b B,  C, +.H
?Error in BLABEL command (from SENDER)
?Error when trying to parse filespec in EXTRACT command\"*,u,q+.Error opening file for EXTRACT command\"2,b+.?ERROR IN OPEN FOR EXTRACT (FROM SENDER)\"8,+.?ERROR IN SIN IN EXTRACT (FROM SENDER) 
q
`d+u\">,+.H
?ERROR IN TEST NAME COMMAND (FROM SENDER)?Error in SEND command (from SENDER)
ERROR?SENDER started illegally.  BATCH control error1:},^,^,^,^,^,~UH	M@1:},^,^,^,^,^,^,~[
?Error parsing TEXT field of current command\"`,u,q+.ERROR WITH SOUT JSYS AT STTXT:\"g,+.A
	Can't send message to UETP because  m p lg:(qgtI91:~,^,^,^,~t:1:~,^,^,^,~x?SENDER error:  ?Jsys error message:  ?GALAXY error:  ?{UETPCMDLOGTake command illegal within a take file..command ignoredBLABEL
xEXIT0EXTRACTAKE
X!TESTx.TYPE 1current label of BATCH control fileto MONITORmessages fromfile to extract messages fromwith SENDERmessage to the UETPcommands from filefile to take commands fromlogging output onfile to log output inname of testof messageEND  LOG  MAJORMINORSTARTxUnexpected error in GETJI at GPID:\"2,b,K@Unexpected error in NOUT at GPID:\"8,b,K)`Error in SOUT Jsys attempting to write UETP's PID\"=,b,KUnable to send message to INFO becase  D G lg9HgtI9,4JFailure in receiving INFO mes L  lg9OgtI9,4QCan't get UETP's PID  (probably not running in this directory) S I U XZgtI9 C@@bb,97@c+
!$Zb"(D ",ZcZb.RbX"h BO@b[c[b."  Dc+
O@o,[\" Br\"x Bs Br  Bq "< Bq@@t "@ Bs\"8 Bt "@ Bu "x Bu@@' "q B"@@q@@r %: B#,~6`0b+,SX$%*$$0B+7@o,9,A,U7B% ",a %: D#6@p+<6@a++S,D4@(6@,]Z# s B_ "q,V  Fm4@SX("*("`f+<af+d[,E4@ df+	 " $",5@S6@+(,W +(6&$0f,4 ) B$ " $",pZ#,L4@m  " $", 4@u $ #Z#,A5@s0F1F7+zZ  Z`4Bz:XB#+S!(bH)+y7@ $!(GH) Bo+(BH)+< )A" 
(6@(+ B(Q&A`X&xZ):Q(A`B5BZ" A"QB( )A$/"QC)!"@cB)+!"GB( " B(@*)6@ll" Bl Jm!"BBq,c@@a\"x Bs "@ Bs " $l+
6@p+7@++,4@,"5@+,W +(,$+,$ $+(!"GB)O@* $+(`f+!"@GB) $O@*+([q
ad++
 +	++
  Bq@@+@@l@@+!"BB),~ D'@@a,c 
(6@&+/6B'+- J'+.,4 J'6@*+4!&A`X& F! &} F",9+4  :!'E $@*)l"  Bl Dn Jm "x Bn " $l@@*+? "+B!+
!"BBq`f+]!"GB)O@* $+)@@p6@++Q7B&+M   FqQ(A`X(x@@3B!+S,e
4LIL9
GL Jp Jt\"x Bs Br,~ p Fq6@a,~@@t\"x Br,~!&GF)!+X&+M,h 
+J7J&+Y J([(: F(.&( F),~6J'+_,3 B( & F.& F) &XF,~ J(@@',~,e Dr D_@6@9c Fd+
RhdidQ$A`X,~ " 4' " 4'  
<&n,^B+l@B +
||'':',' 59 XG) &QG):) Z#Z,A7@[ G):),~ (7 (
 )\"  
`Z$*)Z`/"QB  0XB  )@@x*"~ 0	+,,~ ).(Q(A`S&A`X&8
J5JZ(  /)QI) XI)*),~ XG) &QG):),~ XI) (QI):)  I):)Z   I):),~ ).(Q(A` _2Fs+$@
+&
3Fs+&J+$J+ XI) (QI):)  I):),~Zaf+\)." (,42Z$ 
/)QE)  XE)*
)+
Z  ,e* ).(Q(A`++ ( .& F),~,v!"@BB) )@@x*"~ %:&30F+C,A:XB#+SZ# B`,H4@K  " $", 5@K7@ $4!(GH) Bo+ `Z5BD+
 
Z( (,Lab+[Z(/&SfX&*& ",<!&BFSX&Z	0h,4C*&  & F 
(Z(/
 (0 &O@,~@@[ ? +.0d2d,4GQF4FfQ$*$'@@ +
!"GB+eZq1F ,9+l !9 H KE` K+l ) >Z
+0J+F).&Q&A`FgFh&A(/$&FgqFf!&Ff&iFi@@h&Fe"e,\4@!"bBf+!"bBf+
 !9_ xD`+@bg s Bk ):,9+  !   "BkZg." /)QE) $XE)*) $XE) $QE):)+
$L+ $P+Xq1F ,9+  !9C`D S V+
 @HW$8@'5-. `+)Z([(8@@+ )@@x*"~!" Bx   Bx\"\ Bz\"] Bz\"] By,~7@+,~ " $^+O@+!&BF)6@eGF) 
( 0."0,n,|4@P0B+P,
4@Q ,x5@C,F4A,x4@P H,!"GB),K4@R+
,4@S0B
0BS@@l+
!" ,\$+ d B+++
 $d+U $g+U $k+U $n+U $q+U@@++ @HuX( (HvZ @Hz\(_ 
( 0."0,n,|4@k0B+k,	4@k 
1b7`+l,: 7` "0b "$"t;+ +
 ${+ $~+O@+ZB++
 B]@@^+
 ]+
7B^+ B]+
 ] @^[].@]+
 ]Z+s ]Z+
,w0B++s,w0B++s,w0B+ +s,w0B+ +s,w0B++~,w0B++~,w0B++~,w0B++~,w0B++s,w0B++,w0B++,w0B+ ][+s,w0B+ ][+s,w0B	++,w0B+ abp+sQ&A`X& @@4B"1b=1"07/"/"`hpB+ +s,w0B++,	4A 
,4@*,	4A  +
 " +
,w0B+[ ]+s,w0B+[ ]+s,w0B+[ ]+s,w0B	+[ ]+s,w0B
+[ ]+s!"@GB)+
/"7@,4	Z[3D+./+
,<4A1d+6B+
+,<4A1d+6B+
+,<4A1d+6B+
+,<4A1d+6B+
+6@++
 c,X4A
,} ,_2Bd+Y6@+Y &@ Fs@Bt\"x Bs #X Cc+
7@b+
,\+
O@`+
!"X" $?Zb)4`O@a+
,9+c@ 
 +
7@a+
!"X"O@@@)4g@@a+
-M6@d+v7@b,~7@a,~@@a c,X7@,~O@dS"Xb/!"X"=!"X"l&>[q $&,~@@d "0,} &@ Fs Bt\"x Bs c,X #X CcO@a,~Q$A`X$x@@4G
9,+
OPR> WRONG SIZE MESSAGE BLOCK $+(@@%9K6$&1F,+<XF#+SINVALID FUNCTION CODE FROM COMMAND 
SC9Action Routine Error Aborted CommandError Closing TAKE Command FileEnd of Take FileEnd of File on Incore ParseInterrupt from COMMAND Return?{Rescan JSYS failed,  ! $$C9,4&$$@/xError Closing File JFN $)+DEVICE DESIGNATOR CONVERSION ERROR - 0I1C96$Default Filling Routine Returned False  Command AbortedSHARED SWITCH TABLE SIZE OF  TOO SMALL FOR TABLE OF SIZE  :`= =`gS@C9TABLE DELETE ERROR Di(FC9Enter Text and Terminate with ZBad Argument in Message .. Confirm ExpectedFalse Return from $TEXT InputTEXT EXCEEDED INPUT BUFFER...TRUNCATEDCommands FromDISPLAY@P+NODISPLAY@X+SYSTEMCMDDSKTAKE Command Illegal within a TAKE File .. Command IgnoredInvalid TAKE CommandNo Input File Specified in TAKE CommandCan't Open TAKE Command FileInvalid Argument in TAKE CommandCould not set File Byte Size for TAKEforNumber of Seconds to Wait between 1 and 60SecondsInvalid Wait CommandWait time must be a positive number between 1 and 60HInvalid PDB Header in Parse Block  SCC9
?Timer>SetupFailedfor+J+
,)5@
 6.,>8 "B,>,> "(B{Q"[A"1D="4"\"v 9
4\$v,-5@& "vl"A`\$v,-5@& 9 Bv "vl"`\$v,-5@&\":<+%,^,^ "BT`&+
 "Q"4+adg\ ,~   @B5B.!" +5lQ" A@45\ 7  ,~ 
 6/,~7SYS:? GLXINI - Unable to obtain run-time system
GLXLIB.EXEH?x6A6`AXk@Xk9Z
j+	j*	j*aA>#sI["
X;X0X.X.X-X-
G

@
?~T2O|Z\Hjb
P3fWPC3S:HWPC%[O3ETPG+
P@+PbaP?`Xn%T-n)5n).;sP`PYu6)9tX9x@2Bwc(PEPE\#
BV\#	#Y\#cY\!>U\!yW\fX\mKX&HW\5GV>jr7iI[S+U`.M
j}P
Ial$4IaZ0IaU-.Ia)%+IZ8P,IP%+IP${-IP$v,IL.$3IL/IJ5"/ID/&.I@ZM-I@I*T+#RL(KG|1.>7E1,)OE1)<C1)7D1$CB1 53C1B1*@1}OA1hD10?1O@1oNA1TBF[|!\{bBz[z	\yc]wZXI]
Xw5@KzK
$KzJ@JSzJ?|pK^gn|w6
Qhb6P
~eM
`Kg}rHR
@`Lg|hLg|ZNg|YNg|YMg|
O2Bl[@P	xLny7!
/G<!
/G8$
/G7 
/<B"hz4h*Kh)t]4]L#\NK\Mt!'#Vd%SM7 
.ow$Qq"MN4PRXHY.B)UQgCUQ#GUOn{E7UO'tUKMUE0UBCU>fU2GCU0Yt:Bt=&&t=%t=%,Il
IOmgOQiOPf^OPS@OPE=OPE6OPB:OP;:OP9MOOqh WwZsWj;$W`ZWh	WWNWW;&Oq|W'fOO
2OO
	OO>	OO#OO=ONyiONs3ONm&ONdiON`wON_{ON@^ON@FON-mON-GON-@ON-?ON JON|ON+ONONqONMON
s
ON
]ON
VOD9PWmvPGpPGjWvWuP^WuP])WLoPdP7PtW4SW0"W.IdW+|.W+|+W+e=W(Y1WPC%[_C9PG+
P@+KM;,~2Z#,PbaPG@,V~g,V}|U,V{ml,V{mk,V%f,V%c,V$V,UDp\,UD\Z,UDHXP?`X'sd'y'u's'mN)h/+bh/zbP;3@P`Uex&ex#"exu%eMVuPG@PLw7@P99@MPzG\MP}%`MPbaMPd%cPst*KS:K6
 K7E&K7E$K/>5K*=|K!:'KiK
wK	{9Ku]|KjI:KWKI|,K9CK:EK:EPEPEM[/_bM[,WM[lu=M[k&eM[K^08L=M>@PG@De 7;L	M6w_.5n5l*0h5[5<5ECM4_(gM4^uLM4^EcM4^CGU
)wvU
)woU
)vzU
)ukU
)uWU
)uRU
)u/U
)u,
vd
@^
2^[S+UavUaUa9Ua9UUY	dUXq7UXHfUX8UX/tuE"ptkGtkFtkFtkEta+(t\sSt]tVBlUus~UusvUusrUus3Uuq/U`.Ugd@Ud	mU\f|URxUK)<UK' UI57@UH^UG?& UFc\UBc
sL:Vw	
:J:|.~Pm&XTCf3	TCeGx8HY&ePT+#RL$9.x
Xw5@
Xp4@w]`'on
^~eY^}/*S^~6h^\RWA^\TS^\TQ^\TM^\TM^\TJ^\TI^\TGP%u@S,;:S+@.+?.Bx(Ug~(T|wl(T}&
Nt(T%e(TE(TE(TD(T6[S
2~S
1gS
14
CB)HtDH	%KH	%DSBp@SB1V^R*^R'^O
'^Kd:^O<]{(]{F4]{F/]{E.]{E-]{D)P^o&P^nP^l^`RO
RO:RO^ROI@RO7M
*pRMqvRMq.RMo/RMoL? }L?#KRM;"KR.UKR1F_KR1E\KR1EYKQ~KQ}w!KQ{s"KQjBqRK,@H&=t@JL  JLJLOK!o&"KvGcHY\RT5s+@R8H.@8v:x
+sU)-R.@#N8IA/u
%
tB7)RmxxGb,P%@rT*J@]zoz~3wdUG{PIYOOrc PI=O9RHOi),O(h,O(hO(hO(hnE%OQVOKiO/gOXO{O/L`cujiMKOOwON_}ONK]ON@ION?)ON36ON-ONkODp~WgPHhoPHhjPHgPHgPHg
PHg
PWmvPGpPGjWvWuVWuV~5WuPrWuPqWLoPdP7PtW4SW0"W.IdW+|.W+|+W+e=W(Y1WPC%[gtI9OPBiW1UK ~PG+
P@+KM;,~W.	{~W+P2Z#,PbaPG@{zLV7
z.@7
tM=xi5=xi3_g	1_cz.=w*=w)=w'=w#_c&!_]X_w=Zo_	_	=VT@9^t=P@VP?`XVKV;/PbK=}G
I~:aC
qUqR$.@qQS/UqQUsUqQUp@UqQUoC`UqQUnDUqQUm@UqQUm`UqQUkUqQUk`UqQUjUqQUf UqQUdEqQ;t	
nJqn5@RW3
h0GS;F3;F3
P;3@e-!
c;r+c;1ABc;+,Bc;z@c;@D>#9>#9wc;>'ePZPZPYPYUX8z!P:	 e5PUT9<H9sRp@,u	QRpb8(UPK	UP9@@9EI;P99@y?VMD:KKPst*UJuSvUJuSmUJuS/UJuRzUJuRdPEPEM[+QM[+RM[+KI c8Q-5tQ+-P*&1;+.*[34z-xw.	)U
)ukU
)uWU
)u/
=w:[S+%B3PWx`$c
UTuNUTmxxUTTfUTI@uADK:uC<Uus~Uus3u~h;u}C=P
P
P	P	Ugd@URxHUK'UG?&PD@Pm&XQut
mC?2
	C>9t	MP>.@;
:
T:"zT:"hT:QIT+#R(P~s
Xw5@
Xp4@Sb` 3@&EDiS`'uKK`+	g`|>P%u@PeSvSWbxSWbBSWbSWaI@0E$X,J
l

k[LK1+G\ "?C.S,;:P
XVK+mK+lu_K+l>@
Nv)
NtY#&
qKO.K5kbK "jS
2~S
1gS
14Se&SB1V	Wcwo6kL
q6M\uRd=_	LR`=3
_sGR^C3
	KHY4}*2@P
u?
RO:ROI@M^$G
RMo/L>G
KRY"KRBJKQ(TK!?<#ll	HX|JSD89w+R8H.@8v:
+t+sU)
[~BP%@z3g>PKPJPJMD9zZ0\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0