[pmmail-list] Any thought of developing....

[J Seder]

The=20following=20Rexx=20routine=20will=20export=20address=20book=20data=20=
with=20bookname
to=20stdout.=20=20This=20isn't=20rocket=20science...


/*=20Parse=20the=20address=20book=20*/
addrdb=20=3D=20'c:\tools\tools\addr.db'
bookdb=20=3D=20'c:\tools\tools\books.db'
books.0=20=3D=200
do=20forever=20=20=20=20=20=20=20/*=20Load=20up=20the=20list=20of=20addres=
s=20books=20*/
=20=20=20if=20lines(bookdb)=3D0=20then=20leave
=20=20=20b=20=3D=20linein(bookdb)
=20=20=20parse=20var=20b=20bookname=20'=DE'=20i1=20'=DE'=20i2=20'=DE'=20i3=
=20'=DE'=20=20rest
=20=20=20books.i3=20=3D=20bookname
=20=20=20if=20i3>books.0=20then=20books.0=20=3D=20i3
=20=20=20end
err=20=3D=20stream(bookdb,'C','CLOSE')
do=20forever=20=20=20=20=20=20=20/*=20Load=20up=20the=20user=20id=20table=20=
*/
=20=20=20if=20lines(addrdb)=3D0=20then=20leave
=20=20=20b=20=3D=20linein(addrdb)
=20=20=20parse=20var=20b=20email=20=20'=DE'=20=20alias=20=20'=DE'=20=20rea=
lname=20=20'=DE'=20=20popupflag=20=20'=DE'=20=20,
=20=20=20=20=20=20company=20=20'=DE'=20=20title=20=20'=DE'=20=20homestreet=
=20=20'=DE'=20=20homebldg=20=20'=DE'=20
homecity=20=20'=DE'=20,
=20=20=20=20=20=20homest=20=20'=DE'=20=20homezip=20=20'=DE'=20=20homephone=
=20=20'=DE'=20=20homeext=20=20'=DE'=20=20homefax=20
'=DE'=20=20,
=20=20=20=20=20=20bizstreet=20=20'=DE'=20=20bizbldg=20=20'=DE'=20=20bizcit=
y=20=20'=DE'=20=20bizst=20=20'=DE'=20=20bizzip=20
'=DE'=20=20,
=20=20=20=20=20=20bizphone=20=20'=DE'=20=20bizext=20=20'=DE'=20=20bixfax=20=
=20'=DE'=20=20notes=20=20'=DE'=20=20book=20=20'=DE',
=20=20=20=20=20=20homectry=20=20'=DE'=20=20bizctry
=20=20=20say=20left(realname,max(30,length(realname)),'=20'),
=20=20=20=20=20=20=20left(email,max(30,length(email)),'=20'),
=20=20=20=20=20=20=20left(alias,max(10,length(alias)),'=20')=20books.book
=20=20=20end
err=20=3D=20stream(addrdb,'C','CLOSE')

- pmmail-list - The PMMail Discussion List ---------------------------
To POST to the list, send your message to:
pmmail-list@blueprintsoftwareworks.com

To UNSUBSCRIBE, send a message to mdaemon@bmtmicro.com 
with the first line of the message body being...
UNSUBSCRIBE pmmail-list@blueprintsoftwareworks.com
---------------------------------------------------------------------