home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr4.zip
/
MUPEDIT.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
4KB
|
121 lines
* Program MUPEDIT - Allows changing an existing MEMBER record
If !(ESEL) = 'X'
Replace SS:SC:MEMB with $(SS:SC:MEMB,1,4)+'*'
? " The above person's record has been made inactive."
Replace DATES with $(dates,1,5)+$(date(),1,2)+$(date(),7,2)
else
ERASE
Set intensity on
Store $(dates,6,2)+'/'+$(dates,8,2) to ODATES
Store STR(#,5) to RECSTR
If $(MEMBSTATUS,2,1) = '*' .or. $(SS:SC:MEMB,5,1) = '*'
Store RECSTR+' * INACTIVE as of '+ODATES+' *' to RECSTR
endif
Store home:phone to xphone
Store address to xaddress
Store city:state to xcityst
Store zip to xzip
If XSELECT = 'Y'
@ 2,10 say 'MPROFILE Editing record number '+RECSTR
@ 5,2 say 'This person is designated the following FAMILYCODE: '+familycode
@ 7,1 say 'LAST NAME = '+LAST:NAME
@ 7,37 SAY 'FIRST NAME= '+FIRST:NAME
@ 8,1 SAY 'ADDRESS = '+ADDRESS
@ 9,1 SAY 'CITY,STATE= '+CITY:STATE
@ 9,37 SAY 'ZIP CODE = '+ZIP
IF ZONING='Y'
@ 9,56 GET ZONE
ENDIF
@ 10,1 SAY 'HOME PHONE= '+HOME:PHONE
@ 10,37 SAY 'WORK PHONE= '+WORK:PHONE
@ 11,1 SAY 'BIRTHDATE = '
@ 11,13 SAY BIRTHDATE PICTURE 'XX/XX/XX-XXXXXXXXXXXX'
@ 11,37 SAY 'MEMBSTATUS= '+MEMBSTATUS
@ 12,1 say 'SPEC.DATES' get SPEC:DATES PICTURE 'XX/XX/XX,XX/XX/XXX'
@ 12,37 SAY 'OFFERINGEN' get OFFERINGEN
@ 13,1 SAY 'SS/SC MEMB' GET SS:SC:MEMB
@ 13,37 SAY 'TEACH-SSSC' GET TEACH:SSSC
@ 14,1 SAY 'SP/ACTIVTY' GET SP:ACTIVTY
@ 14,37 SAY 'COMMENTS ' GET COMMENTS
@ 15,1 say 'OTHER-ACTV' GET OTHER
@ 16,1 say 'INT/ABIL ' GET SKILLS
@ 16,52 say 'DATES '+dates
@ 18,10 say 'Press <ctrl-W> when editing is complete.'
READ
else
@ 2,10 say 'Editing record number '+RECSTR
@ 5,2 say 'This person is designated the following FAMILYCODE'
@ 5,53 say 'unless changed ' get FAMILYCODE
@ 7,1 say 'LAST NAME ' GET LAST:NAME
@ 7,37 SAY 'FIRST NAME ' GET FIRST:NAME
@ 8,1 SAY 'ADDRESS ' GET ADDRESS
@ 9,1 SAY 'CITY,STATE ' GET CITY:STATE
@ 9,37 SAY 'ZIP CODE ' GET ZIP
IF ZONING='Y'
@ 9,56 GET ZONE
ENDIF
@ 10,1 SAY 'HOME PHONE ' GET HOME:PHONE
@ 10,37 SAY 'WORK PHONE ' GET WORK:PHONE
@ 11,1 SAY 'BIRTHDATE '
@ 11,12 GET BIRTHDATE PICTURE 'XX/XX/XX-XXX'
@ 11,37 SAY 'MEMBSTATUS ' GET MEMBSTATUS
@ 12,1 SAY 'SPEC.DATES ' GET SPEC:DATES PICTURE 'XX/XX/XX,XX/XX/XXX'
@ 12,37 SAY 'OFFERINGEN ' GET OFFERINGEN
@ 13,1 SAY 'SS/SC MEMB ' GET SS:SC:MEMB
@ 13,37 SAY 'TEACH-SSSC ' GET TEACH:SSSC
@ 14,1 SAY 'SP/ACTIVTY ' GET SP:ACTIVTY
@ 14,37 SAY 'COMMENTS ' get COMMENTS
@ 15,1 say 'OTHER-ACTV ' GET OTHER
@ 16,1 say 'INT/ABIL ' get SKILLS
@ 16,55 say 'DATES '+dates
@ 18,10 say 'Press <ctrl-W> when editing is complete.'
?
READ
ENDIF
Set intensity off
If xaddress<>address.or.xcityst<>city:state.or.zip<>xzip.or.xphone<>home:phone
Replace DATES with $(dates,1,5)+INDATE
If FAUPDATE
?
? 'Now updating the addresses of all family members with this last name.'
Set exact off
Store $(last:name,1,3) to XX
Store $(familycode,1,7) to xfamcode
Store # to curfnum
Store address to xaddress
Store city:state to xcityst
Store zip to xzip
Store home:phone to xphone
Find &XX
If #<>0
Do while familycode<>xfamcode .and. last:name=XX
SKIP
enddo
Do while #<>0 .and. last:name = xx
If #<>curfnum
? home:phone,first:name,address,city:state,zip
Replace address with xaddress
Replace city:state with xcityst
Replace zip with xzip
Replace home:phone with xphone
endif
SKIP
Do while familycode<>xfamcode.and.last:name=XX
SKIP
enddo
enddo
endif
endif
endif
endif
endif
RETURN
xphone<>home:phone
Replace DATES with $(dates,1,5)+INDATE
endif
Set intensity off
endif
RETURN
' GET ADDRESS
@ 9,1 SAY 'CITY,STATE ' GET CITY:STATE
@