home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / new / biz / dbase / genealogist / scionarexx.lha / dump-fam.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-10-10  |  1.5 KB  |  53 lines
  1. /****************************************************************************/
  2. /*                                                                          */
  3. /*                            Dump-Fam.rexx                                 */
  4. /*                                                                          */
  5. /* Written by: Ralph L Vinciguerra, 460 Summer Ave, Reading, MA 01867, USA  */
  6. /*                                                                          */
  7. /* $Id: dump-fam.rexx,v 1.1 93/08/31 23:39:49 rlv Exp Locker: rlv $         */
  8. /*                                                                          */
  9. /* Dump the database by family, one line per family.                        */
  10. /*                                                                          */
  11. /****************************************************************************/
  12.  
  13. options results
  14.  
  15. MyPort = "SCIONGEN"
  16. Address value MyPort
  17.  
  18.  
  19. GETDBNAME
  20. Say "Database name:" result
  21.  
  22. say "Key:"
  23. say "  FG  = Family Group number"
  24. say "  PRN = Principal of family (typically the father)"
  25. say "  SPS = Spouse of family (typically the mother)"
  26. say ""
  27.  
  28.  
  29. GETTOTALFGRN; n = result
  30.  
  31. Say "Number of families: " n
  32. say ""
  33.  
  34. say "FG_ PRN SPS Children_________"
  35.  
  36. do i=1 to n
  37.   str = overlay(i,'___')
  38.   GetPrincipal i ; prn = result
  39.   str = str overlay(prn,'___')
  40.   GetSpouse i ; sps = result
  41.   str = str overlay(sps,'___')
  42.   do j=0 to 10
  43.     GetChild i j ; ch = result
  44.     if (length(ch) = 0) then leave
  45.     str = str ch
  46.   end
  47.   say str
  48. end
  49.  
  50. exit
  51.  
  52.  
  53.