UNISYS COBOL2 1.1.0   Compiler    V2.0 revision 055
AREPAZZ000000 GNB015047055A3  GB2.0.26DI8086  
Anonymous                      92090317492100 root  
                                                                                                
I3LM5T
;W0  ^ $.,000022tCONFIDENTIAL  Copyright (C) 1987 Micro Focus Inc. All Rights  Reserved. This software contains trade secrets and contfidential and proprietary information of Micro Focus Inc. Use, copying and disclosure of this software and reverse cosmpiling and disassembly of object code are prohibited. Use of  copyright notice is precautionary and does not imply  publication or public disclosure. Micro Focus VS Cobol Library FileProfessional Cobol Library File Micro Focus VS Cobol Library File_jt 
*GNTEXEINTBINLBRLBTCBLCPYFRMNAMEHELPMENU
HELPRTE
*
R	x:;<=>?@ABCDVWXYZ[\]^_abcdefghijklmnopq

KMHP	G	OIQwuvstRSTU   \ IBM PCW	A?LBRLBTPPPPPJanFebMarAprMayJunJulAugSepOctNovDeclibrary members LFilename(** = entry pt)  Date         Size                                   t
end of libraryVaeae   aePPP=HPlease enter library parametersFile below not found  Stop run Retry Alter driveEnter new device????????   Invalid FilePress any key to continueCreating F1=help              F3=load F4=save F5=list Escape'.0Loading Exit without saving ?  YNAlready loadedAlready loaded duplicate entry point name abort LIBRARY run?  YN duplicate entry point abort LIBRARY? YN file not foundFile below not found...CreatingLibraryLoad fileSave fileF1=help F2=directory                         Escape	
.0List library membersF1=help PgUp PgDn                  Escape	
$library members  already exists Overwrite? YNLibrary already exists overwriting... Command line errorParameter incompleteFilename too long (> 64 chars)Nothing to save.LBR file not createdInvalid file extensionError (    ) opening input fileError (    ) opening output fileError (    ) writing to fileError (    ) closing input fileError (    ) closing output fileError  deleting old Library fileError (    ) opening temporary fileError (    ) closing temporary fileError (    ) reading temporary fileError (    ) writing temporary fileProgram NAME  does n$ot existProgram HELP  does not exist[;uZY:nu:Nu6.<QRSS;w;wnDu=uEuOuYuht}tttm
30Os
d3
00r13
00r
00r
2
00yss@Bs@Bs's'sdsd
s
@gLIBRARY  FhFh^><0tS66\61X6H$6U 6<0PP^L106|1S01[Fh11)1061S01D[Fh11)1vQYF	t+a1vgF	t+aF2F2F2t0>t0wt0,u
t0:t0   a=uPPP^L$ Fh   ?PP$ P^L>Fht4'PP P^L> Fhrt0>t0wt0$ ,u
t0$  t0?   > u  @ u38:BD(JLNP*  @ u 1061 6xFh  @ uu3  I'1PI6Fh  @ u=u  @ u   )+*=u0+*@f )>+*@v2>  t+*0)  u u1 6xFhUz>uh>
	u
	 ),u  uur*=1+u?6,t  tt=;0u11061A)6Fh^LP^L>Fhv. >Su2>Ru8>Au1061A,6xFh   ))P,P,P,P^LFhy>uV )  A8
PP^LFh  @ t'PP^L...1....00Fh1)...O.....P.....P.....P.....P..)  >d,t>>u4*f^*V*VX6f^^h@0FhP*P^LPP^LFh)  >t		2:t0>t0Pwt03,.t0t0>t0wt03,.t0t0>t0wt03,'t0    *    ,  ,  , P,P,P,P^LFh,  )^LFh=uo,PP^L45FhO'P^LFhb>*Au*>
	u
F>Yt>yu>*t>*@uT>*uH>*uF=>*u1>*;uX>*?uN>*BuB^LFh1*1* ^)>
	u8=8u49   )P,P,P,P^LFh  ,ut8  ,u+u(,  )P,P,P,P^LFh,>*Auj>*t>*@u>*)u9,u  ut
  ut )^LFh*'    )*t0v0>v0Awv0)?ut0v0t0t0v0>v0Awv0)*ut0v0t0>u4   )
1,)P,P,P,P^LFho,r>*t(n,:*r>*Au *)>*)u^LFh**+48r$   )P,P,P,P^LFh,>*Au>*)u  uuo, >*t>*@um>*u*,R^LFhO**$   Y)P,P,P,P^LFh,39>*Au>*)u  u,u)>*t>*@us^LFhd  ,u+u(,  )P,P,P,P^LFh>tt s,I.  t0>t0wt0H. ut02,H.t0 )  pX6>9Fhu*X6FhRutusX6Fh1   s, $1   P^LFh  ( >u+X6h0l0Fh
Xl0t0t01t0t0t09wSX6>0Fht *h0l0X6Fh@	h0>h0h0
>R5	uV6R5)	l0	  l0		l0	h0l0)		h0tl0n		h0Tl0N$		h06l00		l0h0 l0	5d0t0>d0
vv0d0x0>d0
vd0=.Fhud0d0= Fhud0d0v0t0v0
1>t0u2x0
1
68^hx0
168^hl0:	l0	h0 >h0h0)	  uuu..h0 ]h>tN>
	t.>
	u6    ^^P,P,PP^LFh,u  uur*=1+u@,u  uu=;0u>t )  @>o,uz
	=ua=uz^LFhS006P	PP^L@P	PP^L>6Fhu>@u6P
	PP^L@P
	PP^L>6Fht>@t=7u   ,  ,  ,P,P,P,P^LFh,     ,uu ,   ))P,P,P,P^LFh )  ,*A )*pX6>0FhtIX6Fh >Nt>nu	nPP,*P^L>Fht$pX6>0Fht>u71	=161d6Fh>t@7=fu@7=fu <>FH  ?MLKJJJ>;:u
<;8FhFhu?7=fu:>u)?7=fu  ?6PP<P	P^L>00FhtLJt0v0>v0
wv0 ut0v0t0(
  0 ? >=< H;Du
F;BFhFhtG@PPFP	P^L>00Fht7=fuIHGFX6>0Fht>t29>u(f^X*A6f^^h@0Fh7X6>0Fht ft=utpX6>0Fht N>	u.>,  u>,NTu>,It>,  u>,NTu
>,Gu
y  ?X6>9Fht>1tQ@PPBP	P^L>00Fhtk EDCBQPONX6>0Fhtis,R=u>,  u>,NTu>,It>,  u,>,NTu$>,Gu))))):)w)))0)  R=u)R6PP8P	P^L>00Fht<; :98JLRP11)JLXZ(111)(>
	u 
	>uH=u>uPP^LFh@016p@016tt0>t0Pwt0t0p0O>t0OF1I  y1  d  I't0>t0Pwt0t0v  I't0>t0Pwt0t0fK  I't0>t0Pwt0t0R.Pt0>t0Pwt0H ut02,Ht0t0>t0Pwt0Hu
t0H t0t0>t0Pwt0t0P.PIPP^LFh.=t0>t0Pwt0H ut02,Ht0t0>t0Pwt0t0P.PIPP^LFhP
.PIPP^LFhP.PIPP^LFhP.PIPP^LFhf^V)V*VX^6f^^h@0PPP^LFh= )*P,*APP,*P^LFhv   )p0g,  )P,P,P,P^LFh )  p0 )     ,  ,  ,)P,P,P,P^LFh   ,uu ,   ))P,P,P,P^L>o,Fht  ,ut )  >td *)   ,  ,  ,)P,P,P,P^LFh )  [Rp0>t
>p0G>t1  ,   ))P,P,P,P^LFh  s,s,Pp,P,P,P^LFh>t1A)6FhEt0>t0Pwt0t01I  s,Qt0>t0Pwt0t0P
.PP^LP.PP^LFhH^Lt0Fh>t0Pwt0t0P.P PP^LFh1I  1  P^L>*AFht*>Yt>yt>Nt>nt^LFh*  +>t7f^VVVXt6f^^h@0FhopX6>0FhuX6Fh=?$u;:u
;8FhFhua6PPP	P^L>00Fhts,uu+?$ ?$>tY1   s, $1   P^LFh  ( ^L1161
s,6Fh$$=u$;:u
;8FhFhu6PPP	P^L>00Fhtw>tE0)  tuu=u W>t
1   0)   1   WP^L>YFht>yu>Nu>nuc^L0)Fh(1161(6126P^L>YFht>yu]>Nt>nu>tW2   s, $1   <P^LFh  ( ^L11261A)6FhW'>u1P 6Fhw''=)u'))  ?)=r)u>1uK*),t,  ttRtttxQ)=r)uY>1u*)>)u>)uRE2)6)))));)u
);)FhFhu>1t()=r)u>1us)=r)u))??>)u
Bn)+
))1:)u
):)FhFht>1t)=r)u)X6@PPBP	P^L>00FhtEDCBQPON))))r)
):)wG0))())
)  )=i*>
)	s0
)Q))D
))))3)Q(Y)0	x	QY+*.>t)=r)u)??)) r*	 ,, )  8 6>0Fht 6Fh1um9=9u 6Fh1+>u)f^Xd6f^^h@0Fh1+=q,u+1+ 6 6 6 6Fh
1 6 6 6Fh 6Fh1>u>uq+  +)   ,,   ))P,P,P,P^LFh>t:.U 6>0Fht
	>ud6^hFhq,,=nu,;:u
;8FhFhu6PPP	P^L>00Fht
>t5s,;tPP.P^LFh.  I's,I  P.PIP^L Fh'nP.  I'n*I  P.PIP^LFh.Y.I'P.PIP^LP.Fh.I'P.PIP^LFh.P9v
3=4u..I'P.PIP^LFhx.t0>t0wt02, t0d0, u.=st0d0)t0;t0s	t0t01d0 1,68t0d0>d0vRt0d0)t0>t0vt0t01d0 1F268t0d0I2I   Rt0>t0Pwt0t0  I'PP^LFh )H  6>0Fht	;0=0u;0  U'6>1Fhw
>1ut   Uut U)R>t5,u  uur*=+u>u| )  a6>0Fht	0PPXP^LFh1R2I  $DsE1>48uY2I  b2I  k2I  2  1
2I  I.NKk2I  2  H