home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / rexx / dump-ind.rexx < prev    next >
OS/2 REXX Batch file  |  1993-10-10  |  2KB  |  49 lines
  1. /****************************************************************************/
  2. /*                                                                          */
  3. /*                            Dump-Ind.rexx                                 */
  4. /*                                                                          */
  5. /* Written by: Ralph L Vinciguerra, 460 Summer Ave, Reading, MA 01867, USA  */
  6. /*                                                                          */
  7. /* $Id: dump-ind.rexx,v 1.1 93/08/31 23:39:39 rlv Exp Locker: rlv $         */
  8. /*                                                                          */
  9. /* Dump the database by individual, one line per person. This can be sorted */
  10. /* with the Amiga command: sort from filein to fileout colstart 24          */
  11. /*                                                                          */
  12. /****************************************************************************/
  13.  
  14. options results
  15.  
  16. MyPort = "SCIONGEN"
  17. Address value MyPort
  18.  
  19. GETDBNAME
  20. Say "Database name:" result
  21.  
  22. say "Key:"
  23. say "  IR  = Individual Record Number"
  24. say "  PFG = Parent's family group number"
  25. say "  MFG = Marriage family group number"
  26. say ""
  27.  
  28. GETTOTALIRN; n = result
  29.  
  30. Say "Number of individuals: " n
  31. say ""
  32.  
  33. say "IR_ PFG MFG Birthdate_ Name_________________"
  34.  
  35. do i=1 to n
  36.   GetLastName i  ; lastName = result
  37.   GetFirstName i ; firstName = result
  38.   GetBirthdate i ; birthdate = result
  39.   GetParents i   ; pfgn = result
  40.   GetMarriage i 0 ; mfgn = result
  41.   str = overlay(i,"___") overlay(pfgn,"___") overlay(mfgn,"___")
  42.   str = str  overlay(birthdate,"____-__-__") lastName firstName
  43.   Say str
  44. end
  45.  
  46. exit
  47.  
  48.  
  49.