home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
vrac_os2
/
ftree10e.zip
/
ANNDEATH.FTX
< prev
next >
Wrap
Text File
|
1996-05-02
|
1KB
|
64 lines
/*
Family Tree Rexx Script FTX
Copyright (C) 1996 by <Nils Meier>
Please send comments to meier2@athene.informatik.uni-bonn.de
<When you start this script you'll get a list of anniversaries
of death.>
*/
/* Params */
namewidth=32
/* Display Header */
SAY("Anniversary of Death (next anniversary) "||DATE())
SAY(................................................)
datewidth=14
namewidth=datewidth+30
/* Sort Mankind by Death Month and Day */
rc=SORT('DM,DD')
/* Calculate actual year */
thisyear=WORD(DATE(),3)
/* Display persons in tree */
rc=FIRST()
DO UNTIL rc=0
/* Get Deathdate */
month=getDeathDate('m')
/* Check for date o.k. */
IF LENGTH(month)>0 THEN DO
result=month||' '||getDeathDate('D')
/* Fit to static length */
IF LENGTH(result)<datewidth THEN
result=result||COPIES(' ',datewidth-LENGTH(result))
ELSE
result=LEFT(result,datewidth)
/* Add name 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)
/* Add anniversary */
result=result||' ('||thisyear-getDeathDate('Y')||')'
/* O.K. output */
SAY(result)
END
/* Next one */
rc=NEXT()
END
/* Done */
RETURN