From: SMTP%"ALLAN@otago.ac.nz" 30-JUL-1991 21:39:46.86 To: hagood@scri1.scri.fsu.edu CC: Subj: DatabaseName Ext Date: Wed, 31 Jul 91 13:19 GMT +1200 From: Allan Udy Subject: DatabaseName Ext To: hagood@scri1.scri.fsu.edu X-VMS-To: IN%"hagood@scri1.scri.fsu.edu" Database_Name(Var) Database_Name returns in the variable Var the name of the database from which it is called. (This file must be converted with BinHex 4.0) :&%4KG'&LBA0P6Q&YC5"&H(3ZBh"d!&""3e4$8%08!*!%"0J!N!4q[J%"k2i!!!5 6J%Ch@)"hLAL!D(U!N!#TQS#)5RP`B+LBL@D+J)#JS)"`S(GTC`TjHBKCH)KjJ(U J!)GfKhD3!`PhCQTRCjU!!*!!!(L(!!#CN!!+#)UD!!#3!+S!#SQ!UTUT!!LJN!! !#J#JF+!!J+#TUR#!!)#*LJU3!*S!!+QJ!!#SJ+#*QT!!S!#JJ*!!J&B0!!%N49G f"R!)!*!$J!X64'9cG`F!!(K3#)3R!6GDd)5!5'V$UGAGCN0ckG2eI9"q%k2V0(c kP@l9k9AAV5eGDY4bHRGZh`Ac-R1cH68jQFS8m'Gk'b2m2XmVCc`4ZperLY'lU9S eG(4VDq['hFXH[BeDeHYVaZfSfVGDb(UYf1RDeG+YFSU&Q0Nrj%,F+N0Z5qp6dd2 hd*m+-0[fD91VT4dG5VFUk0fYFMBXaXQ+FD0Uj(4UfIlN*X@G*X6dV'[ke&2,rqN [3K#RqbAEK`U9''"EjY+%ZhIpQASdIdbl(pFR0Tj(2bCB3DQSrNM`q[r%`RYqKM` `*HLp4EF1-Nh'c`9Lj@YH#9lp3-aJ*pkAB5liPi9RdmJAE'*DK*PG1%l+eTUJ%a` *M8X%@CRUIpK`!42Pf&M&pL-$F&4cLqa#(e[CQXdr3QX!68TpUET!6SJ6R!5Al(X 3R6Fa5VpIT5qPQj@5T81-V`FIMd$AU&Q'&Ld50GU(RaeT[mafVFl,rKIqAAK$lQ" pf%,rc0-d'26[r,`Z[c-clr-"h#3l,rE#35BD'BQT#6,jS1NY`iZ20j-[Y6H3!"f GNH2"RqMmmh[fjr)qAQlPlb%JlU)4pV,rG$kqRK)K5RQP6mlV4mU[*ER80R,kYIG aTal8hG%R!Vi%E-1!$ZrER+0D%*h!GQA(hr`kdfjA`U@0XR2jGZGaL$1(-MjjYcc XU'+L(&#%hLG0F@a#qQlM`GZjZkm(EbE[V(+r'a6(0$H8X-M'2RGE1p[,pc6KHrm &Zqi@mpp,,2+(DQlMrcammNq#%Dr,,&dbQIk03m,TV&iN)h)'J6["Xd)GlClfeLB rp[RQm0#Gi0U0rmQemQc(dIMrPEh@)cK(1kP[GI$e,-,hIEc$Pr4KB9lk9C2QjfD V0&@+*AVlCKH[APp!K[Qr,Jle1V)hf&'*HX"ADhLr(fmA+d0pPqjA`+9p(R5pI1k hi2E4VpqjdSA[q&5m4U'Y0i[XdiEjRZM-Pkr,qL55pih*aNU0fiIElGp'1",X4T3 NplK5r9HqP#Up#12LC8rc+r#`prKpZI1dr(qEFMJmr(`Pkl[@Yh('3LIXTBejA`i ipZ%qIS56r$#FEYp91HdpLCmH(f1A4fCIa@i8X&6#ABY`d2riR$M``jRpLMLC"12 pN5r+ldV2A5rYG#VFiQpM'))MBeieE-DZVEe+YRBeUebaSapHVFX9HPUeYkpE4Z9 VZaFXkkrHVV6UCN'4&Ib8E@Q`CT11SkGbeV4r(U@0(8MBZU@k0A9eDfNZjEb%lNe -h*K1jAZ[lrBNr4r1GmS+i-2``[Z68bFi'HDaG#&$NdjDJ)j#F41e5591ab[G[AS `[qj#6mqBdC*RJc(hlp[9$Rm3!!!*XH88!!%!%%4KG'&LBA0P6Q&YC5j&H(3"!*! $#&"&@&3d4%eBSMU!Ak-6b'B!!(ECM8i!!J!!"GN!N!B%L`#3"'G!!!!: