Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50343/tpdemo.sav
There are no other files named tpdemo.sav in the archive.
h'.X!u+x-.Px.8p@(
=(!@B+:sssx]UDATE:   -  -     TIME:   :    LINE #    - DEMO MULTI-USER   YOUR TOTAL IS  xyp2H8xHxH

xH(xHfxHox	Hrx
H|xH	x

H	xH	xH	#xH	&xH	FxH	YxH	cxH	fp

yH	lp

yH	{xH
p

yH
xH
p

yH
'x H
4! "&	b+" <-->-8):-<t+.ggge}g#O8)7u`@6@>O@ \8@,r@iB$[7,r,r+4,r+	,r
+,r

&. T <2,
=@@]&3 TP 5 TPP6 ]1f5f<+C+*+D+D+D+D+D+D+D+D+D+D+D@=@A,8,rI:]*KjKL  I @+4,rUV:]Z$ W "D=bM  P @+4,r X2BV+SY+`  dZ. Z`[0@+Zc:]*dje  ] @+4m:]  P @+4,ru:]  D @+4,r~:]*j  e @+4,r:]Z$& "%D=bh:]&
 T&

 T  n @+4,r 2BV+q+| 2BV+s+ 2BV+u+ 2BV+w+S 2BV+y+U 2BV+{+:]+e,r,: *(R`@`@`@`@`@  d! Da "*(e:]`" #d#+
+`$d$2$+  d%. %`&"d&. '`'1`++:]&/ T,r`1 2+e,r Z$ 2 "%D=b:CKT\e  .@]+e,r":]&m T&p T		  % @+4,r$`r @8 84`* 80 2+*+,:]&z T

+,r&:]&	 T&	 T



2,@+4,r(`	@9 94`8#90 2+8@@:+::]&	:T]&	 TZ$&	 "D=bE ]0@+J*	j	  < @+4 :2@8+L+e 95@R:]&	! T&	$ T  : @+4+<,r.:]+e,r0:]&	- T  Y @+4,r2 	/*(`	0 	1	2	3	5@+

	6$	7XFH A;f	7+b+c+ ;1`+f@A@`	8" 	8	9$	:XFH A;f	:+j+j+ ;1`+n@A@`	;" 	;	<$	=XFH A;f	=+q+r+ ;1`+u@A@`	>" 	>@A@`	?d	?.d	@. @U U@	@ 	BH	AZ$ 	C "%D=b|	D  d	E Dh 	E*(l  .@]+e,r4:]&	M T+U,r6	W:]  D @+4,r8	X++e+P,r:@@@@,r<  .@&	Z T+Z$&	\ "D=b+ 	^&	^ "D=b`	`3`++@@,r>  .@`	a2 ++(,r@ 0@$+!+(  .@&	ad+$+&	d T+&+9&	f T+)+=@@,rB&	h T+-+  .@&	j`2 +2&	m T+4&	p TP&	r TPP,rD 0@$+7+(  .@+),rF&	u`0@+<+=+c,rH@@,rJ&	w T+B+S&	yd7+D+G`	{2@+G+S+G+N 0@+K&	| T+N  .@&	 TP&
 TPP,rL 0@$+Q+S  .@+>,rN 0@+V+&
` @,rP 0@+Z+ 0@+^&
 T+&
 TP&

 TPP 
.@ 
.@+W,rR@@@@,rT&
 T+h+&
d7+k+n`
2@+m++n+x&
 T+q  .@+} 0@+u&
 T+x  .@&
 TP&
 TPP,rV 0@$+{+  .@+e,rX@A@&
`&
d/ @,rZ&
! T++&
#d7++
`
%2@+
++
+  .@&
%`2 +&
( T +&
+ TP&
- TPP,r\ 0@$++  .@+,r^ 0@++@A@&
0`&
2d/ @,r` 0@+ + 0@+#&
4 T! +&
7 TP&
9 TPP 
<.@ 
=.@+,rb4,rd,8G>{#p+,MX.H8]tH^Bh]0]H8@]tHp8H^HXV?? TRANSACTION PROCESSOR HAS MORE TTY'S THAN COBOL PROGRAM - -HCp7?? CALL APPLICATIONS PROGRAMMERHAx>!STOPECHOF                                                                 HBHX^Y:J:\NHLeWELCOME TO MULTI-USER COBOL -DEMO- USING T/P - - PASSWORD:                 HMHX^NHVeH8O?' rHX<8H8H8H8!STOPECHON                                                                 H[HX^Y:d:\ERROR - -  PASSWORD:                                                       HeHX^!STOPBADPW                                                                 HnHX^!STOPECHON                                                                 HvHX^Y::\H^`]\*                                                                          H^%]\Ne]\I$PQfaJMmeX:C gR~INVALID COMMAND  -  TRY     HELP                                           HHX^Q0Q:VQVHQ,WHRX0R:XHVH`^     <`,a0RHQ08080R0R0R080R0R0R(P.S. - YOU ASKED FOR DATE LESS THAN 5 MIN. AGO!!)                         H^%]\HQ08H^DATE = TODAYS DATE & TIME                                                  H3HXeHELP = THIS TEXT                                                           H;HXmPRINT= PRINT NN LINES; XX LINES @ A BURST                                  HDHXtREPEAT= TYPE BACK TO THE USER EXACTLY WHAT HE TYPED                        HLHX|ADD  = ADD 3 NUMBERS AND PRINT THE RESULT                                  HUHXSTOP = GET OUT OF THIS PROGRAM & UNSLAVE SELF                              H]HXHOW MANY TEST LINES DO YOU WANT TO PRINT (01-99) ?                         H^%]\Ne]\HV?? NOT WITHIN RANGE                                                        H^%]\HOW MANY LINES PER BURST (01-99) ?                                         H^%]\Ne]\HV?? NOT WITHIN RANGE                                                        H^%]\HP`HP:YH^%]\,``]\Y:	:\(TYPE <CR> FOR MORE)                                                       H^%]\Ne]\ENTER 3 NUMBERS (SEPARATED BY COMMAS) TO ADD TOGETHER                      H^%]\*`z&I	0H_"Bp@H	1<(_"Bp@H	3(b"Bp@H	4

(eH_HXRHRIPRIPRIPR

b

XS

SfXTTPTPTPTIPRH^H\HPeth-iNUMBERS ENTERED NOT NUMERIC                                                H^%]\!STOP                                                                      H	OHX^rH	X<8B$LH@L AH@LHHHz

$\$_Ld_LHz@

$<_LBH_LHz@

$H_

L

_LHz@

$Hz

$H_HH_LHz@

$Hw

<_LDH_LHw@

H_

LHz@

$Hz

$H_Hz

$HH_LHz@

$Hw

<_L

_LHz@

$Hz

$H_<_LFH_LHz@

$H_

L<_L

_LDH_LHw@

H_

L ^
Ofp
A e	|+
C+
L
&e ,
&jZ"2\+
H
&j+
KZ"2\+
J
&p+
K
&v
&+
L
&
&	Z"	b
&

&+
A 

XB
@ZZD
V3B
V3B+
i
&+Z
[[
[3BD+
]/<+
ZX\
^Z
^ZBX\
`[
`3BE+
b+
_X\
bZ
bZBXB
eZ
eZDZD
&+
yZpZBZ+B
t/"+
qZ[D3DE+
w+
uZ D
& +
yXY .Z$ K@
ZU.(.$SD( F(@@(@@(@@(XHU 

U L( L(	.(>.*>/.5n
}[#	b+ /$ D
&	#	b+
&>
'J
&&-

-

l
&, G,
&/Z<-

00 Z
$+-

@+Z	
XJXH .@
[(3D+%.*>/.5n 
&J
&1
&5
&J+ZBH+*XD(@@(R(l"PB( 

., 3BF+23BF+11B8+5+6@@c+2O@cZ( Bb 9	b'+ +N
&9+

MZ( B\Z" BM
&?Z(/2,
&@-

 ,
'I 3rA
'H,
&A-

r 

., 3BG
&C
&IZ(,
&K>-

vZ"XB(XB( B( B(@@( ( D(	7@++N-

v:(05\g@
.+Q0/3|+U  B MXBP0/


$+X-

@7@M+[@@M@@O+g:OZ"43bO+fZ"RN+_+g+_ "bXB_
&N "2  "	b

>@+g
&S "t +gZ"0+gZ(4BN7`(+m Bd V	d'+l+NO@N-

v+NR(ed+qPD([( E

@@(/"
,ab +N+t ( B
W*"x
&W@YBXZ$$1B.&+

BX:>@ C

Z

XH

 Y $ &%D=F

+

,[*> 


'J
&JZ(/2,
&\-

 ,
'I 3rA
'H,
'J+

X

0 &8&8+

zp

0.\Z&	 ]	d'+

+

$/(0(+

O+

3BL+

 BL
&^ /2,
&`+

 .@
Z

(3H+

.*>/.5n

%@/2O@L,


 .@
Z

(4L

5.*>/.5n

.
'J
&e
'J
'J
&j /2,
&m+

-H([( G

mH[as	d'+

zH

@
23BB+

G3BC+

W3BB+

j3BA+

g
&u
&x+

@
&}
&
 
22BC+

K
&+

F3BD+

M
&+

G
& 

U BJ@
 . (5B

V.*>/.5n

O
& 

U B
=Z" C

	b+

P+E C
& G,
&-

-

l
&@
 .@@NZ(5B

a.*>/.5n

\7@N
&@
 .+

F/"
&` ,
&-

r
&Z(,
'JO@N+

]
& ,
'J+

F
&
&
&&
&++

F0

l 3rA
'H,
'I 3rA
'H,

lH

r ( /&8&8-

l+

ry(

v6@N+

yZL

y7@M+


| 2XB

{2*"
A3*"	++
&4 (/2,
&8-

-

l
&	+X@ZOBYZ(YFX=HX Z$% XX2F X=D
&9
"
&=+XZ$%+'+
&E+DDx+
&G@@ML	b'+$%BX=D

vxVH.BW&2,>6@,
",~VBVHBW&2,>6@,
",~8	b@@L+
&M ,
&N ,
&O ,
&P ,
&R+
'J
&R
'J+
&U+
&`+

v
&d+

v
&h+
&l+NXip%pZ@$%'),XX!STOPECHONECHOFBADPWXHpqTTY #xKiSHO
END    MIKE & NICK
.                            HxVHWxXHYpYHOp[x]	p^pxaxcyd
* * LOCK ATTEMPT FAILED * * ERROR CODE ()

    ( 0 = LOCK UUO NOT SUPPORTED BY THIS MONITOR )

    ( 1 = LOCK PRIVILEGE NOT IN ACCT.SYS FOR THIS [P,PN])

    ( 2 OR 3 = NOT ENOUGH CORE TO LOCK THIS JOB)
    ( 4,5,6 = LOCK MODE ERROR FOR THIS PROCESSOR)

    (JOB IS PROCEEDING  UNLOCKED!!!)



* * JOB RUNNING  LOCKED  IN CORE * *

!!FAILED!! HPQ 1

Y&{
Y&{Y&{
?(ERROR FROM T/P)  YOUR COBOL PROGRAM IS CALLING FOR UNFAMILIAR 'LIBOL'
	SUGGEST YOU EXAMINE LOC.400005 IN HI-SEG FOR LIBOL NAME (SIXBIT)}X
 (LIBOL5 IS THE HI-SEG)

 (LIBOL6 IS THE HI-SEG)
 "BEGIN TRANSACTION PROCESSOR V009A 
FOR   MIKE & NICK  @ 
PAGE CODE - (.SET TTY PAGE )

/g2,\i&l\@? F A T A L -- CONFUSION ON LOGICAL TTYS    TRANSACTION PROCESSORyh8e@ b

ALL SLAVES ARE BEING KILLED PER REQUEST OF PROGRAM

Y
TTY # ENDED @ 
CONNECT TIME WAS 
**** USER TERMINATED DUE TO PASSWORD ERRORS ****

USER HAD  TRANSACTION SETS

UQ&\@%HIBERNATE FAILED- - (WILL SUBSTITUTE SLEEP)
% 100 HIBERNATE FAILURES
cYh
??INPUT ERROR FROM TTY (THIS IS TP)
^0 STARTED @ 
"OPR- PLEASE TELL TTY TO LOG OUT OR CLEAR  (.SET TTY PAGE 63)
iSH NOTE: TTY TABLE FULL - TELL SYSTEMS PERSON{Pj"OPR: PLEASE  .SEND TTY::ON-LINE ENTRY FULL (PLEASE .SET TTY PAGE 63) AND TRY LATER
Z_` ?WHAT?     TRY   H   FOR HELP


T/P FOR   ON-LINE ORDER ENTRY   RUNNING

ILL SLAVES & JOB

CONFIRM (Y-N) :O
??

ES  BEGIN UNSLAVING TTYS



ALL TTY'S UNSLAVED : RETURNING TO COBOL PROGRAM
LAVELIST (T/P PAGE x

TTY #  CONN.  T.S.

* * NO SLAVES * *
	   SLAVES CONNECTED =  E L P

ALL TTY COMMANDS TO T/P ARE SINGLE CHARACTERS WITH NO <CR>
|`

# -  # SLAVE TTYS RUNNING UNDER THIS T/P
H -  HELP (THIS TEXT)
K -  KILL ALL SLAVES & JOB (REQUIRES CONFIRM:)
S -  SLAVE LIST (TTY#, CONNECT TIME,TRANSACTION SETS)

END HELP

  BYTE COUNTER HAS GONE NEGATIVE FOR  TTY  @  z`9
% TP HAS UNRECOGNIZABLE CHARACTER  ()   IN POS.75 
FOR RETURN MESSAGE LINE CONTROL WILL GIVE USR <CR><LF>
TP MESS.TRUNCATED
]
NOTE: CALLI FAILED IN PAGE RESET OF UNSLAVE
\#SLV=  ; #TS=  ; #CHR-IN=  ; #CHR-OUT=  
? ERR1- GETTAB FAILED
? ERR2- CALLI FAILED IN GETTTY:
   OPERATOR: CHECK SYS:ACCT.SYS PRIV. WORD IF 5.06 OR LATER MONITOR

 ?ERR3- OPEN FAILED IN OUTTTY
c
 ERR4- OUTPUT FAILED IN OUTTTY

? ERR5- GETTAB FAILED IN SYSTEM-ID
Hl
 ERR6- OPEN FAILED IN  INPUT:
pp0:XqZx<u.\x,~+pxt$$p+!