Oakland CPM Archive/oakcpm.iso/cpm/dbaseii/comm.lbr/COMM2-5.CZD/COMM2-5.CMD

Text File | 1990-04-02 | 3.6 KB | 137 lines

* Program.: COMM2-5.Cmd
* Author..: Paul V. Pullen
* Date....: 4 May, 1989
* Notes...: This program is used to reindex the databases for continued use
*           after the addition of new members.
*
erase
select primary
use b:congre
store t to contin24
do while contin24
store ' ' to choice
@ 5,5 say '***********************************'
@ 5,40 say '*********************************'
@ 6,5 say '*'
@ 6,72 say '*'
@ 7,5 say '*'
@ 7,72 say '*'
@ 8,5 say '*'
@ 8,72 say '*'
@ 9,5 say '*'
@ 9,72 say '*'
@ 10,5 say '*'
@ 10,72 say '*'
@ 11,5 say '*'
@ 11,72 say '*'
@ 12,5 say '*'
@ 12,72 say '*'
* @ 13,5 say '*'
* @ 13,72 say '*'
* @ 14,5 say '*'
* @ 14,72 say '*'
@ 13,5 say '**********************************'
@ 13,40 say '*********************************'
@ 13,33 say ' Select : : '
@ 13,42 get choice picture '#'
@ 7,25 say '0. Return to previous menu'
@ 9,25 say '1. Reindex all databases'
@ 11,25 say '2. Pack all databases'
* @ 13,25 say '3. Delete a Member`s total records'
read noupdate
do case
 case choice = '0'
   store f to contin24
   release mfirst, mlast,madd,mcity,mstat,menv,mdonat,mcommune,midno
   select primary
   use
   loop
case choice = '1'
  erase
  select primary
  @ 4,5 say 'I am re-indexing the Congre database on name '
  index on last:name to b:name
  @ 4,5 say 'I am re-indexing the Congre database on Envelope Number'
  index on env:no to b:cenv
  @ 4,5 say 'I am re-indexing the Donate database on Envelope Number'
  select secondary
   use b:donate
  index on env:no to b:denv
  @ 4,5 say 'I am reindexing the Communion Database on Member ID    '
  select secondary
  use b:commune
  index on memid to b:ccom
  select secondary
  use
  erase
  @ 4,5 say 'Thank you for your patience.  I am finished, and will return to'
  @ 5,5 say 'the menu.'
  store 0 to icount
  do while icount<100
    store icount+1 to icount
  enddo
  erase
  store ' ' to choice
case choice = '2'
  erase
  store t to next
  do while next
    select primary
    @ 1,1 say 'The following persons are marked for their records to be deleted'
    @ 2,1 say '      You can recall any particular one in the RECALL loop'
    disp last:name, first:name for *
    @ 18,2 say 'Enter number in the left column to recall any members, 0 to abort'
    @ 19,2 say 'the RECALL loop and to go on to the packing of the databases'
    input '                    RECALL Number or 0 ' to rcll
    read noupdate
    if rcll > 0
      go rcll
      recall
      store env:no to menv
      store memid to midno
      select secondary
      use b:donate
      recall all for s.env:no= menv
      select secondary
      use b:commune
      recall all for s.memid=midno
      erase
      loop
    else
      store f to next
      erase
    endif rcll > 0
  enddo next
  store f to pck
  @ 10,10 say 'Are you sure you want me to pack the databases'
  @ 12,10 say '        Y to pack,  N to bypass the pack'
  @ 13,33 say ' Select : :'
  @ 13,42 get pck picture '!'
  read noupdate
  if pck
    select primary
    pack
    select secondary
    use b:donate
    pack
    select secondary
    use b:commune
    pack
    erase
    select secondary
    use
    select primary
    @ 10,10 say 'Now you must do a complete reindex on the databases'
    @ 12,10 say 'Return to the SUB menu is automatic, then select 1 '
    @ 14,10 say 'for the automatic re-index on the databases.       '
    wait
    erase
  else
    erase
  endif pck
endcase
enddo contin24
release contin24,denv,ccom,icount,next,choice,rcll,pck
return
* EOF comm2-5.cmd