Google
 

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.
 0MD9zH,REL:OPRPAR.REL/SEG:LOW,REL:GLXLIB/SEARCH/REQUIRE:I%INIT	 *@gtI9(+ 3 P@@ Q*"O	"" " $,,e "A Br " $r, 5@ H`f+Q`f+
`f	*"+
,R ", H,+
ZHZTt H,.P ,,, t	"D (,+
 S0r,!4@ H .(,4S\"C,,,~ H	""D("`f55@@y@@x@@y@@z,4@\ Bv " $v,4@a By $,	("(* Bx $4h,%4@3 Bw " $w,4@o By $,* Bz $	*
T34w x,O@z+d z $\&{,x+d,,4@\$!"4XB
'	*A*; 
' 
4 
'\$	 &@ (4 $@/\"	,+=Z
'		"Q*T(D+ @@
'+d  $\&,x+d t BP+d\" $@\&,x$" 	*U @*L\",+d ",4#+dO@	,T,,6B,N4&+d " 	 (T
UU$@@+ + \"(,,+d\"H,,+d y6@,@@y+d (	*
] BP\") $,>,,^4a,Q1+f,>,>,>,>,>,>2	 U*Q f B4g,R,T P ( BP,S43\"	 $(, 3 $D 6	 *A*n &@+ +  $@/\"	, VP+d!t5" "C6@z,j	*w4#+d1+|,>,>,>,>,>,>,>; B D F,4@@,>	 "T
:\~v@4F,^+d@@YG*&},>&\(V,,^&"t\(W, * "P B~	"E" " $},5@]1B
+1B
+1B+,4W=j+1+,>	 @*,>,>,>[,  &$ D &$ D~ F~,	4\+d1	(*!+$,>,>,>,>eQ",4h\"X$Q$S&}@+ +  ",$	*Q *4m+d,)4r,~,+4#,~  
  "Q@@*"!" B0	(D2 u B0\"v B0\"v B0,~  
  "Q@@*"!" B0 u	"(Q; B0\"v B0\"w B0,~7@z5u@ $w5#@@5@ C	 CC E@X~p(8HX(`(H	(
 Lo @H
o @H
P((H	(@*To(`(Ho @HY@@(H]>@	( 
]. @H_a@@(H_@6(	 P(e`(Ho @Hi(los05@n(8HSENDER>Aq	*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/ *
Dl\"(\$@@46 " ${,4@>,4@FZ
 `F`,4Q"Pt ( B
( B}+d {@UETP- P                                                                                 X	.T@Pt	Cp0,Z@@z+

HCP0 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+dHU	 {?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 OPENIFOREXTRACT(FROMESENDER)\"DER) 
'
`d+C\",b+dHQ?ERROR IN TEST NAME 	 COMMAND (FROM SENDER)?Error in SEND command (from SENDER)0	 % S
ERROR?SENDER started illegally.  BATCH control err	 D.or1:},^,^,^,^,^,~.H	0@@	 @61:},^,^,^,^,^,^,~6
?Error parsing TEXT field of curr	  
?ent command\";,,,++dERROR WITH SOUT JSYS AT STTXT:\"B,b+d	8@DG;YHY0HRrKHS	("PKCan't send message to UETP because  Q0Kg:(UgtI9	  X1:~,^,^,^,~X:H t  \t ~ \t 	 @a~1:~,^,^,^,~b
?SENDER error:   f	 i0
?Jsys error message:   k0
?GALAXY error	 r:   p0K?{UETPCMDLOGTake command illegal within a 	 0fztake file..command ignoredBLABELXJEXIT
LEXTRACTNHELP	`SSEND	9L`	UTAKE8WTESTXeTYPE	gcurrent label of BATCH control fileto MONITOR	 messages fromfile to extract messages fromwith SENDERmessage to the UETP	 commands from filefile to take commands fromlogging output onfile to log out	 put inname of testof messageEND  LOG  MAJORMINORSTART	 T%xUnexpected 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  70Kg9;gtI9	*>,s4=Failure in receiving INFO message:   ?0Kg9CgtI9,>	(G4ECan't get UETP's PID  (probably not running in this directory) G0*O JNgtI9	"PJPJPKz3gt[~x+sU)@+t],dP,d6		 8v:CR8H.@bU0YqbUQ#GpD89w+HX|J!#ll	K!?<ZJLmf`	"JLzU JL=AKQ(TCKRBKRY"EL>GWRMo/M^$GVROI@	D"RO:u?R_Q	Pgs	}*2w	KHY4R^C3
_sGbR`=3
	"	LRd=_6M\C6kL
'	Wcw=c]L1c]4(chz4/`
/G7y	SB1VSe&S
14S
1gS
2~K "jK5kbSO.&
+	@
NtY#
NvsK+l>@K+lu_K+mP
XVS,`>/"?CeK1+G\ 	"
k[L
l
E$X,cgtmK7cg|	SWaI@SWbSWbB	SWbxPeSv|>AK`+	g`S`'uKi
Xp4@	D"P
Xw5@dXIdycd{bBR(P~sYT+#RdIal$T:QIT:"h	@"T:"z;
:XP>.@C>9t	C?2YQut
#Pm&XLYf7D@0J	"HB(TUHu^#zwu^5,yu^;LzPUgd@P	P	P
	DP
u}Ctu~hrUus3Uus~uC
K
eu?Z
uA	UTI@UTTfUTmxxUTuN$c	CPWx`%B[S5
=wq	U
)u/U
)uWU
)uk)Td4z-xw*[31;+d	DP*&5tQ+d8QdI cM[+>M[+FM[+PEPE	UJuRdUJuRzUJuS/UJuSmUJuSvMD:Ky?V9EIUP9@@	"UPK	8(Rp!	Rp@,,9sUT9<HeetX,	`u6)PYPYPZPZ>'3c;>>#9.>#96	D"c;@zc;zvc;+,yc;1Axc;rue-!T;F3S;F3h0G	D W3Qn5@nJqRnK';UUqRUUqRUfUqRUl`UqRV?UqRX;p	DqQ9NqQ;tCqQSxUqR$.@~:aC
(
=}}PbKV;/	"VKVP@^t=J=VT@o_	L_	N=ZoP_wS	D"_]XU_c&W=wY=w]=w_=wa_cze_g	g=xii	@"=xil7
tV7
z.@z{PP2Z#,W+PW.	{~PKM;,~	PP@5`
@PP@W1$D4@`~T2W1$DW1$K5@`~T2W1$KPPG5`
GPPGW1UK ~	WPBiWPC%[gtI9W(Y1W+e=W+|+W+|.W.IdW0"W4S	PtP7PdWLoWuP5fWuP5|WuP6WuP6$WuPKE	@WuPKWuVXlWuVhPGjPGpPk/PP2n/P2n	W/rtW/rtP2pW/sW/s_P2uW/tWW/u[PHg
	PHg
PHgPHgPHhjPHho~W5WD9_WDpONk	ON-ON36ON?)ON@IONK]ON_}OOwiMKPcu8	O/L`O{OXO/gOKiOQVnE%NO(hO(h	O(hO(h,Oi),O9RHPI=`~T2OOrc `
@A`
G>	D"GIg>#s`aAFd#~3EW
WWW	WWWWWWrW\3WR[WR^zoHH@P~ohH@