home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr4.zip
/
FCREPT4.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
2KB
|
69 lines
* Program FCREPT4 - Generates Full Church Roster
Accept 'Does the FCMEMBRS file have the latest MEMBERS file changes? ' to XX
If !(XX)='Q'
RETURN
endif
If !(XX)<>'Y'
Do MGFCROST.CMD
endif
Store d+':FCMEMBRS index '+d+':FCMEMBRS' to MFILE
USE &MFILE
? 'Now printing the Full Church Directory report. The printer must be on.'
Set format to print
Store 63 to curline
Do while .not. EOF
If curline > 58
IF CURLINE<>0
EJECT
ENDIF
@ 2,8 say CHNAME+', Directory '+CURDATE
Store 5 to curline
endif
Store trim(last:name)+', '+trim(first:name) to names
STORE $(LAST:NAME,1,1) TO LASTNAMX
If len(names) > 37
Store $(names,1,37) to names
endif
@ curline,8 say names
@ curline,46 say home:phone
Store curline+1 to curline
If $(children,3,1)<>' '
@ curline,7 say children
store curline+1 to curline
endif
If len(address)>0
@ curline,8 say trim(address)+', '+trim(city:state)+' '+zip
endif
Store curline+2 to curline
SKIP
Do while * .and. .not. EOF
SKIP
enddo
IF LSEP
IF LAST:NAME<>LASTNAMX
@ CURLINE+2,30 SAY '- '+$(LAST:NAME,1,1)+' -'
STORE CURLINE+4 TO CURLINE
ENDIF
ENDIF
enddo
EJECT
Set format to screen
RETURN
Special Activity that
have birthdays this month. This report prints everyone's name and
birthday that has "BIRTHDATE" characters 1 and 2 being the same as
the SYSTEM DATE characters 1 and 2.
7) [ML] - Mailing labels MACTIVTY /MACTIVTY
This report is for standard mailing labels to be printed for a
selected Special Activity. Mailing labels will be printed for all
active people in the spacing deMEMBRS file have the latest changes from MUPDATE? ' to XY
If !(XY)='Q'
RETURN
endif
If !(XY)<>'Y'
Do MGFCROST.CMD
endif
Store d+':FCMEMBRS index '+d+':FCMEMBRS' to SPFILE
If file(SPFILE)
Store 'ALL' to AN