PDP-10 Archive: uetp/lib/ordent.rel from red405a2

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/ordent.rel

There is 1 other file named ordent.rel in the archive. Click here to see a list.

 sTMA0sTMAp.9d%MF	!p

K$8|@	   R U U V V W	 W
w	 `	 htuw	 qttz	 yw



	 xvt	 
zvxvxvxv uwuswusw8 "
 -< ""	b+ <<->-8':W-<' <?,++ "ggge}Kb(	!"Q%r\_J$[I7wX6@W,O@W \X <', <E, <K, <R	*U*T*-,, <Y,- <d,. <j,/ <o,0 <r,1 <s, w*(6 <z,	(D*U*6 <z,Z<{, |0@+:+Q+5 <,5 <,; <,6Z<,7	(T*
> 0@+@+] 0@+B+, 0@+D+- 0@+F+# <
	**G,<Z<
,Z<,G+:,< <,p <	**E
O,J <], <^,+6 <^,Q+{#(0@+W <,+:@@BZ<	"U*U*X,Z<,L <`,S+y <`,Z+8+: <a,[+4 <^,]+{#(	"U*U*`0@+c <a,_+}+h <,O <,d <,e <`,b+8+5 < 	"*U*i, <%, <+,f <,,=Z<,,> -2BO+o+ .2BO+q+"	*U*U
q .2BO+s+K /2BO+u+
1/2BO+w+K0O0@+y+} <2	*U*U*z,kZ<3,H <4,z+h <^,g+{ <b,}+ <`,+8+; <6	*U(T*,| <7,lZ<7,m <c,PZ<8,++h <;, <c,+Z<<	(T*T*,K1@#+Z<<,0@++ <],	+J#(0@+ <>,Z<>	*U*U*,{ <?, <A,+ <C, <D,Z<D, <G, <G, <H	"U U*, I,Y <d,+ <K,  .W @W+ <O, <O,Z<P	*U*T*$, <d,Z<Q,+(+h <e,+	Z<Q,
U*-+.+5E<],(+J#(0@+5v<T,"Z<T,	<U,1 <X,3+"	*U*U*5 <Z,4 <Z,#Z<[,$ <^,6 <^,7Z<,8 <b,9 <c,:Z<c	*U*Q*>,; <f,< <f,=Z<g,> <e,.+#(1@+J <k,?Z<l,,	*X*U*FZ<l, <n,M
O <	,j <f,% <f,B+Z<	,F1@#+VZ<	,S0@+W+^ <]	*E*U*W,Q+J#(0@+^ <	,LZ<	,2 <	,Z <	
,\+K <

,]*<	*`,MZ<	`Z<	,a <	,b <	,cZ<	,d <	,e	*U(U*h <	,fZ<	,g <g,W+#(1@+r <	,hZ<	,[ <	,n <		*Q
U*q,p+K#P @+  #U.#@U <	,q <	 ,iZ<	 ,jZ<	!,&+z	*T*U*y+ <e,k+	#(1@+ <	%,uZ<	&,o <	',} <],z+J+u	*U"U* <f,+ <g,+#(0@++ <	+, <],+J+ <f	*U*E*
,+KZ<	+,x+
+#(0@++  <	/,+
 <	2	*U*U*, <	2,v <	3, 	4,G <h,P <	7, <	8,Z<	8,w <h,	*
U*"	9 	:3B+  <	=,  .V @V+hZ<	>,XZ<	>, <i,+	(U*X*$#(0@+- <	@,Z<	@,!Z<	A," <	C,H <	D,& <	F,+	*U+*,+
 <	I,,Z<	I,'Z<	J,( <	L,)( <	M,- <	O,2 <	O,	*U*U"5Z<	P,Z<	R,.Z<	R,/Z<	S,6Z<	T,7 <i,#+#(0@+D  	*(E*= 	U,8.Z<	U,9  .B @B  #U.#@U+y <	W,3Z<	X,>	*X*U(FZ<	X,? <	Z,0 <	[,D <	],I+ <f,:+K <	`,+O	*T*U(N+h <f,L+#(1@+S <	e,J+K <h,O+Z<	e,E0@+W	*T*U*W+h <i,T+#(0@+` <j,X+ Z<	f,UZ<	f,FZ<	g,\Z<	g	*U*E*_,]+y <	k,R+S <h,[+"	k 	l3B+f+h <i,b+#(	"U*U*h0@+o <j,f+ Z<	l,^Z<	m,_Z<	m,kZ<	n,l+y <	p,a+b	"EU"p   	q,m.Z<	r,n  #V.#@VZ<	r,q 	s,v.Z<	t,s	*U*U*y <	v,o <	w,4Z<	w,5Z<	x,

+ <i,i+ <j,~+"Z<	y,w	*Q(Q*Z<	z,x <	},  .V @V+h   	~,.Z<	,Z<	,Z<
	*"U*
,Z<
, <c,+#(0@++ <
,yZ<
,~ <
,+y	*U*U( <k,

+ <
, <
,z <
	, 
	,
Z<

,	 
,$&
	*U
U*

,Z<
, 
,.Z<
, <k,+ <l, +1+p <
	*U*U"#, <
,# <
,$ <
,% <
,& <
,' <
 ,( <
!, <
",V	"E*U*,,+; <
#, <
),) <
),Z<
*,{ 
+2BO+3+> 
+2BO+5	*U*E*4+ 
,2BO+7+4 
,2BO+9+Y O0@+;+k <
/,.Z<
0,	*U*U"= <
1,;+. <c,!+Z<
1,|+B+. <c,?+#(0@+H <k	*U*U*E,B+ <o,E+m+M <
3,=Z<
3,< <
4,I <
7,K+. <
;,L	*U
Q*N <
<,/Z<
<,0"
= 
>2B+R+V"
> 
?2B+U+. <
A,M+M	*T*U*V <o,G++Z<
B,U0@+[ <
E,U+. <
I,Z+b <o,W++Z<
I	(U*U
_,X0@+b <
J,\+. <p,]+/ <p,b+-#(1@+i <
N,a	*U*Q*g <],d+J+] <j,h+  <q,j+'#(1@+q <
R,g <],k	*U**p+J+] <q,o+ <r,q+#(1@+w 
U*(F+x<r,s+
8 JS*
Vj
VZ<
W,Z<
W, <
Y,G+ <
Z,n <
\,Z<
\	*V
U*,{Z<
],| <
^,}+X <
_, <
a,Z<
a,Z<
b, <
c,	0U*U*	,( <
d, <
e,Z<
f,J <
g,

+] <d,w+"Z<
g,@+	*T*U*+. <e,+	#(0@+ <r,+
i,Z<
i	*U*U",
j, <
m,+. <
q, <
q,NZ<
r,O"
s 
s2B+#+'	**U
#"
t 
t2B+%+. <
w,+ <s,+Z<
w,_0@+, <
{,&	*U"U*++.+0 <s,'+Z<
{,)0@+0+. <q,-+ <t,1++,	*U*Q*4 <f,2+KZ<
|,+7+k <f,4+#(0@+> <q,8+ <t	*U*U*<,;++B <
~,+Z<
~, <
,> <,@+. <,A <,Z<	*E(U*E, " 	2B+H+L"	 
2B+J+. <

,C+B <t,<+%	**U
MZ<+Q <,K+.+U <t,L+%Z<,N0@+U+. <j	*U*Q*V,R+  <u,V+"+Q <h,W+Z<,0@+]+. <i,Y+	(U*U*^#(0@+c <j,]+  <u,`+"+Y <,PZ<,[Z<, <	,*U*g,	2H <,d <,i+Y <`,b+8+; <,jZ<,? <	*U*U,o,m <,oZ<,n < ,p <",rZ<#,eZ<#,f <&,g4@	*U*a*x <',s <),xZ<),tZ<*,u <,,v5( <-,y <.,~ <o	*U*U*, </,Z<0,q <1, <2,Z<3, <4, <6,Z<6,	*U*U*	 <7, <8,	Z<9, <:,
 <;,

Z<<, <=,	*U*U*,Z<?, <@, <A, <C,Z<C, <D, <F,Z<F,	*U*U* <G, <I,Z<I, <J, <L,Z<L, <M, <t, <P	*U0U*", Z<P,zZ<Q,{ <S,|: <T," <V,'Z<W, <X,(	*U,*+ <Z,*Z<[,#Z<[,$ <],%;@ <^,+ <`,0Z<a,,Z<a	*a**3,- <d,.<  <e,1Z<f,20@+9+\ <i,6 <j,DZ<j	*E(U*<,E"k l2B+?+C"l m2B+A+\ <o,:+7 <s,B <u	*Q(U*D,k+)Z<s,S0@+H+\#(1`+K <],D+J+\ <p,J+/	*U*U0M <t,CZ<u,) <v,M <w,OZ<w,7Z<x,3 <y,4? <z	*U+*U,P <|,UZ<|,QZ<},R <

,S?X <

,V+D <u,! <

	"UE*^,#PZ<

,XZ<

,W@@ <

, D& P

,_ Z<

,d <

	*U*U*f,[Z<

,N <

	,f <

,h <

,i <

,^#PZ<

,eZ<

,`Z<

	*a*U*o,m <

,YAp <

,j <

,r <

,sZ<

,FZ<

,o <

,p	0T*
wB@ <

,t <

, <`,] <

, <^,{ <

, <a,} <

	"U(U*, <b, <

,z <d, <

, <c, <

 ,~ <k, <

!,	*U*U* <k, <

#, <e,	 <

$, <e, <

%, <r,

&,
 <f	*U
U*, <

(,| <s, <

*, <r, <

+,

,,k <g, <

.,	*E*U* <q, <

/, <g, <

1, <i, <

2, <i, <

3, <j	*U*U*",  <

4, <j," <

5, <

8,% <t,$ <

:, <q,' <

;,&	*U*U** <u,) <

>,* <o,+ <

@,( <p,- <

A,! <p,/ <

B, <l*U*U(3,1 <

C,- <

F,4 <a,3 <

H,5 <^,6 <

K,+ <`,8,	 ;G>{$p;;x >ORDENTH?
SUBS1HA
	(*CHPX@XBYCH)H,-H3XYG	*QA*L+HIH6@H7H7@$7@$XZMNOP	(D U(TH8@$9

9@<:@$XZTUVWH;0;	"D
]0?@$@@<@@<A@HA@

A@8[[\	*U U"e]^_`abHC@`[BhCHDHF

	("nHH`\lmnx\p]JAREA1                    	&
Tv     ~@3ENTER 'BEGIN' TO START: H@wH@@HH@Q<QFUNCTIONS ARE:  ENTER, CH	 U*ANGE, INQUIRY, QUITHB`|ENTER FUNCTION: HH@@HH@Q<Q<Q<Q<Q	 *(INVALID FUNCTION CODE: H8HQH@H@@ERROR-STATUS: Hp

H(I(`! 	"Q"@HHI@8p__ AI0H0CORDER SUMMARY RECORD NOT FOUNDHAp	  ORDER ENTRY SYSTEM NOT INITIALIZED - H(KEY-IN BEGINH@`HPp	( @!b CHANGING ENTER MODESH!

x$RECORD TYPES ARE: PROD, SLSENG, CUS	 ()TOM, PURORD & ITEMHC(&H@0HH0OaJ|@g3[SGWKvaW|RSR-PINVALID RECORD-TYPE:	"TU"2 H(0HOH0H@0KEY-IN PROD-NO: H4H@@HH@;H@;PRODH9
	"T
P:p9WH(H(PROD-NO: HH=H;H@H@ ALREADY EXISTSH@x@PROD DESC:	"TC HXBHCH0;PRODUCT PRICE: HxE@@0@?kaHPRODHI
p	*
U KJWKEY-IN SALESENG NAME :H0LHApHHpDHpDH(H(SLSENG NAME: 	*P*THhRHDH(H( ALREADY ON FILEHAVSALES OFFICE: HpXHA@HH@FPHONE	  *\ - AREA CODE: H\H@HHHPHONE NUMBER AS XXX-XXXX HH`H@@H$@HEXTEN	 U*eSION: HXdH@ H

 ISLSENG NOT ENTERED - ERROR-STATUS: HhH(I(`!	 Tm HHI@8CUSTOMERHp
pqVKEY-IN CUSTOMER NAME: 	*PvH0sHApHHp)THIS IS SUPPOSED TO BE AMULTI-BLOCK TEXT EXAMPLE, I CERTAINLY HOP	 ~E THAT IT ACTUALLY IS LONG ENOUGHHx
1x	H(H(CUSTOMER-NAME: Hx		*@ (	H)HpHpALREADY EXISTSH@p	STREET ADDRESS: H	
HB HH ,CITY: 	*P*E(	H0	HBHH/STATE: H8	H@pHp1ZIP: H(	H@0HH03CUSTOMER: 	*P	HP	H)HpHp NOT ENTEREDH@`	SLSENG NAME (OR SPACE, IF NONE): H	HAp	*@ 	 HHpDHpDNO SLSENG OF THIS NAME ON FILE - H	"HDHpHApCUSTOM NOT ENTE	  	)RED IN SLSCUS-SETHB	'Hp)NO CUSTOMER OF THIS NAME ON FILEHB	,ENTER ORDER-NUM	"*	1BER: H 	0@0H06B 	3ANY ORDER TO BE ENTERED?  HP	4H@HHR<R	(*A(	:<%CUSTOMERH	:
p	;VH0CH06ORDNUM: H@	?H06I0``	"P*	B HHI@ALREADY EXISTSH@p	DNEW ORDER NUMBER IS: H(	FH0CI0`	 TT
	K` HHI@@ORDER-DATE: H`	MH@0HH07 A AIH	Q$H7 A	*TP
	SI	SH7H0C	TH0CORDER NUMBER: Hp	VH06I0`` HHI@	 P	\  NOT ENTEREDH@h	\H	^Hp)NO CUSTOMER OF THIS NAME ON FI	"U *	dLEHB	aH06H06H0SH7HTORDER NUMBER NOT IN DATA BASEHAh	h<R<%H06	*@
U(	mH0SH7HTINVALID ORDER NUMBERHA 	nH7	qH7<H:$H7	s$H7PRODUCT NU	 U"A	uMBER: H	tH@@H$@9$@9 AI	yHTCUSTOMERH	z
p	{V	*U (	~HT	~HTHHSHH8$9H@;INVALID PROD-NO: H
$9H@H@@QUANTITY O	 D*E*
RDERED: H
@

92
0@?

9

n5J<H:

9H(A
H(A	" 
 H@
 H@
THE FOLLOWING STATISTICS ROUTINE IS A DBMS-10HBh
UTILITY CALLED 	 "
'STATS' AND MAY BE CALLED AT ANYHBx
POINT IN A USER PROGRAMHA8
 H@
 	(*@
 H@
xl`mmnnPROD, SLSENG, CUSTOM OR PURORD INQU	"T

(IRY? H@
%H@0HH0OaJ|@g3[SGWKvaW|RINVALID INQUIRY TYPE - H8
-HOH0	*(
1H@0H@;PROD-NO: HH
2H;H@H@ NOT IN DATA BASEHA
5DISPLAY ORDER INFO F	 *T
9OR THIS PROD-NO? H(
7H@HHR<R<%<R<%YES OR NO PLEASEHA
?	(

BH(NO PURORDS FOR THIS PROD-NOHAX
BPURORD  LINE  QTY  CUSTOMERHAX
FH( 	(
JH@
JPURORD NOT FOUND FOR THIS ITEMHAp
KCUSTOM FOR THIS PURORD ITEM NOT FOUNDHB(
N	 *@*
S]>tP*0D$H9$HTH06I0`` HHI@     	"P* 
[ H0
[HTI` HHI       H0
`

9I`H	*( 
dHI    H 
eH)HpHApHpDSLSENG: H@
hHDHpHp NOT IN DATA BA	"U*
lSEHA
kDISPLAY CUSTOMERS FOR THIS SLSENG? H
mH@HHR<R<%<R<%	 (
uYES OR NO PLEASEHA
uH(NO CUSTOMERS FOR THIS SLSENGHA`
xH(Hp)CUST-NAME:	"T@
}   Hh
|H)HpHp NOT IN DATA BASEHADISPLAY ORDER(S) FOR THIS CUSTOMER?	"U*( H H@HHR<R<%<R<%YES OR NO PLEASE!HA
H(NO0ORDERSR	H@TFORTHISCUSTOMERHAXH	(UI@ IS NOT IN DATABASEHAPROD-NO:      HpH;H@H@@  DESCR.      Hp	*@**0;HHC  PRICE       Hp!0@?I@``$ HHI@X  ON 	 TQ(ORDER    Hp'H(AI(`! HHI@8 H@-NAME:     HP.HD	*((0HpHAp  OFFICE: HP1HFH@HA@   PHONE:  (H`4HHHH)   H 8	*A*(9$HH@H@   EXT: H@:

IH H@ NAME:   H@=H)HpHAp ADDRESS: 	( UAH@P@  STREET: HPBH,H HB   CITY:   HPEH/HHB  STATE:  HPH1	*((JHpH@p  ZIP:    HPKH3H0H@0  ORDER NUMBER: HNH06I0``	"PTR HHI@@    ORDER DATE:   HTH7H0H@0    ORDER LINES:  HX	*  [H7I` HHI@     ORDER NET:    H^$H7IH`	 	 "	 U*c HHI@hH7DISPLAY ITEMS IN THIS ORDER? HhfH@HHR<R	*@
l<%<R<%YES OR NO PLEASEHAm     PROD-NO.   QTY.     NETHA`pH(     	*Q(tH(t$9H@H@   Hv

9I`HHI        H@{<H:	(*(}IH`	 	 " HHI@hhvvPH0TH0T@H(R	*(*

<SPAGREC H8

HRH`H`REC-NAME HH

	HAphwwPH0T	**T

H0TI0`` HHI@HpHpH(I(`! HH	(E(E"

I@8xx`xyyzxzh{{|x|p	*"D"

}}x~p~pxxp	"T"

'`xxhPxp	(QE(

0px	x	x
`

	*D*E(

8x``x	"*"

Axx```*

Ix	D"`ubarWIbbarW]bgsCyb]*;eT56	D"`7$>bT)|gbT0<`%n+MbTMK:`-$*`x7V(bT3[eVZq,	D"d:dv-Fabw/*wbDvH*bLk
c^hK^!bKS9eVZ{32`|Y_	D"`64D#`!|F0`7$2`
&,`
&.`
&`TUG7

sTMA'`rG+D"`2G2`	,"G3cyK5=icyjoOcz9LhKcqslh`eF*(