home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr4.zip
/
MATTYEAR.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
2KB
|
79 lines
* Program MATTYEAR - One-line Year-end Report of attendance of a Small Church
Select primary
Store 98 to curline
If len(actvname)<41
Store ' '+actvname to actvname
endif
Store 0 to pagenum
Store T to BEGINNG
Set format to print
Store val($(date(),7,2)) to curyear
*Store 'ss:sc:memb' to ANAME
Do while &ANAME=ANAME1 .and. .not. EOF
If .not. BEGINNG
If curline>61
if curline<63
EJECT
endif
Store pagenum+1 to pagenum
@ 0,0 say actvname
@ 0,52 say curdate
@ 0,73 say 'Page'+str(pagenum,3)
@ 2,0 say 'XX- NAME ATTENDANCE'
Store 3 to curline
endif
@ curline,0 say $(membstatus,7,2)+$(ss:sc:memb,5,1)
Store trim(first:name)+' '+trim(last:name) to fname
If len(fname) > 17
Store $(fname,1,17)+'_' to fname
endif
@ curline,3 say fname
@ curline,21 say ssscattd
SKIP
endif
Store F to BEGINNG
Store curline+1 to curline
Do while .not. EOF .and. (* .or. $(membstatus,2,1)='*')
SKIP
enddo
ENDDO
If curline=99
@ 2,10 say actvname+' '+curdate
@ 5,10 say 'No people found.'
endif
EJECT
Release fcolhdr,fcolumn,actvname,curline,pagenum,beginng,mornames,fname
release faddress
Set format to screen
RETURN
DATA DISK = C
Interests / Abilities Reports 5-/IAREPORT/
1) Report for selected Interests / Abilities for all members [OL]
2) Report for selected Interests/Abilities and Small Church [OL]
3) Mailing Labels for selected Interests/Abilities, all members [ML]
4) Mailing Labels for selected Interests/Abilities and Sm Church [ML]
Enter selection :
This report section allows the church to mDISK='
If len(MSEL)>5
Store $(MSEL,6,1) to D
? 'Disk now being set to drive',D
Save to MEMVARS
endif
Store 'D' to MSEL
endif
If MSEL='8'
Do MPRSETUP.CMD
Clear
Store T to LEVEL1
Do MMEMVARS.CMD
Save to MEMVARS
else
S