home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / NOMEN.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  67 lines
  1. * NOMEN.CMD finds Record Nos. when given         22/6/86
  2. * (will accept full or shortened First names but full, only, Surnames)
  3. SET INDEX TO a:names
  4. STORE 5 TO lines
  5. STORE t TO notfound
  6. DO WHILE notfound
  7.    STORE "            " TO mlast
  8.    STORE "                         " TO mfirst
  9.    @  5,0 SAY CHR(27)+"Y"
  10.    @  5,2 SAY "First Name/s may be abbreviated."
  11.    @  6,2 SAY "Enter First Names with a Capital & then lower case,"
  12.    @  7,2 SAY "Surname in Capitals, except for Mc and Mac, (eg. McLEOD, MacNALLY)"
  13.    @ 10,25 SAY "First Name/s ? " GET mfirst
  14.    @ 12,25 SAY "     SURNAME ? " GET mlast
  15.    READ NOUPDATE
  16.    STORE TRIM(mfirst) TO mfirst
  17.    STORE TRIM(mlast) TO mlast
  18.    @ 14,0
  19.    STORE mlast-mfirst TO sought
  20.    FIND &sought
  21.    DO CASE
  22.       CASE # = 0
  23.            @ 14,20 SAY TRIM(mfirst)+" "+TRIM(mlast)+"  NOT FOUND"
  24.            @ 16,20 SAY "Press <RETURN> to continue"
  25.            SET CONSOLE OFF
  26.            WAIT
  27.            SET CONSOLE ON
  28.            LOOP
  29.       CASE # > 0
  30.            STORE f TO notfound
  31.    ENDCASE
  32. ENDDO
  33.    @ 5,0 SAY CHR(27)+"Y"
  34.    ? " RCD  FIRST NAMES              SURNAME     BORN"
  35.    ?? "      MARRIED    DIED"
  36.    ?
  37.    STORE lines+2 TO lines
  38.    DO WHILE surname-firstnms = sought
  39.       DISPLAY OFF STR(#,4)+"  "+firstnms+surname+borndate+weddate+dieddate
  40.       STORE lines+1 TO lines
  41.       IF lines > 20
  42.          ?
  43.          ? "More : Press <RETURN> when ready"
  44.          SET CONSOLE OFF
  45.          WAIT
  46.          SET CONSOLE ON
  47.          @ 5,0 SAY CHR(27)+"Y"
  48.          ? " RCD  FIRST NAMES              SURNAME     BORN"
  49.          ?? "      MARRIED    DIED"
  50.          ?
  51.          STORE 7 TO lines
  52.       ENDIF
  53.       SKIP
  54.    ENDDO
  55.    ?
  56.    STORE lines+1 TO lines
  57.    STORE "    " TO mno
  58.    SET CONFIRM ON
  59.    @ lines+1,1 say "Record No. of Interest ? "
  60.    DO WHILE VAL(mno) < 1 .OR. VAL(mno) > &xfin
  61.       @ lines+1,26 GET mno
  62.       READ NOUPDATE
  63.    ENDDO
  64.    SET CONFIRM OFF
  65.    SET INDEX TO
  66.    RETURN
  67.