PDP-10 Archive: 1,2/1007st.exe from decuslib10-06

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 1,2/1007st.exe

Click 1,2/1007st.exe to see without markup as text/plain
There are no other files named 1007st.exe in the archive.

?p?x+9`8X9){9w2+8+8+8`888888804848v@d&(,0t@dH         <[1m[2J[?2lH   .a:t,(]Jv0MBl"a, EB	0E
v,&a
0QB4,(a+0MBf
"al,EB

0]
v,2aBl2AC+,e0IJ&("al$EB*2M
v

*e"k2YJT+,e;H.UK+"a,0E;,2eK  M
, eH"U
$E%	$]4
&M"u@TSK
lPaJl5k:V[k\GRu}RKV[k\GRu}RKTSK
lPaJl5k8
,h:C0\Y(HQ"

S;$\@
86X]Z

KPKvI9
(	Pi`	9e?"
ZJ,a>Mmd(Q Ge@]gz
(	Pi`	9e?"
Z_RDPev81i&}`
tgP
(	Pi`	9e?"
ZJ,i"(i"@CO{yHu}CW%ySj,@HJf&(7gJ7\8]Z

RK;$\@_m6E
9e|rHiPedpS8gQiJpt2eH}}p 000  0000000   0000000   C    iJ
`r.H.X0@0P0`2H2X D L P X \ d"@"H0H0d2X.H.X0@0P0`2H2XgVp[>piV(o i#(MJHg "M("M0 A"M*kK:  <t,+#,~4"A|z7\H 6@t,<O@t \u <,;,8@"A|z+3,8,8:u:;!X2(,> 0)+3,8Z(hf,8
7@u+/>u[x2P;,M>;+27@t+3>t[x2P;,M>;+2 <h,)8:v:;!X28,> 0t+3,8 C Hd 
i j ( .hj+R 
k j ( .hl+RZ<l,(+RZ<m,(+RZ<m,(+R 
n ( 8,X 1 +R 
n ( 8,X 0`+R 
n ( 8,X 1 +R 
n ( 8,X 1`+U o Hf o He+	c 
o ( 8,X  p@#
 phq,Y 
n ( 8,X 1f5f^+d+7+/+(+ +++
++{+s+l+d,8 
n ( 8,X . ' r@#
 rhq,Y+=,8 
n ( 8,X .  r@#
 rhq,Y+=,8 
n ( 8,X .  r@#
 rhq,Y+=,8 
n ( 8,X . y r@#
 rhq,Y+=,8 
n ( 8,X . j r@#
 rhq,Y+=,8 
n ( 8,X . Z r@#
 rhq,Y+=,8 
n ( 8,X . K r@#
 rhq,Y+=,8  
n ( 8,X . < r@#
 rhq,Y+=,8" 
n ( 8,X . - r@#
 rhq,Y+=,8$ 
n ( 8,X .  r@#
 rhq,Y+=,8& 
n ( 8,X .  r@#
 rhq,Y+=,8( 
n ( 8,X  r@#
 rhq,Y,8* 
n ( 8,X 1`+V 
o ( 8,X 1@&+P 
o ( 8,X 1@(+P 
o ( 8,X 1@*+P 
o ( 8,X 0@,+V   
r ( 8,X . r@#
 rhq,Y e He s Hf t[s2B+a   
r ( 8,X . r@#
 rhq,Y+ t[t2B+j   
r ( 8,X . r@#
 rhq,Y+ t[u2B+s   
r ( 8,X . r@#
 rhq,Y+ t[u2B+|   
r ( 8,X . r@#
 rhq,Y+ t[v2B+   
r ( 8,X . r@#
 rhq,Y+ t[v2B+   
r ( 8,X . r@#
 rhq,Y+ t[w2B+,8, 
p ( 8,X 0@%++8"  
p ( 8,X . p@#
 phq,Y 
p ( 8,X 1@&+* 
p ( 8,X 1@(+* 
p ( 8,X 1@*+* 
p ( 8,X 0@,+1  7 
r ( 8,X . r@#
 rhq,Y+7  6 
r ( 8,X . r@#
 rhq,Y+,8." Z 
r ( 8,X . r@#
 rhq,YZ$dw 
r ( 8,X 1`3+N"  
r ( 8,X . r@#
 rhq,Y   x@#
 xhq,Y+Y 
r ( 8,X 1`l+Y"  
r ( 8,X . r@#
 rhq,YZ$dw,80 
r ( 8,X 1`6+k" 6 
r ( 8,X . r@#
 rhq,Y   
y ( 8,X . y@#
 phq,Y+Y,82 
r ( 8,X 1`-+}" - 
r ( 8,X . r@#
 rhq,Y   
y ( 8,X . y@#
 phq,Y+k 
r ( 8,X 0 +	   
y ( 8,X . y@#
 phq,Y+	& 
r ( 8,X 0 +	   
y ( 8,X . y@#
 phq,Y"  
r ( 8,X . r@#
 rhq,Y+	&   
y ( 8,X . y@#
 phq,Y"  
r ( 8,X . r@#
 rhq,Y 
y ( 8,X 0@+	9 
y ( 8,X 1@&+	0 
y ( 8,X 0@)+	9 
x ( 8,X  
r ( 8,X . r@#
 rhq,Y,84   
z ( 8,X . z@#
 phq,Y 
r ( 8,X 1`+	K"  
r ( 8,X . r@#
 rhq,Y+	9 
y ( 8,X 0 +	\   
y ( 8,X . y@#
 phq,Y"  
y ( 8,X . y@#
 phq,Y+	b"  
y ( 8,X . y@#
 phq,Y e He,86,88 
y ( 8,X  z@#
 phq,Y 
y ( 8,X  {@#
 phq,Y 
z ( 8,X  {@#
 phq,Y C HW:v:;!X2	z,> 0{+3 
| ( 8,X  |@#
 }hq,Y,8: <},K <~,K <," <, @#
 h,Y 
 ( 8,X 5@

 <,K+
,8< <	,K <},K <,K 
 ( 8,X   )n hq,Y <,J <},K <},K <,K <," 
   .h,M 0@+
 +
* 0@+
% <,K  D f+
+
* 0@+
*  D f+
J+
*+

,8>:w:;!X2
/,> 0
P+3 52B+
1@@5+
D:w:;!X2
5,> 0
t+3:x:;!X2
8,> 0:+3:x:;!X2
<,> 0O+3+
@:y:;!X2
@,> 0]+3 
 ( 8,X 5@
C+
D+
<,8@ <,6m <},K <,K <$,K <},K,8B,8D ' H= ( H? ( H? <*,'8,8FZ$d+,8H@@5 <+,! <},K <},K <},K <,,K </,6+ <," 
 / 0 .h,M <1,62 53B+
a 52B+
b+
o   
1 ( 8,X . 1@#
 xhq,Y 
1 ( 8,X 1`+
n 2 H5 <2,J+
o+
R,8J7@w+
t>w[x2P;,M>;+2,8L 3, @@1+>
w <
,b`3" 4,b57 ( <,c <6, D
@@,8N <Z,"++ 7"73B++
 8"93B++
: 
96p0p},K6r	0pH,L0r},L/0(Pp: : .h,MZ$6t0t},K6v	0tX,L0v},L/4(Tt;D 3`
+ <;,K 2`
++
,8P  @	 
/	 @
 	  )n Ahq,Y 
 C D , .

TXLM .hM,M <D,! <E,K 
  )n Ahq,Y 
 C D , .

TXLM .hM,M <D,! <G,K J,!7@w+9>w[x2P;,M>;+2,8R <K,/  #@4 <L,0 <0,"+IZ(hM M .;H=nA   N )n }hq,Y <0,%`+I <N,J+
D O,!,8T7@x+O>x[x2P;,M>;+2,8V <P,6H <U,6x <[,6x <b,6x <h,6x <j,7	 <l,7	 <n,7	,8X7@x+]>x[x2P;,M>;+2,8ZZ$QD3 <+,!,8\ <},K <o,K <t," <u, @#
 }hq,Y 
 ( 8,X 1@C+r 
 ( 8,X 1@D+r 
 ( 8,X 5@r+w <},K <},K <u,K <},K+` 
 ( 8,X 5@z+~:z:;!X2~,> 0

+3,8^7@y+

>y[x2P;,M>;+2,8`@@# y*(,,8b <+,! <},K 
 ( 8,X 0@C+

 <z,K+

 <~,K <},K <,K <t," <u, @#
 }hq,Y 
 ( 8,X 5@

6+

* 
 ( 8,X 1@d+

  
 ( 8,X 0@d+

!+

* <,! <,! <,K <},K <

,K <," 
   .h,M+

T`#O@#+

/:z:;!X2

/,> 0

i+3 
 (@nh+

5 
  ( .h+

5+

6+

,,8d7@z+

;>z[x2P;,M>;+2,8f <,/  #@4 <,0 <0,"+

B <,J+
D 
N ( ,X  @#
 }hq,Y   
N ( ,X . N )n }hq,Y <,0 <0,%`+

R <,J+
D O,!,8h7@|+

X>|[x2P;,M>;+2,8j <,/ 
 ( 8,X #@4 <,0 *(I <0,%`+

c <N,J+
D O,!,8l7@|+

i>|[x2P;,M>;+2,8nR`#@@# dd,8p <},K < ,K <#,K <'," 
  ' .h,M 
 (@nh+

z 
  ( .h+

z+8 
((.h(,M <+,6} <0,6o <2,6v 25@

l+8r <},K <3,K <8," 
 8 9 .h,M 
; 8 ( .h+
8(@nh;+
8=(.h(,M<@,6}<C,6o <E,6v 25@
((@nh[+ <c,K <e," <f, f )n ghq,Y 
f(,X 5@
 ( 8,X  
l ( 8,X 2D+
f ( ,X 4 
 ( 8,X  
l ( 8,X 2D+
f(,X5` . 
f(,X 3d+
n nHH 
o ( 8,X  o@#
}h,Y:}:;!X2
 ( 8,X  
x( 8,X 2D+
 ( 8,X  
x( 8,X 2D+
 ( 8,X  
y( 8,X 2D+
 ( 8,X  
y( 8,X 2D+
 ( 8,X  
z ( 8,X 2D++ <z,K <,K+8 
 ( 8,X  @#
 h,Y 
 ( 8,X  @#
 h,Y[-h 
 ( ,X &  )n 	h,Y d	 D( 

 ( 8,X  
l ( 8,X 2D+[
QH#+ [QH#:|:;!X2#,> 0

;+3:|:;!X2',> 0

Y+3

 ( .h

,M 
(,X  
 ( 8,X  @#
 h,Y:}:;!X28,> 0S+3,8x7@z+=>z[x2P;,M>;+2,8z <,6} <,6o <,6v 25@K <,K 
o ( 8,X   )n h,Y <,J <,K+M <,6q <;,7,8|7@}+R>}[x2P;,M>;+2,8~ <G,6} <M,6o <Q,6v 25@Y <Z,6e+e <],6q <a,7@@1+>\ 
` ( b,X  
,b,X,.+`>)n2;,M>;+2,8 <j,K <j,K <j,K <k,K <o,K <j,K <j,K <j,K <j,K+
D,8,H @C,87@v+{>v[x2P;,M>;+2,8 
r r ( .hs,M:~:;!X2,> 0"+3 
s t ( .hs,M:~:;!X2	,> 0+3 
t ( 8,X  u@#
 uh,Y 
v ( 8,X  v@#
 uh,Y 
w ( 8,X  w@#
 uh,Y 
x ( 8,X  x@#
 uh,Y 
v ( 8,X  y@#
 uh,Y 
y ( 8,X  
y ( 8,X 2d+4 
y ( 8,X  
z ( 8,X 3$+4   z@#
 uh,Y+e 
y ( 8,X  
{ ( 8,X 2d+D 
y ( 8,X  
{ ( 8,X 3$+D   z@#
 uh,Y+e 
y ( 8,X  
| ( 8,X 2d+T 
y ( 8,X  
| ( 8,X 3$+T   z@#
 uh,Y+e 
y ( 8,X  
} ( 8,X 2d+d 
y ( 8,X  
} ( 8,X 3$+d   z@#
 uh,Y+eZ$d~ 
v ( 8,X  H36j30j,K/*$*j~  ( .hs,M,87@v+s>v[x2P;,M>;+2,8
 
u ( 8,X  @#
 uh,Y 
v ( 8,X  y@#
 uh,Y 
w ( 8,X &  @#
 h,Y 
x ( 8,X &  @#
 h,Y::;!X2,> 0s+3 
t s ( .hs,M::;!X2,> 0{+3 
r r ( .hs,M 
 ( 8,X  H36j30j,K/*$*j  ( .hs,M,8

,8 dQDYZ<,(+v 
 ( 8,X 1 +, 
 ( 8,X 1`+-+v 
 ( 8,X  @#
 uh,Y 
 ( 8,X  H36j30j,K/*$*j ( 8,X  
 ( 8,X . @#
 h,Y 
 ( 8,X 1`+u 
 ( 8,X  
 ( 8,X 3D+n 
 ( 8,X  
 ( 8,X 3D+n 
 ( 8,X  
 ( 8,X 3D+n 
 ( 8,X  
 ( 8,X 3D+n 
 ( 8,X  
	 ( 8,X 3D+n 
 ( 8,X  
	 ( 8,X 3D+n 
 ( 8,X  

 ( 8,X 2D+u   
 ( 8,X . @#
 h,Y+v+v+v,87@~+{>~[x2P;,M>;+2,8 d
d 
 ( 8,X  @#
 uh,Y 
 ( 8,X  @#
 h,Y 
 ( 8,X

 ( 8,X 2$+? 
 ( 8,X  
 ( 8,X 3D+8 
 ( 8,X  
 ( 8,X 3D+8 
 ( 8,X  
 ( 8,X 3D+8 
 ( 8,X  
 ( 8,X 3D+8 
 ( 8,X  
	 ( 8,X 3D+8 
 ( 8,X  
	 ( 8,X 3D+8 
 ( 8,X  

 ( 8,X 2D+?"  
 ( 8,X . @#
 h,Y+?   @ 4`B1`+D   @+N 
 ( 8,X 6j0j,K/*$*j ( 8,X 3$+M>+N:+@7`+`@@1+>P 
 ( 8,X 6j0j,K/*$*j ( 8,X /& 2 @#
 uh,Y#& 2 @#
 uh,Y+` 
 ( 8,X  
 ( 8,X 3D+
 
 ( 8,X  
 ( 8,X 3D+
 
 ( 8,X  
 ( 8,X 3D+
 
 ( 8,X  
 ( 8,X 3D+
 
 ( 8,X  
	 ( 8,X 3D+
 
 ( 8,X  
	 ( 8,X 3D+
 
 ( 8,X  

 ( 8,X 2D+ 
 ( 8,X 0@+ 
 ( 8,X 0@+   
 ( 8,X . @#
 uh,Y+++,87@+>[x2P;,M>;+2,8   @ 4`"1`+#+`+* 
t6p0p,K/0$0p

+(+.h+  0 +-+`+-> 
 8,X  @R 
 ( 8,X 6j0j,K/*$*j ( 8,X 2$+w6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+t6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+t6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+t6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+t6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+t6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+t6j0j,K/*$*j ( 8,X  
 ( 8,X 2D+v  7.@R+w  6.@R+w6j0j,K/*$*j ( 8,X ".@R R @U R& @R R%  <, DV U/V @U:U#U& 2 x@#
 uh,Y@@U,8   @U"U.@R R5 +6+:U"U.@R R5 +6+:U6j0j,K/*$*j ( 8,X  @#
 uh,Y U0@+/ 
 ( 8,X  
 ( 8,X 3D+- 
 ( 8,X  
 ( 8,X 3D+- 
 ( 8,X  
 ( 8,X 2D+/   @U+0   @U"U.@R R5 3+6+3 U0 +6:U+	+6,8 U.@R:R#R& 2 w@#
 uh,Y:U#U& 2 v@#
 uh,Y6j0j,K/*$*j ( 8,X  t@#
 uh,Y 
t ( 8,X  @#
 uh,Y 
v ( 8,X  @#
 uh,Y 
w ( 8,X &  @#
 h,Y 
x ( 8,X &  @#
 h,Y+m,8  DRd dd <,K 
t ( 8,X   )n h,Y <,J <,K,,87@~+r>~[x2P;,M>;+2,8  d 
 (@nh+x+_+xZ<!,(7+| <!,K+Z+| 
 ( 8,X  
 ( 8,X 3d+ <$,K 
 ( 8,X   )n uh,Y <',J <',K+Z+ 
y ( 8,X 1 + 
y ( 8,X 1`+ <*,K+Z+ 
 ( 8,X 1 + 
 ( 8,X 1`+ <-,K+Z+ 
 ( 8,X 4@! /5@%   @#
 h,Y+% 
 ( 8,X 1 +, 
 ( 8,X 1`+. <0,K+Z+.   @ 4`11`+3 <2,K+Z+=6j0j,K/*$*j ( 8,X  
 ( 8,X 2D+<+=:+/6j0j,K/*$*j ( 8,X  @#
 uh,Y 
y ( 8,X /  @V V&6 @R"  
y ( 8,X . y@#
 uh,Y"  
 ( 8,X . @#
 h,Y"  
 ( 8,X . @#
 h,Y 
y ( 8,X $  @V R%  <, DR R.@V 
 ( 8,X $  @R R.@V 
( 8,X .@V#V& t 
 h,Y6j0j,K/*$*j ( 8,X  
#8,X . 
 h,Y 
 8,X 1`6+Z6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+:6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+:6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+:6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+:6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+:6j0j,K/*$*j ( 8,X  
 ( 8,X 3D+:6j0j,K/*$*j ( 8,X  
 ( 8,X 2D+L 
 8,X 1`7+K" 7 
#8,X . 
 h,Y   
 ( 8,X . @#
 uh,Y+Z+Z+Z" 6 
#8,X . 
 h,Y   
 ( 8,X . @#
 uh,Y+Z+_,8" <6,K <!,J <,K,,8$7@+d>[x2P;,M>;+2,x e<:HBxg.QdhIiId`0]dKIk Hd0dd0dd2eK,HdHe@aY0e@.U[>pHfiV(o i#(MJHg gVp<fHf@Hf0ff-H-0-HYH-@ 
ENTER YOUR BADGE NUMBER: ---> @0B H@aZZERO IS INVALID FOR A BADGE -- TRY AGAIN
YOU ARE NOW STARTING TO CREATE JOB CLOSE TRANSACTIONS
BADGE NUMBER:      H3H@03IS THIS INFORMATION ACCURATE??  (Y/N OR E TO EXIT HERE)?  H@3H3H=@!O<=START AGAIN
00000:H3LEAVING THE JOB CLOSE GENERATOR PROGRAM
RETURNING TO MAIN MENU PROGRAM.
gZ("A

zKb(H=x)<5HA;          PASSWORD      H5@H5K: HE
p1:/PCC8q,8628,8q,88HiH6@$6TRANGEN-COST-CENTER TABLE ALMOST FULL, PLZ EXPAND
@`  !H3@AI03  COST CENTERS LOADED
  COST CENTER SLOTS LEFT
Zp0p@0y<?H?HE0NOCLOSEHP
STKSTAHR
pQSNOCLOSEHV
MFG1:MPARTS[11,33]HX
	pWZNOCLOSEH\
MFG1:WPCONT[11,33]H^
	p]`NOCLOSEHc
MFG1:JOBFIL[11,33]He
	pdgh455h656h757ENTER TRANS CODE 135 OR 136 (OR 0 TO EXIT) --->  @tTRY AGAIN -- MUST BE 135, 136 OR 0
D0#        135 TRANSACTION GENERATOR
        136 TRANSACTION GENERATOR
ENTER  TO  STOCKROOM (1-999 OR 0 TO EXIT) ---> H/HP8H@P8INVALID STOCKROOM TO CLOSE A JOB TO
PLEASE PRESS 'RETURN' AND TRY AGAIN
H:$#@ A AHH$H#@p0p@0{HEx@H4h@0{HEmp0h@04D0? A`1`2ENTER PART NUMBER (9 CHAR)   
   (SPACES OR 0 TO EXIT) ----> H@H3@H"MPARTSH)
x*PART_NUMBERH,
H"h-h.x2HCtENTER JOB NUMBER (14 CHAR OR 0 TO EXIT) ---> H@p3$$@ A A @H9@:JOBFILH=
x>JOBH@
:hAhBx2HCxiJOB_WIP_STATUSHG
HGENLEDG_ACCTHK
HBALQHN
ORGQHP
PARTHQ
H"0IJLMOPRS3::YHC@H"$H#  INVALID JOB NUMBER FOR THIS PART -- REENTER
ENTER QUANTITY ---> @@ka01@0 ENTER FOR QUANTITY -- NO TRANS GENERATED
HHHC2HH-$H&$HINVALID PROD LINE ON JOB FILE -- CALL ANALYST
TRANSACTION NOT CREATED
HHHHHINVALID PROD LINE FOR CLOSING STOCKROOM
TRANSACTION NOT CREATED -- TRY AGAIN
H(@aYH1@'@'H3"M("M0$#H"H

@aZH
xPRODUCT_LINEH
H@hhx2INVALID PRODUCT LINEH3H@3ABORTING TRANSACTION
xiGL_ACCTH 
HR1H#
H@CLSR2H&
H@CLSR3H)
H@CLSR4H,
H@CLSR5H/
H@CLSR6H2
H@CLSR7H5
H@CLSR8H8
H@~p!"$%'(*+-.0134679:STKSTAHD
xESRHG
HTHJ
H"HHhIhJhKx2PARTHQ
H"SRHT
HANDHV
H

`PRSTUWXxiONHANDH^
H`p_`@UPDE.Hc
ONHANDHe
H``dRfg 
THERE IS A MAJOR 1022 READ ERROR 
CALL THE MIS SYSTEM ANALYST
H0W0X@YHVHRHW@0RWRHXHS0X<QH
H0WHH

H0W0a<X

Q$Q@Q0W0^X0Y0XHYXY$Z0YHYHHHHHHH0X`Y0]$Z0D 0VHV0DHHHHH	H	H
DPdHD0THHH0SSHS<S00S`S00S? JULIAN DATE [@H(3] IS INVALID

xV

Q@

0QFSCL-DATE-IN NOT NUMERIC
FISCAL DATES BEFORE FY H3 CANNOT BE CONVERTED
FISCAL MONTH IS INVALID
FISCAL WEEK IS INVALID

QFISCAL DAY IS INVALID
CAN'T FIND FISCAL YEAR IN TABLE
? FISCAL DATE ["A&SKSXmKK|@!V"A&WmH85WH:Jkp4"M+(1GP7"M+(Pi@B"M+(vN,FYdu"M+(wI&"M+)i	""M+*2

=m''"M+*WDj5I"M+*WDj5I	
"M+*WDjup"M+*WDk@	)"M++6"M+,eQT(9S

|"M+,eQT;gLx"M+,eQUk`"M+,eQVh9"M+,eRL

8raR,@>"M+,:rkZRGR,@q"M+,RG?@I"M+,RLjupb"M+-gH	-"M+-{	0"M+.<:$Y)rhjMiW<$Y3(tK[(3C&p$B$YC,Rg#-8I$VYn,5-i9CR,FXCJ

|Pa!Uh6Jh,5-i9CR,FXCJ

|Pa!Uh6Jh$5-i9CR,FYK%w5:

5-i9CR,FYK%w5:C#$)*dC#$)*j/
:	.C:$@ZCCN-cSH]CCN-cSJaCCN-cSJ PDj(mhj/
:NDj(mhje{x	E$LEVMIY7	RG3$ 	VG3$@	YG3$`	]G3%	`G3% 	dG3%@	gG3%`	kG3&|G7"t*5K
G?FQiIVH1Y	#GPrGZ#(PG/.W5`hGZ#(PgWNGZ#(pXj$KGGZ#(pXj$@DGZ#(pXjmPGZ#(pXjm{ZP6GZ#(pXjm{ZPjt2GZ#(pXkLX9@GZ#(pXkO=GZ#(pXkO6IGZ#(pYtH95I GZ#)iUGZ#)sLYGZ#)I$@2GZ#)Tg

GZ#-ycGZ#.:Hj$9#GZ#.:Hj$95'@\GZ#.:Hk$VJ`GZ#.:Hk$VJkAI$VQY?YI$VZK7$IH9CRNi-gJ7\i$IH9CRNi-gJ7\i$

IMR


IMR@IR+({Hj{Hj
IR+({Hj5qC1T86K:$@,

IR+({Hj5qC1T86K:$MKbN@IR+({Hj5qC1U-6$$IR+({Hj5qC1U-65E,"IR+({Hj5qC1U-65&vh6SIR+({HjV[
IVKK-aR	$SKK|MiJWEKvM&ut4EP	;MNFRBMNFRCR(eMNFRCR+*Y-MNFRCR+*7TMNFRCR++zhMNFRCR+-E2(PMNFRCdMNFT]@?MNFT]R,y94MNFVZIMNFV_;%bMNFWkQT@[MNFWkQU[ ^MNFWkQVpWMNFWkQW CMNFZC
dPMNFZE1Tn !)MNFZE1V=eQTH:J! MNFZE1V=eQU-6Sp!$MNFZE1V=eQW0d	8MNF[MMNF[KXFMNF\KiMNF\K*Y1MNF\r	OrO#$)*jUx@pO#$)*kZtO#$)*kN \O#(1i&}`O#)inO#*:K7xO#*:K7)<SP8O#+7eTH:KLzO#-t`j

8z5O$|O#-t`j

8z5O)<SP	sO)R@pO)URp	wO)V)6	OPkS:5vWVHU>(PYt9-cSHDU>)v5=:U>+Z[
.KKU>+ySMh65G'UVc)H	UVc.<zUVe75I ~UVe75I-e$Y@	YY&u6XCJn0*Y>=pYL	YPZ[MfVS:(^[MfVS:+)<SPO['6H I(w[@]['6H I*2fv[>vJ
.@	']\	]]FFT22(d]VeFP]O<\@VB-fHVI)TY$XVB-fHI)TY)<SPR'B-fZev6SS2($TVB-fZev6SS2+)<SP	1KnaFW^a=r5vL@Fa=r5K%iHa=r5K%i-DJa=r5K%i-KbN@etKv5./}e|Rfj5}7Hed:$)*kN hg$)*kXwelg$)*k%vYdyg"NYd>gR-

r7ggI65Z*0E2.03iI-igP	.iTI	5iU
	*iU[	8iU[@	<iV<`	'iW ,inXidniFXe>#+]1i=TH<5"E[9f#i=TH<5gM[2H! i=TH<5gM[2I"E[9fiIT+rriIT;rJeiJ
iJM&dVXK&vI9iJ(9OVl[ZfiK)Z]%wiK,zCS.0~kB$5O%<zB

(oR

oR

oR

oR@

&oR

$oR0

"oR@

oRP

oR`

oRp

oS

oS:oTqhj$,oTJ3Lj{Z*oTJ3M[QJ6oT^hLoTj9Gc-rK-TYoUXkQTH:J,oU-6Ss)i7oU-6Ss,pmHoUI0`2oV0eR.,`4oVy2WL.oW0eL0oW0eMUKw`Ao

FVZEo

F[n>o

F\r)oLFRH%oLFVZ"oLF\r3oTFRI 0oTF\r=o',zCS.0So?6RCR(foJNI-a;& hoJNI-a;&&Rq' joJNI-iloJNI-i)<SP	oMR(	oMR$joMTzS>s(wI
oMT(2OaoMT(:G goMT;g#*WD!oMT;yhj[ZKIVH1YloMTH:JRoMTh:C1V)0HNoMTh:C1V|Ti?oMTj9G`oMTky5N8pXj$KoMUvJj.,WdYoMU[C2LFXid	WoMU[ `oMUkmgVU_DoMUkmgVXCK UoMUkz5.JoMV9g^ 	/oMV!@oMV(7I>k,hj.,WdoMV8;Jjt^5"}I 	3oMV<@oMVKmC@oMVKmG

oMVKmgH6oMVz85=	ZoMV}`	^oMW 	8q?	rsk`47?	0@<G6h?A@<)H?HD@I?(
H0@(:	6?8@	5x?@
H0@(:I

hi%0(	8i@GiH<@@$	hq@I)q8X@	3`qp<0@G3@4:PF1H04` H@P3 05 H@PG1`0(5P H@P2086	 H@PG2(0H6	@ H@P2X0X7	x H@PG2x0h7p H0@P -0x8@P!F(9@#9]`$F 9

L@P%8:L0@P%G)`:@&F80;@)G%=@*F-(=r0+-H=`@0+K.`>	y`,.(>P@@0,O/>`@0@0-.x?@@0-K-`?x@0..@@0L@P.K.@hL@P//(A  L@P/K/@A

 bFxD"qF
PFF00PD 	@8G	F0hDXx@8GIJ0E`@8H	M0EHH@8HIQ00F0@8I	T0HF8@8IIX0`Gp	@8J	[0xH(x@8JI_0H``@8K	b0(IH@8KIf0@IP0@8L	i0XJ@8LIm0pK@	@8M	p0Kxx@8MIt0 L0`@8N	w08LhH@8NI{0PM  0@8O	~0hM X@8OI0N!	@8P	0O!Hx@8PI	00O"`@8Q

0HP"8H@8QI0`P000@8R	D%Y8`S D$	A@@TI"p PD"q$`0@(U	"p xD%

`A@@UM"p (D$

0A0@@VM"pHQ'q10X"Q&H@@XIhQ'x@@Y	! Q'8H@@[IQ%X0@0@\	PR(( L@P]R*AF@^!HR)	@@^IR)P`@@	!0R*0@@I S((	@0@`	`S,YW`0a`S+0`@@aI0S+h0@@b	HS, 	@@bIS*@x@0@c	(S-`@@0d!`Tx`@0@e@XTppgF$PT.8 L@Pi$@U.p L@PiF$hU/( L@Pj&8V/`@@(k&PV1	(kF&(V0P@@@l	&V/``@0@@lIV-H L0@PnxW	pOoHW7Q0q(W40qIXW3 @@r
00xpX8@0@@xIY8x@@yI
0({Y: 0@@|	0Y90@0@|I`Y;IY
H0}GxY:XH@0@0~	@0	Z<
H@ `Z=c
HGZ<HA0@@!	
H@@h]=p
@@GH]>(
`@@
@@(8^@	y
` 0	h^?P`@	Hy0
_>``0@	H@^A	
` 	`^@`0@@!	I(PaB1

` 
G}0
8aAx`@

0
`bA`0@

pa1A
`0`0@@!	AHd`:`dEI"0	=8dDX)@@K= dE(`@@=dCh(0@0@K;eFq00	=heF8)@@K=PeEH(`@0@ ; eG(@0I9XfI	>0	<pfH)@@K<@fHP(`@@<XfG((0@0@K;@fI@@@	:@0fC0x0@I'xgS@$HgKYV`G(gK  L@P	gJ0 L0@PI(hPAa`G0

hLH L@(	a0

hM L@(Id0

(iM8 L@(	h0

8iMp L@(Ik0

HjN( L@( 	o0

XjN` L@( Ir0

hkO L@(!	v0

xkOPpL@(!Iy0hU)`#phQ0yL@@(#I)8hQhL@@($	'0iRPL@@($I&piRXL@@(%	$xjS@L@@(%I"jSH(L@@(&		kT8L@@(&I)kT8L@@('	#`i|
HH>I#xH@?0@@
HpA	`$bH@AMH$bH0@@B
@CI%d(@ D	P%d`
0@(DI8&fA)
H0E	`&ePH@@EJ&f@@F
&d`x@0@FJP&fx
H@@ G	h'g0
x@GI'gh
0D@8H	 'h 
D@8HI(hX@@I	(i
H@(IIX)iH
`@@0J	E)^
`0@@JIX-SHKG>-lW0L	B(-k(@@LJDp-k``@@M
E-j80@0@MJ?x-j@0@N	6(0p.@HO0@/l@P0`/mx@@PG/`/n0
H@@0Q0/nh
H@HQG/x0o @pR0(1m
`D0@@RG,82 L@PTF6H03 L@ UG?@03@@WC`4@@Z, 0X4 H@[C5@0[G+05@@]G@06 }!`F
h6r`0@ bHr`
H0	 L@(c
0 
 L@(cF00
 L@(d4XD@PeC(

D@PeFDt@ph>@hF@0i%@@ iF%  L@Pj%p L@PjF8 L@PkP@@kF`@@lp@@lF

@@m

@@mF

@@n

0@@nF

@@@o4p@@pE 0@@q	P0H@@qF10X@@rF

P0hD@8s(p0xD@8sF(0@t'
`tF?``@@0uD@
t@@uGD(P
 @@ vD
<@ vG? @
X@@(w?0p
X@0@0wG88D@(T 8D@(
(8D@(aVhH9@%0(#X@H$i@H(@H*
8@H33#@H8V8H@Hd88@Hl8(@Hs9H@H{98@H9(@H
9@H

8x@H

8h@H(8X@H/
8@H7:@H=9p@H<@H8< @HY;X@Hk;p@H	9:(@H	c#X@H	dA(@H
"@@H

1@H
*10@H
D`@H
J,p@H
K+H@H
P+`@H
R,@H
o	@H
th@H
\P@H*@@H9*`@HJ)x@HO*@HX'@@H]"p@H`'X@H~HH@H

Ep@H

`@H

6>0@H

;>H@H

S>h@H

X?@H

d# @H

i "@@H

lR"X@H8M 7x@HR@Hix@Ht0@Hv @H{@@Hn0@HsX@H ;h@H!%@Hv-@H{m @H
H@Hh@H	h@H68@H`@Hm@HrHP@HZ(@H_N<COBRUN><COBRUN><COBRUN><COBRUN>,'Gn'H,'I,5Y,'L,(;,'S,'Wg@'Z,'o,'_,'c,'g,(Cf'H,5e,'j,~<LIBFGB>c@'A,~
&'B
&'B
&'C,~*6*,'D,~ c@'I,~*6 "'8*6+6c@'I,~*6 "(;*6+6LIBFGRc@'A,~
&'B
&'O
&'C,~,>X)

X@)

X,^,'P,~c@'I,~*6 "'o*6+6@LIBERTc@'A,~
&'B
&'Z
&'C,~ 
,'[c@'^,~ )
&'_
'@)
&'_,~,'P,>X)

X@)

X,^,~c@'I,~*6 "(C*6+6,'D*6*,~<LIBRUN><LIBRUN><LIBRUN>@@) )

1BS"Lu B( )RB( ) B( )@@(1B+'{1B+()1B+(*7@(+( " B,E )RB,F ) B,L,*Y6@,F+(++( " B. )[.@@.@@.@@. ) B.,,s6@.+(. ( B0 ( B0 ( B0 ( B0,(7@0+(S"^ B0,(7@0+(Q": B0,(7@0+(Q"	t B0,(7@0+(Q"8; B0,(7@0+(+(1 " B0,.$,~S(X"(	b+(4,~<LIBERS>c@(!,~
&(!
&("
&(#,~,(#*) "*)+(+'t:(+'{:(+(,(#*) "*)+(+(,(#*) "*)+(+(,(#*) "*)+(+(,(#*) "*)+(+(<ACPRUN><ACPRUN>Zp+(R,(\,(g,(n+(x,),~<ACURUN><ACURUN>,),~<LIBAGT>c@(D,~
&(E
&(E
&(F,~@,^+(<LIBERSc@(D,~
&(E
&(K
&(F,~,(L*) "*),~+(<,(Gf(J,>"w[1b+(J "0Bn(J,^+(OLIBBLTc@(D,~
&(E
&(X
&(F,~,(Y,>,>Q"hX")

$)

.$/$*",^,^,~c@(b,~*6 "4X*6+6HhH

)(c,>n(f,",B5C,(f,B5C+(g,B5D,^,4Xf(f,~,(Y,>,>Q"hX")[0B+(t "0Bn(J,^+(uLIBSDCc@(D,~
&(E
&(~
&(F,~,(*4

 " B4 ")*4

,3z,~,(Y,>,>Q")X"h $h.$/$*",^,^,~))))&)))-)2  [RUNGNE - Good return, no errors ]% [RUNRUF - RUN UUO failure - Cannot run requested program ]  [RUNTMC - Error detected in call to LIBTMC - used LIBTMF instead ]% [RUNIPN - Invalid program name ]% [RUNPNF - Program not found ]% [RUNWNA - Wrong number of calling arguments ]% [RUNTMF - Error detected in call to LIBTMC & LIBTMF ],)Fn)H,)I,5Y,)L,*,)S,)Vg@)Y,)k,)_,)c,)f,*f)H,5e,)i,~<LIBFGB>c@)A,~
&)A
&)B
&)C,~*6*,)C,~ c@)H,~*6 ")8*6+6c@)H,~*6 "**6+6LIBFGRc@)A,~
&)A
&)O
&)C,~,>X*CX@*CX,^,)P,~c@)H,~*6 ")k*6+6@LIBERTc@)A,~
&)A
&)Z
&)C,~ 
,)[c@)^,~ *D
&)^
'@*E
&)^,~,)P,>X*CX@*CX,^,~c@)H,~*6"**6+6,)C*6*,~X @@*D *D1B+)p1B+)s1B+)p+*l *E4B)rl@@)|+)zO@)|+)z,>)|@@)|,*	a@+)zm@+)xa@+)z,*
&)}
&)~
&),~,)**D "**D+)z+)pLIBFGRc@)},~
&)}
&*
&),~,>X*CX@*CX,^,*,~,*,>X*CX@*CX,^,~Zp+*#,*-@@*E+*7Zp B*E,~,*=,~<LIBAGT>c@*,~
&*
&*
&*,~@,^+*LIBERSc@*,~
&*
&*
&*,~,***D "**D,~+*,*f*,>"w[1b+* "0Bn*,^+* LIBBLTc@*,~
&*
&*)
&*,~,**,>,>Q"hX"*D $*D.$/$*",^,^,~,^+*,***D "**D,~+*,*f*,>"w[0B+*3 "0Bn*,^+*4,**,>,>Q"*DX"h $h.$/$*",^,^,~*G*K*P  [TRPGNE - Good return, no errors ]% [TRPIFC - Illegal function code specified ]% [TRPWNA - Wrong number of calling arguments ]<MALTMC><MALTMC><MALTMC>n*a,*b,5Y,*e,,?,*m,*qg@*t,+,*y,*},+,,Df*a,5e,~c@*a,~*6 "*Y*6+6c@*a,~*6 ",?*6+6<LIBFGR>c@*h,~
&*h
&*i
&*j,~,>X,EX@,EX,^,*j,~c@*a,~*6 "+*6+6@LIBERTc@*h,~
&*h
&*t
&*j,~ 
,*uc@*x,~ ,F
&*y
'@,M
&*y,~,*j,>X,EX@,EX,^,~c@*a,~*6 ",D*6+6<LIBTMC><LIBTMC><LIBTMC>X @@,F ,E1B++1B++1B++1B++1B++$1B++$++q@	b++t B,G++) ,FRB+)""@QB+*Q,EX"+)	b++w,+~,,Z+k,,++) ,FRB+),+~,,,,!@ +k ,'1B+,(B9+ +j&"0D.""BQB+* ,)	b+,)++)@@,G,,,Q,EX"+)	b+,2 ,,5++),~x+*<LIBERS>c@+k,~
&+l
&+l
&+m,~,+n*,F "*,F++)++,+n*,F "*,F++)++,+n*,F "*,F++)++LIBGDCc@+k,~
&+l
&+z
&+m,~,+{,> ,L[B+jQ"  B+k,^,~c@,,~*6 "5
*6+6,,,5Yn, #+j B5C  B5C +k B5D,5
,5ef,,~LIBBLTc@+k,~
&+l
&,
&+m,~,,,>,>Q"+*X# %.%+j/$*",^,^,~c@,,~*6 "4p*6+6,,,5Yn, #+j B5C +k B5C +k B5D,4p,5ef,,~I+*,,,5Yn, "@ B5C  B5C ,  B5D,5
,5ef,,~H+* T+j+++),+n*,F "*,F++)++$,,,>,>Q",GX",H $,H.$/$*",^,^,~,+n*,F "*,F++)++',,,>,>Q"+*X",G $,G.%/$*",^,^,~<AMPTMC><AMPTMC>@@,F,~<AMUTMC><AMUTMC>,~,P,T,Y,`,e,i  [TMCGNE - Good return, no errors ]% [TMCIFC - Illegal function code specified ]% [TMCTUF - TMPCOR UUO failure - Cannot read or write temp core ]% [TMCWNA - Wrong number of calling arguments ]% [TMCFNF - File not found in temp core ]% [TMCNES - Not enough space available in temp core ]<MALTMF><MALTMF><MALTMF>n,{,,|,5Y,,,-{,-,-g@-,-",-,-,-,.f,{,5e,~c@,{,~*6 ",s*6+6c@,{,~*6 "-{*6+6<LIBFGR>c@-,~
&-
&-
&-,~,>X.X@.X,^,-,~c@,{,~*6 "-"*6+6@LIBERTc@-,~
&-
&-
&-,~ 
,-c@-,~ .
&-
'@.
&-,~,-,>X.X@.X,^,~c@,{,~*6,".*6+6<LIBTMF><LIBTMF><LIBTMF>X@@..1B+-%+-R,366@3h+-Ul3g<B-Jb-Xb-Y>.1B,-Y B-D . @-J[.1B+-eSY. B-H .1B -h B-I "XB-C -h	b6+-i,-p -L? +-8-L?`-H,-<B-G+-4 "?`-H,-<B-G "?`-H,-<B-G+-=
&-M
&-N
&-O,~,-O*. "*.+-C+-%,-O*. "*.+-C+-&.-<$H-CINXc@-Z,~*6 "4*6+6I-KH-K,-Z,5Yn-] " B5C -^ B5C -^ B5D,4,5ef-],~	b

 B-K,-_[-K+--i78-C,-O*. "*.+-@+-3LIBGDCc@-M,~
&-M
&-l
&-O,~,-m,> .[B-LQ"  B-L,^,~,-O*. "*.+-@+-@<AMPTMF><AMPTMF>@@.,~<AMUTMF><AMUTMF>,~.....% [TMFGNE - Good return, no errors ]% [TMFIFC - Illegal function code specified ]% [TMFNCA - No I/O channels available ]% [TMFWNA - Wrong number of calling arguments ]% [TMFFUF - FILOP. UUO failure - cannot open or close temp file ]<MALFIL><MALFIL><MALFIL>n.,,.-,5Y,.0,0,.9,.<g@.?,.S,.E,.I,.L,0f.,,5e,~c@.-,~*6 ".$*6+6c@.-,~*6 "0*6+6<LIBFGR>c@.3,~
&.4
&.4
&.5,~,>X0X@0X,^,.6,~c@.-,~*6 ".S*6+6@LIBERTc@.3,~
&.4
&.@
&.5,~ 
,.Ac@.D,~ 0
&.D
'@0.
&.D,~,.6,>X0X@0X,^,~c@.-,~*6 "0*6+6<LIBFIL><LIBFIL><LIBFIL>X @@0@@0@@0@@0@@0@@0@@0@@0@@0 01Bl1Bl1Bl1Bl@`@@+.^+/5 03B/8 /9 B/& B/+ 0 B/  0 B/  0 B/!,366@3h+/9l  3gb/<b/=b/=b/>b/>
/++/?@/+//&tB0/0B0"/BB3"/Bb/C+/G6@2+/I,/P,/W,/^ /eb/e"/f,/d/f ,/d/g"/gB3+/h6@2+/j,/n,/W,/^"/tuB0"/uxB0/${B0/"~B0/"B0/*B0`@+/`@+/.B0"`0+/e@ +/ ,3?,~uH/.<LIBERS>c@/0,~
&/0
&/1
&/2,~,/2*0 "*0+/+.^INX,/2*0 "*0+/+.e..i..j./././,/2*0 "*0+/+.j0/!

/!

3c@/C,~*6 "2"*6+6,/D,5Y,2",5e+.o,/2*0 "*0+/+.pc@/C,~*6 "4*6+6I3H0,/L,>n/8 " B5C /O B5C /P B5D,^,4f/8,~I3,/L,>n/8 " B5C /W B5C 5D B5D,^,4f/8,~I3,/L,>n/8 " B5C /^ B5C 5D B5D,^,4f/8,~ A00,/!00000</!,/D,5Y,2",5e+.w,/2*0 "*0+/+.xH0,/L,>n/8 " B5C /O B5C /m B5D,^,4f/8,~6$/!./!,/2*0 "*0+/+/,/2*0 "*0+/+/,/2*0 "*0+/+/,/2*0 "*0+/+/,/2*0 "*0+/+/,/2*0 "*0+/+/,/2*0 "*0+/+/<AMPFIL><AMPFIL>@@0,~<AMUFIL><AMUFIL>,~05090?0E0J0Q0X0]0b0h0l0s0{111	11111&1)1014191>1B1G1M1R1W1\1b1h1l1q1v1y1|2222

222% [LIBFIL - Unknown network node (ENTER) ]% [LIBFIL - Task not available (LOOKUP,ENTER,RENAME) ]% [LIBFIL - Network capacity has been exceeded (LOOKUP,ENTER) ]% [LIBFIL - File's EXE directory is too big ]% [LIBFIL - File has a bad extension for an .EXE file (RUN,GETSEG) ]% [LIBFIL - File has a bad EXE file directory (RUN,GETSEG) ]% [LIBFIL - File still has outstanding locks set ]% [LIBFIL - User is not logged in (RUN) ]% [LIBFIL - Low segment overlaps the high segment (GETSEG) ]% [LIBFIL - File cannot be updated ]% [LIBFIL - GETSEG from locked low segment to dormant high segment ]% [LIBFIL - No file structure in search list is write enabled (ENTER) ]% [LIBFIL - Cannot create an SFD nested deeper than the max allowed ]% [LIBFIL - Search list empty ]% [LIBFIL - Sub-directory not found ]% [LIBFIL - Cannot delete a non-empty directory (RENAME) ]% [LIBFIL - Cannot supersede an existing directory (ENTER) ]% [LIBFIL - Block not free on allocated position ]% [LIBFIL - Partial allocation only ]% [LIBFIL - Not enough table spece in free core of monitor ]% [LIBFIL - Write-lock error ]% [LIBFIL - No room on this file structure or quota exceeded ]% [LIBFIL - Illegal monitor call (GETSEG) ]% [LIBFIL - No such device (RUN,GETSEG) ]% [LIBFIL - Device not available (RUN,GETSEG) ]% [LIBFIL - Not enough core (RUN,GETSEG) ]% [LIBFIL - Not a saved file (RUN,GETSEG) ]% [LIBFIL - Transmission, device or data error (RUN,GETSEG) ]% [LIBFIL - Illegal sequence of monitor calls ]% [LIBFIL - Already existing filename (RENAME) ]% [LIBFIL - File being modified (ENTER,RENAME) ]% [LIBFIL - Protection failure or directory full ]% [LIBFIL - UFD does not exist on specified file structures ]  [FILGNE - Good return, no errors ]% [FILIFC - Illegal function code specified ]% [FILOUF - OPEN UUO failure for channel ]% [FILFNF - File not found ]% [FILNEU - Non-existent UFD ]% [FILPRF - Protection failure ]% [FILFBM - File being modified ]% [FILRFA - Rename file already exists ]% [FILNCA - No I/O channels available ]% [FILISU - Illegal sequence of UUO's ]% [FILNQE - No room or quota exceeded ]% [FILWNA - Wrong number of calling arguments ]% [FILDTE - Error detected in call to LIBDTE ]<DECLOC><DECLOC>,2X6@2,~+2) 3 B3+2/,~c@2&,~*6 "25*6+6,2&,5Y,25,5e+2$c@2&,~*6 "2G*6+6,2,,5Y,2G,5e+2%<DECNBS><DECNBS>,2X6@2,~ 3&":&$.3 (0$ ( B."&"0D (.&	} $"6.^"?n4b2A&"2/0D1.  B3,~<NBSLOC><NBSLOC>,2X6@2,~ 3."~L&":X(D&$:XG&&&Z(H(B.$"2."n.( B3&"1D+2U 43hP3=2R/P3 H3.4 T3,~ 43hP3=2V/P3 H3+2T6@3+2u6@3+2u6@3+2u6@3+2u7`3+2u,~7`3+2u6@3+2u 30"0b+2u6@3+2u 30"0b+2u,~7`3+2u6@3+2u6@3+2u6@3+2u 30"0b7+2u,~7`3+2u 30"0b+2u 30"0b+2u 30"0b+2u 30"0b+2u,~+2{<LIBERS>c@2v,~
&2v
&2w
&2x,~,2x*2 "*2,~+2v-<KZjy'-<L[jz	'
333#3)3.  [DTEGNE - Good return, no errors ]% [DTEIFC - Illegal function code specified ]% [DTEGUF - GETTAB UUO failure - Cannot determine today's date ]% [DTEWNA - Wrong number of calling arguments ]% [DTEIDF - Illegal input date format ]<LIBGCH><LIBGCH>,3E,5Y @3f@@3h <3J,6@3h+3Q+3C<LIBRCH><LIBRCH>,3T,5Y @3f <3X,6@3h+3Z+3C 3f,3b,5e,~c@3E,~*6 "36*6+6CHN`3H3I3h3g<LIBERS>c@3L,~
&3L
&3M
&3N,~,3N*3h "*3h+3C+3:c@3E,~*6 "3?*6+6`3W3I3h3g,3N*3h "*3h+3C+3BLIBERTc@3L,~
&3L
&3]
&3N,~ 
,3^c@3a,~ 3h
&3b
'@3h
&3b,~3j3n3r  [CHNGNE - Good return, no errors ]% [CHNNCA - No I/O channels available ]% [CHNNUC - Non-user channel specified ]<LIBDSC><LIBDSC>b@4	+4@A4

.\4Z4ZC4

$4	0D+4.""4
QC4

+4@A4

.\4Z4 $"S4

."b4
 4/ 4

ZB4

+4,~.4a04

H<OCTDEC><OCTDEC>b@44 "c@44"451B+451B+471B+48 D5Ef@4:+4!5CbB4:+4;Q2f@4<+4= 0,4+f4?,~5C5CbB4:+4@Q2f@4<+4C2"54+4F+4N 43 0,4+ 43 0,4+ 44 0,4+f4?,~? ,~&@5/b@4?+4Rf4?.5E205C+42c@44B5Db@44
" +4+05DZ5G 5I+4Z5H 5I+4Z5H 5J+4@#`[+4 c@44R5Db@44
"+4J"`f4:7@."[+4#c@44R5Db@44
"+4$ D B@b@

54b H44 D B@b@

54b H43 D43+4&'54 D44 B@'54 D43 B43+4&0B+4.6@+42+4.<SIXOCT><SIXOCT>? 5C,~5C25.R5D+4X<CNVLJZ><CNVLJZ>"51BZ5G1BZ5H1BZ5H D5E+4q<CNVLJB><CNVLJB>"51B[5G1B[5H1B[5H D5E+4q<CNVLJN><CNVLJN>@@5E+4qX @@5F@@5F@@5G 5C 5C? +4z0R1R+5l:5F 5G.B5F@@5G+4t 5F? +4}`5C+4{ 5F? +55CR5D+4} 5F.5G 5E? ,~R5D+505Da@:5F`@:5G+4t<NULFIL><NULFIL>@? 5C,~R5D+5Bbbb (
0

"8"@"HPBXb`hbp"x<<#"<C$<c&=(=#(*=C0,=c8.>@0>#H2CP4CX6`8Ch:Cp<cx>@0$B0DD0dF1H1$(J1D0L1d8N2@P2$HR4$PT4DXV4d`X5hZ5$p\5Dx^5e`6b6%d8Ef8eNh9(j9%0l9E8n9e@p:Hr:%Pt8Xv4hz%x~6$H5BSAC>,5n,^5v,>,>,>,>,>,>,>,>,>,>,>,>,>,>+5v<LIBRAC><LIBRAC>,5q,^5v,^,^,^,^,^,^,^,^,^,^,^,^,^,^+5vc@5n,~*6 "5Y*6+6c@5n,~*6 "5e*6+65w  [ACSGNE - Good return, no errors ]<LIBTRC><LIBTRC><LIBTRC> 6f61Bn61Bn61Bn61Bn60"0b+6+6
'*6,~<LIBERS>c@6,~
&6
&6
&6,~,6*6"*6+66 6%  [TRCGNE - Good return, no errors ]% [TRCITL - Illegal or unsupported trace level ]% [TRCWNA - Wrong number of calling arguments ] @60	`

	`&56/ @61 62	`'56/ 60,~60 @67	`

	`&566 @68 69	`'566 67,~68!QC74gg"A(jKb(!QC74,7J? 1022 ROUTINE CALLED BEFORE DBC74
+7M,7J? REENTRANT 1022 COBOL NOT SET UP
+7MZ7[5B7$6@6<+6C@6@&7p6=+6N(PQ0xF@(.*p6M,>,>  6:,7 ,^,^4N6Z(.}F@`P=6R4N6Z,7J
%%1022 RUNTIME SYSTEM FOROTS/LIBOL VERSION SKEWED
Z6=7@ "$"."+7D Z   $6f!&XY F.$<`6eX F.$86@=`6`+7$+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6>+ ,6> ^7C >7<*>7C	`+!>7<*>,~ "78+7,>,>4 734@7+"! (@*7:fA7:: A7:+76 7:X  "d`+708(B0B+7-+76PA7:Z:,^+76 ! (@*7:n7:+7*,^,^,~!JCS28	7<7I7%@37H Z[3B7+6]+6^=QC74,^Q"A`4@
"+7K	`,7U 7Y	b,~A"p0B:x,~,7M,~,7U "`4d7P,~*x,>,>,>~,^,^,^+7PP!JCST+ + /+7]+7y`r R4 @56@ N4 ^8	Z>8*>8	4R7t\".	b+7t4B7t B4\"/	b+7t B4\"2	b+7t4B7t B8 "8
*4 B8\"3	b+7t B8

4B7t\"3	b+7t B8

4B7t\"4	b+7tZB8	b+7xS>8*>+p
&8+7t-<7],^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,~ggF]"Q
?GETSEG of SYS:C7412B.EXE failed.
,~,~Zx<8.\x,~+G+p$$p,~+p+:x:x,~