home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
scion407
/
scionarexx.lha
/
dump-fam.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-10-10
|
2KB
|
53 lines
/****************************************************************************/
/* */
/* Dump-Fam.rexx */
/* */
/* Written by: Ralph L Vinciguerra, 460 Summer Ave, Reading, MA 01867, USA */
/* */
/* $Id: dump-fam.rexx,v 1.1 93/08/31 23:39:49 rlv Exp Locker: rlv $ */
/* */
/* Dump the database by family, one line per family. */
/* */
/****************************************************************************/
options results
MyPort = "SCIONGEN"
Address value MyPort
GETDBNAME
Say "Database name:" result
say "Key:"
say " FG = Family Group number"
say " PRN = Principal of family (typically the father)"
say " SPS = Spouse of family (typically the mother)"
say ""
GETTOTALFGRN; n = result
Say "Number of families: " n
say ""
say "FG_ PRN SPS Children_________"
do i=1 to n
str = overlay(i,'___')
GetPrincipal i ; prn = result
str = str overlay(prn,'___')
GetSpouse i ; sps = result
str = str overlay(sps,'___')
do j=0 to 10
GetChild i j ; ch = result
if (length(ch) = 0) then leave
str = str ch
end
say str
end
exit