home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr4.zip
/
MUPADD1.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
3KB
|
99 lines
* Program MUPADD1 - Allows entry of a new MEMBER name.
Store T to ADDEDREC
Append BLANK
Replace LAST:NAME with lastname
Replace first:name with firstname
Replace home:phone with homephone
If MSEL='S'
Replace membstatus with $(membstatus,1,6)+'1N'
If msel='SCATT'
Replace ss:sc:memb with aname1
endif
endif
Store F to WARADDR
If INH1 = 'M'
If len(XADDRESS) = 1
Store T to WARADDR
Store STR(CURFNUM,3) to curfnumb
If $(curfnumb,1,2) = ' '
Store '00'+$(curfnumb,3,1) to curfnumb
else
If $(curfnumb,1,1) = ' '
Store '0'+$(curfnumb,2,2) to curfnumb
endif
endif
else
Replace ADDRESS with XADDRESS
Replace CITY:STATE with XCITYST
Replace ZIP with XZIP
endif
else
Store STR(CURFNUM,3) to curfnumb
If $(curfnumb,1,2) = ' '
Store '00'+$(curfnumb,3,1) to curfnumb
else
If $(curfnumb,1,1) = ' '
Store '0'+$(curfnumb,2,2) to curfnumb
endif
endif
endif
Replace familycode with lastcode+firstcode+curfnumb+INH2+FCODE9
ERASE
Replace dates with indate+','+indate
Set intensity on
@ 2,15 say 'MPROFILE Adding Record '+STR(#,5)
If WARADDR
@ 3,10 say '** WARNING - no head-of-household designated; new FAMILYCODE.'
endif
@ 5,2 say 'This person is designated the following FAMILYCODE'
@ 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 ' GET BIRTHDATE PICTURE 'XX/XX/XX-XXXXXXXXXXXX'
@ 11,37 say 'MEMB.STATUS ' 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,57 say 'DATES :'+dates
@ 5,53 say 'unless changed ' get FAMILYCODE
@ 7,1 say 'LAST NAME ' get last:name
@ 7,37 say 'FIRST NAME ' get first:name
@ 18,10 say 'Press <ctrl-W> when editing is complete.'
READ
Set intensity off
If INH1 = 'H'
Store LAST:NAME to lastname
Store ADDRESS to XADDRESS
Store CITY:STATE to xcityst
Store zip to xzip
Store home:phone to homephone
Store familycode to xfamcode
else
If INH1 = 'S'
Store ' ' to xaddress
Store ' ' to xcityst
Store ' ' to homephone
Store ' ' to xfamcode
endif
endif
RETURN
TES 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,57 say 'DATES :'+dates
@ 5,53 say '