home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr4.zip
/
MGSCROST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
3KB
|
95 lines
* Program MGSCROST - Copies MEMBERS file records to MSCROST for SSSC's only
Select primary
Store d+':MEMBERS' to MFILE
Store d+':MSCROST' to MFILESC
Use &MFILE
Set talk off
? 'Now copying parts of MEMBERS file to MSCROST file.'
Set talk on
COPY to &MFILESC for $(membstatus,2,1)<>'*' .and. ;
(ss:sc:memb <> ' ' .or. teach:sssc <> ' ' )
Set talk off
? 'Copying complete. Now expanding SS:SC:MEMB file for teachers.'
Store chr(31) to chr31
USE &MFILESC
Store 0 to reccount
Store 0 to recnum
Set screen on
Set carry on
Do while .not. EOF
Store # to recnumb
If teach:sssc <> ' '
Store teach:sssc to xteach
Store last:name to xlast
Store first:name to xfirst
Store familycode to xfam
Store home:phone to xhphone
Store address to xaddr
Store city:state to xcstate
Store zip to xzip
Store membstatus to xmemb
Store birthdate to xbirth
Store other to xother
Store skills to xskills
Store dates to xdates
Store ss:sc:memb to xsssc
Store offeringen to xoff
APPEND BLANK
replace last:name with xlast
replace first:name with xfirst
replace ss:sc:memb with $(xteach,1,3)+chr31
replace familycode with xfam
replace home:phone with xhphone
replace address with xaddr
replace city:state with xcstate
replace zip with xzip
replace membstatus with xmemb
replace dates with xdates
replace other with xother
replace skills with xskills
replace offeringen with xoff
GOTO recnumb
endif
If reccount > 99
Store reccount+recnum to recnum
? recnum,' records expanded'
Store 1 to reccount
endif
Store reccount+1 to reccount
SKIP
ENDDO
USE &MFILESC
set talk on
? 'Expansion complete. Now indexing MSCROST by Small Church name.'
Index on SS:SC:MEMB+last:name+first:name to &MFILESC
? 'MSCROST file indexing is complete. MSCROST /MSCROST file is created.'
set talk off
Set console off
delete file('spacfile.dbf')
delete file('spacfile.ndx')
Set console on
Release reccount,recnum,recnumb,recnum,xlast,xfirst,xfam,chr31,xhphone,xzip
Release xwphone,xaddr,xcstate,xmemb,xdates,xother,xskills,xoff,MFILEC
USE
RETURN
Store familycode to xfam
Store home:phone to xhphone
Store address to xaddr
Store city:state to xcstate
Store zip to xzip
Store membstatus to xmemb
Store birthdate to xbirth
Store other to xother
Store skills to xskills
Store dates to xdates
Store ss:sc:memb to xsssc
Store offeringen to xoW┌ç┌ï¼Wç┌áX╨╚sΦç┌ë¼Wï■Wç┌Φ\⌠ëXΘ ç┌Φ√ë¼Wï■Wç┌ΦC⌠ëXΦ±ZïXΦ4⌠ëXΘu ║\ Θ∙»║Ç ▒Θ±»QRR╗\ ╞ C╣ ░ ΦF⌠╣ Φ>⌠á╚ó\ ╗] Zç┌èç┌êBCç┌èç┌<:uKè,@ó\ Bç┌èç┌<.t
└têCBç┌èç┌δ∞╗e Bç┌èç┌
└têCδ≡ZY├áX$@uá╖
└u├QΦv YïXç┌á╖
└t╗ ┌è
┼ê▒ΦQ»áX4@óX├██ç┌ïX╣! ┘Φ{≤├╣ ç┌╗¢XëXè
└t< t(áX:t┘δτSCΦJ≤Φ≤[u±CCCΦQ≤ç┌ë■Wç┌╞├ïX┘ëXè< u╗¢XëXCCCCCè
└t■δ┌Cè
└tΦdïXΦ}áXΦ├ ïXCCCΦδ≥ë■WïXΦûïXç┌ïXëXáXêCΦ╙≥CC╞C╞ ├▒ ╗XëXè
└tΦ% uïXè<t∙├╞ ■┴ê╚<r├ïX║