home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / family.lbr / MENU2-2.CZD / MENU2-2.CMD
OS/2 REXX Batch file  |  1987-05-05  |  1KB  |  60 lines
  1. * Program..: MENU2-2.CMD
  2. * Author(s): Don Morrison
  3. * Date.....: 10-29-84
  4. * Notes....: This program edits the member file records.
  5. *
  6. STORE T TO editrec
  7. ERASE
  8. DO WHILE editrec
  9.  STORE '                         ' TO mlname
  10.  
  11.  @ 22,1 SAY "ENTER THE MEMBER'S LAST NAME OR PART OF LAST NAME " GET mlname
  12.  READ NOUPDATE
  13.  
  14.  IF mlname = '                         '
  15.   STORE F TO editrec
  16.   LOOP
  17.  ENDIF
  18.  
  19.  IF VAL(mlname)> 100000
  20.   SET INDEX TO B:NAME
  21.   STORE $(mlname,1,6) TO findmem
  22.  ELSE
  23.   SET INDEX TO B:NAME
  24.   STORE (TRIM(mlname)) TO findmem
  25.  ENDIF
  26.  FIND &findmem
  27.  
  28.  IF # = 0
  29.   @ 22,1 SAY findmem+' IS NOT IN THE DATABASE'
  30.   LOOP
  31.  ENDIF
  32.  @ 22,0
  33.  
  34.  IF #> 0
  35.   STORE # TO placemark
  36.  
  37.      IF .NOT. MEMID = findmem
  38.        SKIP
  39.  
  40.        IF LNAME = findmem .AND. .NOT. EOF
  41.            ERASE
  42.            @ 1,1 SAY 'MULTIPLE RECORDS FOR '+findmem
  43.            SKIP -1
  44.            DISPLAY LNAME, SALUTATE1 WHILE LNAME = findmem
  45.            INPUT 'ENTER NUMBER FROM LEFT COLUMN - 0 TO ABORT' TO placemark
  46.         ENDIF for case lname = findmem
  47.     ENDIF  for case where we selected by member last name
  48.  
  49.   IF placemark > 0
  50.      GO placemark
  51.      SET FORMAT TO MENU2-2
  52.      READ
  53.      CLEAR GETS
  54.      SET FORMAT TO SCREEN
  55.   ENDIF  for valid record number
  56.  ENDIF  for case where we found the record
  57. ENDDO
  58. RELEASE editrec,mlname,placemark,findmem
  59. RETURN
  60. *EOF.MENU2-2.CMD