home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / ADDEDIT.CMD next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  91 lines
  1. * ADDEDIT.CMD Adds or Edits records to/in Data File (B:FAMILY.DBF)
  2. SET INDEX TO a:names
  3. STORE ' ' TO mwhich
  4. DO WHILE t
  5.    @ 10,20 SAY "OPTIONS - <A>dd records"
  6.    @ 12,30 SAY "<E>dit records"
  7.    @ 14,30 SAY "<M>ain menu"
  8.    @ 17,25 SAY "PRESS KEY of Your Choice < >"
  9.    DO WHILE .not. mwhich $ 'AEM'
  10.       @ 17,51 GET mwhich PICTURE "!"
  11.       READ NOUPDATE
  12.    ENDDO
  13.    DO CASE
  14.       CASE mwhich = 'M'
  15.         SET COLON OFF
  16.         SET INDEX TO
  17.         RETURN
  18.       CASE mwhich = 'A'
  19.         DO WHILE mwhich = 'A'
  20.            @ 1,0 SAY "Last Record No. "+xfin
  21.            @ 3,0
  22.            STORE STR(VAL(xfin)+1,4) TO mnumb
  23.            STORE ' ' TO more
  24.            @ 1,30 SAY '                    '
  25.            @ 1,30 SAY xinv+'Add Records'+xnor
  26.            @ 5,0 SAY CHR(27)+'Y'
  27.            @  6,25 SAY "More Records To Add ? (Y/N) "
  28.            DO WHILE .not. more $ 'YN'
  29.               @ 6,53 GET more PICTURE "!"
  30.               READ NOUPDATE
  31.            ENDDO
  32.            IF more = 'N'
  33.               @ 1,30 SAY xinv+'Add/Edit Records'+xnor
  34.               @ 6,25
  35.               SET COLON OFF
  36.               STORE ' ' TO mwhich
  37.               LOOP
  38.            ENDIF
  39.            CLEAR GETS
  40.            @ 3,0 SAY "This will be Rcd. "+mnumb
  41.            APPEND BLANK
  42.            @ 4,0 SAY CHR(27)+'Y'
  43.            DO addedscr
  44.            STORE mnumb TO xfin
  45.         ENDDO
  46.       CASE mwhich = 'E'
  47.         DO WHILE mwhich = 'E'
  48.            @ 1,0 SAY "Last Record No. "+xfin
  49.            @ 1,30 SAY '                    '
  50.            @ 1,30 SAY xinv+' Edit Records '+xnor
  51.            @ 3,0 SAY CHR(27)+'Y'
  52.            @ 10,20 SAY "OPTIONS - <R>ecord no. known"
  53.            @ 12,30 SAY "<N>ame only known"
  54.            @ 14,30 SAY "<F>inished editing"
  55.            @ 17,25 SAY "PRESS KEY of Your Choice < >"
  56.            STORE ' ' TO mchoice
  57.            DO WHILE .not. mchoice$'RNF'
  58.               @ 17,51 GET mchoice PICTURE "!"
  59.               READ NOUPDATE
  60.            ENDDO
  61.            DO CASE
  62.               CASE mchoice = 'R'
  63.                  STORE '    ' TO mno
  64.                  SET CONFIRM ON
  65.                  @ 20,30 SAY "Record No. ? "
  66.                  DO WHILE VAL(mno) < 1 .OR. VAL(mno) > &xfin
  67.                     @ 20,43 GET mno
  68.                     READ NOUPDATE
  69.                  ENDDO
  70.                  SET CONFIRM OFF
  71.               CASE mchoice = 'N'
  72.                  DO nomen
  73.                  SET INDEX TO a:names
  74.                  @ 3,1 SAY CHR(27)+'Y'
  75.               CASE mchoice = 'F'
  76.                  @ 1,30 SAY xinv+'Add/Edit Records'+xnor
  77.                  @ 5,1 SAY CHR(27)+'Y'
  78.                  STORE ' ' TO mwhich
  79.                  LOOP
  80.            ENDCASE
  81.            CLEAR GETS
  82.            GO &mno
  83.            @ 3,0 SAY CHR(27)+'Y'
  84.            @ 3,0 SAY "This is Recd. No. "+str(#,4)
  85.            DO addedscr
  86.            STORE ' ' TO mchoice
  87.         ENDDO
  88.    ENDCASE
  89.    CLEAR GETS
  90. ENDDO
  91.