home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr2.zip
/
CSEVENT.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
6KB
|
208 lines
* Program CSEVENT - Controls all Church Special Events Program Functions
Set talk off
Set bell off
Clear
Select primary
Set deleted on
Set intensity off
Set exact off
? 'Now loading the CSEVENT program.'
Select secondary
Use EDIRFILE index EDIRFILE
Store 'January February March April May June ' to MONTHS
Store MONTHS+'July August SeptemberOctober November December ' to MONTHS
If $(DATE(),7,2) = '00'
Set date to 01,01,00
ENDIF
Store ' ' to curmonthx
Store ' ' to curyear
Store ' ' to curmonth
* Set today's date from current system-date
Store $(date(),1,2) to curmo
Store $(date(),7,2) to curmonthx
Store val(curmo) to nmonth
Store curmo+curmonthx to indate
Store VAL(curmonthx) to CURYEAR
If $(date(),4,1) = '0'
Store $(DATE(),5,1) to CURMONTHX
else
Store $(DATE(),4,2) to CURMONTHX
endif
Store trim($(months,NMONTH*9-8,9)) to curmonth
Store curmonth+' '+curmonthx to curmonthx
Store ', 19'+$(DATE(),7,2) to CURYEAR
Store curmonthx+curyear to curdate
GOTO 2
Store $(spact,21,1) to D
SKIP
Store trim($(SPACT,4,27)) to ENAME
SKIP
Store $(SPACT,4,27) to eplace
SKIP
Store $(spact,4,27) to etime
SKIP
Store $(spact,9,8) to ecost
release curmo,months,curyear,curmonthx
Select primary
Store T to LEVEL2
Do while LEVEL2
Store d+':MEMBERSE' to MFILE
Save to FMEMVARS
Erase
@ 0,1 say ename
@ 0,60 say curdate
@ 1,1 say 'DATA DISK = '+D
@ 2,21 say 'CHURCH SPECIAL EVENT MANAGER 5-/CSEVENT /'
@ 4,16 say '1) Event Attender Names /CSEUPDAT/'
@ 5,16 say '2) Financial'
@ 6,16 say '3) Lodging /CSELODGE/'
@ 7,16 say '4) Sessions /CSESSION/'
@ 8,16 say '5) Transportation /CSETRANS/'
@ 9,16 say '6) Equipment '
@ 10,16 say '7) Reports /CSEREPTS/'
@ 11,16 say '8) Set Up /CSESETUP/'
?
Accept ' Enter selection ' to MSEL
?
If !(MSEL)='DISK='
Store !($(MSEL,6,1)) to D
? 'Disk now being set to drive',D
Store d+':MEMBERSE' to MFILE
Store 'D' to MSEL
Save to FMEMVARS
endif
Select primary
Store $(msel,1,1) to XX
Do while @(XX,'12345678QqD')=0
Accept 'Invalid selection. Please enter again ' to MSEL
Store $(MSEL,1,1) to XX
enddo
If MSEL<>'8'.and.!(MSEL)<>'Q'
If file(MFILE)
Use &MFILE index &MFILE
else
? "File",MFILE," doesn't exist on the data disk. Perform SET UP to create it."
?
endif
endif
Do CASE
CASE MSEL = '1'
Do CSEUPDAT.CMD
CASE MSEL = '2'
Select primary
GOTO TOP
? ' Select -'
? ' 1) All attenders '
? ' 2) Attenders who still owe money'
?
Accept ' Enter selection ' to fsel
?
Do while @(!(fsel),'12Q')=0
Accept 'Invalid entry. Please enter again ' to fsel
enddo
If !(fsel)<>'Q'
?
? ' Career Church Fall Retreat - FINANCES ',curdate
?
Store '.not. LEVEL2' to bname
If fsel='2'
? ' People who still owe money'
?
Store 'AMOUNT - val($(PAID1,1,9))-val($(PAID2,1,9)) <= 0' to bname
Do while (.not. &bname) .and. .not EOF
SKIP
enddo
endif
Store 0.00 to OWEDT
Store 0.00 to PAIDT
? ' PAID1 PAID2 OWED Name and Phone '
? '------------- ------------- ------ -----------------------------------'
Do while .not. EOF
Store val($(paid1,3,7))+val($(paid2,3,7)) to paidd
Store amount-paidd to topay
? $(paid1,3,13),$(paid2,3,13),str(topay,8,2),' ',last:name
?? $(first:name,1,13),$(home:phone,1,8)
Store OWEDT+AMOUNT to OWEDT
Store PAIDT+paidd to PAIDT
SKIP
Do while (&bname) .and. .not. EOF
SKIP
enddo
enddo
? '---------------------------------------------------------------------------'
?
If fsel='1'
?? ' Total OWED:',str(OWEDT,8,2)
?? ' Total PAID:',str(PAIDT,8,2)
endif
?? ' Total still DUE:',str(OWEDT-PAIDT,8,2)
?
Accept 'Report is complete. Press <retn> ' to xx
endif
CASE MSEL='3'
Do CSELODGE.CMD
CASE MSEL='4'
Do CSESSION.CMD
CASE MSEL='5'
Do CSETRANS.CMD
CASE MSEL='6'
Store d+':MEMEQUIP' to M1FILE
Accept 'Does the MEMBERSE file need re-indexing, by Equipment name? ' to xx
Select primary
If !(xx)='Y'
Use &MFILE
? 'Now indexing MEMBERSE by Equipment.'
Set talk on
Index on equipment to &M1FILE
Set talk off
endif
Use &MFILE index &M1FILE
If !(xx)<>'Q'.and. xx<>' '
? ' Now searching for the first name with some Equipment.'
Do while equipment=' '
SKIP
enddo
?
Do while .not. EOF
Store 0 to I
Do while I<11 .and. .not. EOF
Store I+1 to I
? last:name,first:name,home:phone,address
? ' ',equipment
SKIP
enddo
If .not. EOF
Accept 'Press <return> to continue ' to xx
endif
enddo
Accept ' End-of-Equipment Press <retn> ' to xx
endif
Select primary
Use &MFILE index &MFILE
CASE MSEL = '7'
Do CSEREPTS.CMD
CASE MSEL='8'
Do CSESETUP.CMD
CASE !(MSEL) = 'Q'
Store F to LEVEL2
Use
Clear
RETURN
ENDCASE
endif
Restore from FMEMVARS
Select secondary
Use edirfile index edirfile
Select primary
ENDDO
RETURN
/CSEUPDAT/'
@ 5,16 say '2) Financial'
@ 6,16 say '3) Lodging /CSELODGE/'
@ 7,16 say '4) Sessions /CSESSION/'
@ 8,16 say '5) Transportation /CSETRANS/'
@ 9,16 say '6) Equipment '
@ 10,16 say '7) Reports /CSEREPTS/'
@ 11,16 say '8) Set Up