home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
vrac_os2
/
ftree10e.zip
/
BIRTHDAY.FTX
< prev
next >
Wrap
Text File
|
1996-05-02
|
1KB
|
65 lines
/*
Family Tree Rexx Script FTX
Copyright (C) 1996 by <Nils Meier>
Please send comments to meier2@athene.informatik.uni-bonn.de
<This one shows all Birthdays of every person in the tree.
The birthdays are ordered by months of this year.>
*/
/* Params */
namewidth=32
/* Display Header */
SAY("Birthday List (age at next birthday) "||DATE())
SAY(................................................)
datewidth=14
namewidth=datewidth+30
/* Sort Mankind by Birth Month and Day */
rc=SORT('BM,BD')
/* Calculate actual year */
thisyear=WORD(DATE(),3)
/* Display persons in tree */
rc=FIRST()
DO UNTIL rc=0
/* Get month of Birth */
month=getBirthDate('m')
/* Only if date is given */
IF LENGTH(month)>0 THEN DO
/* Date with static length */
result=month||' '||getBirthDate('D')
IF LENGTH(result)<datewidth THEN
result=result||COPIES(' ',datewidth-LENGTH(result))
ELSE
result=LEFT(result,datewidth)
/* Add Names and fit to static length */
result=result||getName()||','||getFirstName()
IF LENGTH(result)<namewidth THEN
result=result||COPIES(' ',namewidth-LENGTH(result))
ELSE
result=LEFT(result,namewidth)
/* Age this year */
result=result||' ('||thisyear-getBirthDate('Y')||')'
/* O.K. Output */
SAY(result)
END
/* Next one*/
rc=NEXT()
END
/* Done */
RETURN