home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr4.zip
/
MUPDATE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
2KB
|
85 lines
* Program MUPDATE - Allows an operator to change/add to the MEMBERS file
Store d+':MEMBERS' TO MFILE
STORE $(DATE(),1,2)+$(DATE(),7,2) TO INDATE
Set deleted on
Use &MFILE
GOTO BOTTOM
Store #+1 to FBOTTOM
Use &MFILE index &MFILE
Store F to ADDEDREC
Store T to CONTINU
STORE ' ' TO ESELECT
STORE ' ' TO XADDRESS
STORE ' ' TO XCITYST
STORE ' ' TO XZIP
STORE ' ' TO XFAMCODE
STORE ' ' TO HOMEPHONE
STORE ' ' TO LASTNAME
STORE ' ' TO FIRSTNAME
DO WHILE CONTINU
ERASE
@ 1,1 say chname
@ 1,63 say curdate
@ 2,1 say 'DATA DISK = '+D
@ 3,20 say 'MEMBERS File Update Processes 1-/MUPDATE/'
@ 5,8 say ' Select one of the following update functions '
@ 7,9 say 'A) Add a new member'
@ 8,9 say "C) Change a member's information"
@ 9,9 say 'D) Delete a current member'
@ 10,9 say 'I) Make a current member to be full-church inactive'
@ 11,9 say 'J) Make a current member to be SS/SC inactive'
@ 12,9 SAY 'P) Mark a pastoral call for today'
@ 13,9 say 'S) Mark as "SPECIAL"'
@ 14,9 say 'T) Clear all "SPECIAL"'
@ 15,9 say 'Q) QUIT'
?
Accept ' Enter selection ' to ESEL
?
Store T to INVALCC
Do while INVALCC
Store F to invalcc
Do CASE
CASE !(MSEL) = 'T'
? 'Now clearing the "SPECIAL" mark in each MEMBER record STATUS field.'
Set talk on
Replace all MEMBSTATUS with $(MEMBSTATUS,1,8)
Set talk off
CASE !(ESEL) = 'A'
DO MUPADD.CMD
Store T to ADDEDREC
CASE !(ESEL) = 'C' .or. !(ESEL) = 'J' .or. !(ESEL) = 'D' .or. !(ESEL) = 'I' ;
.or. !(ESEL)='P'.or. !(ESEL)='S'
If !(ESEL) = 'C' .and. len(ESEL) > 1
Store len(ESEL) to N
Store val($(ESEL,2,N-1)) to NN
If NN > 0 .and. NN < FBOTTOM
GOTO NN
Store 'y' to XSELECT
Do MUPEDIT.CMD
else
? 'RECORD NUMBER IS ',NN,' WHICH IS OUT OF RANGE IN MEMBERS FILE.'
accept 'Press <RETURN> to continue ' to XX
endif
else
DO MUPCHNG.CMD
endif
Store T to ADDEDREC
CASE !(ESEL) = 'Q'
Store F to CONTINU
OTHERWISE
Accept 'Illegal entry. Please enter again: ' to ESEL
Store T to invalcc
ENDCASE
enddo
ENDDO
USE
If ADDEDREC
SET CONSOLE OFF
Store d+':offerndx.ndx' to xfile
Delete file &xfile
Store d+':scmembrs.ndx' to xfile
Delete file &xfile
SET CONSOLE ON
endif
RETURN