home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / LPOINTER.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  69 lines
  1. * LPOINTER.CMD for a list of records indexed by Name or Recd. No.
  2. * with dates & pointers
  3. DO lgetrec
  4. IF myprnt = "P"
  5.    @ 6,0 SAY CHR(27)+'Y'
  6.    @ 6,30 SAY "Turn Printer ON"
  7.    SET PRINT ON
  8.    ?? "  "
  9.    ?? CHR(27)+"Q"+CHR(27)+"B"
  10.    @ 6,0
  11. ENDIF
  12. STORE ' ' TO order
  13. DO CASE
  14.    CASE type = 'N'
  15.       IF nom1 # nom2
  16.          STORE nom1+" to "+nom2 TO order
  17.       ELSE
  18.          STORE nom1+"s" TO order
  19.       ENDIF
  20.    CASE type = 'R'
  21.       STORE 'Records '+TRIM(mfirst)+' to '+TRIM(mlst) TO order
  22. ENDCASE
  23. ERASE
  24. STORE 0 TO mlines
  25. ? "Printed "+date()+$(mspc,1,106)+"Page "+STR(mpage,2)
  26. ?
  27. ? order
  28. ?
  29. ? "   RCD SURNAME      FIRST NAMES                BORN        "
  30. ?? "MARRIED     DIED            SP1   SP2   SIB   KID  FATH  MOTH  "
  31. ?
  32. STORE mlines+6 TO mlines
  33. DO WHILE &mvar <= mlast .AND. .NOT. EOF
  34.    DISPLAY #,surname,firstnms,borndate,weddate,dieddate,;
  35.      "   ",spouse1,spouse2,sib,kid,fath,moth OFF
  36.    STORE mlines+1 TO mlines
  37.    SKIP
  38.    IF type = 'R'
  39.       STORE STR(#,4) TO mvar
  40.    ENDIF
  41.    IF mlines+10 > mlength
  42.       SET CONSOLE OFF
  43.       DO WHILE mlength-mlines > 0
  44.          ?
  45.          STORE mlines+1 TO mlines
  46.       ENDDO
  47.       STORE mpage+1 TO mpage
  48.       ? "Printed "+date()+$(mspc,1,106)+"Page "+STR(mpage,2)
  49.       ?
  50.       ? "   RCD SURNAME      FIRST NAMES                BORN        "
  51.       ?? "MARRIED     DIED            SP1   SP2   SIB   KID  FATH  MOTH"
  52.       ?
  53.       STORE 4 TO mlines
  54.       SET CONSOLE ON
  55.    ENDIF
  56. ENDDO
  57. ?
  58. IF myprnt ='P'
  59.    ? CHR(27)+"N"+CHR(27)+"A"
  60. ENDIF
  61. SET PRINT OFF
  62. ? '                   Press <RETURN> when ready'
  63. SET CONSOLE OFF
  64. WAIT
  65. SET CONSOLE ON
  66. SET INDEX TO
  67. ERASE
  68. RETURN
  69.