home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr4.zip / MUPDATE.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  2KB  |  85 lines
  1. * Program MUPDATE - Allows an operator to change/add to the MEMBERS file
  2. Store d+':MEMBERS' TO MFILE
  3. STORE $(DATE(),1,2)+$(DATE(),7,2) TO INDATE
  4. Set deleted on
  5. Use &MFILE
  6. GOTO BOTTOM
  7. Store #+1 to FBOTTOM
  8. Use &MFILE index &MFILE
  9. Store F to ADDEDREC
  10. Store T to CONTINU
  11. STORE '       ' TO ESELECT
  12. STORE ' ' TO XADDRESS
  13. STORE ' ' TO XCITYST
  14. STORE ' ' TO XZIP
  15. STORE ' ' TO XFAMCODE
  16. STORE ' ' TO HOMEPHONE
  17. STORE ' ' TO LASTNAME
  18. STORE ' ' TO FIRSTNAME
  19. DO WHILE CONTINU
  20.   ERASE
  21.   @ 1,1 say chname
  22.   @ 1,63 say curdate
  23.   @ 2,1 say 'DATA DISK = '+D
  24.   @ 3,20 say 'MEMBERS File Update Processes                   1-/MUPDATE/'
  25.   @ 5,8 say ' Select one of the following update functions  '
  26.   @ 7,9 say 'A)  Add a new member'
  27.   @ 8,9 say "C)  Change a member's information"
  28.   @ 9,9 say 'D)  Delete a current member'
  29.  @ 10,9 say 'I)  Make a current member to be full-church inactive'
  30.  @ 11,9 say 'J)  Make a current member to be SS/SC inactive'
  31.  @ 12,9 SAY 'P)  Mark a pastoral call for today'
  32.  @ 13,9 say 'S)  Mark as "SPECIAL"'
  33.  @ 14,9 say 'T)  Clear all "SPECIAL"'
  34.  @ 15,9 say 'Q)  QUIT'
  35.  ?
  36. Accept '         Enter selection ' to ESEL
  37. ?
  38.   Store T to INVALCC
  39.   Do while INVALCC
  40.     Store F to invalcc
  41.     Do CASE
  42. CASE !(MSEL) = 'T'
  43.   ? 'Now clearing the "SPECIAL" mark in each MEMBER record STATUS field.'
  44.   Set talk on
  45.   Replace all MEMBSTATUS with $(MEMBSTATUS,1,8)
  46.   Set talk off
  47. CASE !(ESEL) = 'A'
  48.   DO MUPADD.CMD
  49.   Store T to ADDEDREC
  50. CASE !(ESEL) = 'C' .or. !(ESEL) = 'J' .or. !(ESEL) = 'D' .or. !(ESEL) = 'I' ;
  51.     .or. !(ESEL)='P'.or. !(ESEL)='S'
  52.   If !(ESEL) = 'C' .and. len(ESEL) > 1
  53.     Store len(ESEL) to N
  54.     Store val($(ESEL,2,N-1)) to NN
  55.     If NN > 0 .and. NN < FBOTTOM
  56.       GOTO NN
  57.       Store 'y' to XSELECT
  58.       Do MUPEDIT.CMD
  59.     else
  60.       ? 'RECORD NUMBER IS ',NN,' WHICH IS OUT OF RANGE IN MEMBERS FILE.'
  61.       accept 'Press <RETURN> to continue ' to XX
  62.     endif
  63.   else
  64.     DO MUPCHNG.CMD
  65.   endif
  66.   Store T to ADDEDREC
  67. CASE !(ESEL) = 'Q'
  68.   Store F to CONTINU
  69. OTHERWISE
  70.   Accept 'Illegal entry.  Please enter again: ' to ESEL
  71.   Store T to invalcc
  72. ENDCASE
  73.   enddo
  74. ENDDO
  75. USE
  76. If ADDEDREC
  77.   SET CONSOLE OFF
  78.   Store d+':offerndx.ndx' to xfile
  79.     Delete file &xfile
  80.   Store d+':scmembrs.ndx' to xfile
  81.     Delete file &xfile
  82.   SET CONSOLE ON
  83. endif
  84. RETURN
  85.