home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr2.zip
/
CSEADD.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
7KB
|
206 lines
* Program CSEADD - Allows adding a record to MEMBERS file, checking validity.
Store T to MATCHING
Do while MATCHING
Store ' ' to lastname
Store ' ' to firstname
Store ' ' to homephone
Accept ' LAST NAME ' to lastname
Accept ' FIRST NAME ' to firstname
Accept ' HOME PHONE ' to homephone
Accept ' Ok? ' to XX
If !($(XX,1,1)) = 'Q' .or. !($(XX,1,1)) = 'Y' .or. xx=' '
Store F to MATCHING
endif
enddo
If !(XX) <> 'Q'
Select primary
Store F to MATCH
Store T to MATCHING
Find &lastname
If # = 0
Store F to MATCHING
else
Do while MATCHING .and. last:name=lastname .and. .not. EOF
If first:name = firstname
If len(trim(homephone)) = 1 .or. home:phone = homephone
Store T to MATCH
Store F to MATCHING
endif
endif
If .not. MATCH
SKIP
endif
enddo
endif
If MATCH
Store T to INVALCC
Accept ' Duplicate name found. Do you want to edit it? [Y/N/D] ' to INNF
Do while INVALCC
Store F to invalcc
Do case
CASE !(INNF) = 'Q'
Store F to MATCHING
CASE !(INNF) = 'Y'
Store # to recnumb
Store 'A' to ESEL
Store 0.00 to pd1
Store 0.00 to pd2
Store pd1+val($(paid1,1,9)) to pd1
Store pd2+val($(paid2,1,9)) to pd2
* Replace amount:due with amount-(pd1+pd2)
Store amount-(pd1+pd2) to amount:due
Store $(paid1,10,8) to pdate1
Store $(paid2,10,8) to pdate2
ERASE
Set intensity on
Store $(dates,6,2)+'/'+$(dates,8,2) to ODATES
Store STR(#,5) to RECSTR
@ 2,10 say ' CSEVENT - Editing record number '+RECSTR
@ 5,1 say 'LAST NAME ' GET LAST:NAME
@ 5,40 SAY 'FIRST NAME ' GET FIRST:NAME
@ 6,40 say 'HOME PHONE ' get home:phone
@ 6,1 SAY 'ADDRESS ' GET ADDRESS
@ 7,1 SAY 'CITY,STATE ' GET CITY:STATE
@ 7,40 SAY 'ZIP CODE ' GET ZIP
@ 8,1 SAY 'BIRTHDATE ' GET BIRTHDATE PICTURE 'XX/XX/XX-XXX'
@ 8,40 SAY 'MEMBSTATUS ' GET MEMBSTATUS
@ 9,1 SAY 'SS/SC MEMB ' GET SS:SC:MEMB
@ 9,40 SAY 'COMMENTS ' get COMMENTS
@ 11,1 say 'LODGING = '+ROOM
@ 12,1 say 'TRANSPORTATION = '+transpor
@ 10,40 say 'AMOUNT $' get amount
@ 11,40 say 'PAID-1 $' get pd1
@ 12,40 say 'PAID-2 $' get pd2
@ 13,40 say 'OWED $' say amount:due
@ 13,1 say 'SESSIONS ' GET SESSIONS
@ 14,1 say 'EQUIPMENT ' GET EQUIPMENT
@ 15,10 say 'Press <ctrl-W> when editing is complete.'
READ
If val($(paid1,1,9))<>pd1
Replace paid1 with str(pd1,9,2)+' '+indate
endif
If val($(paid2,1,9))<>pd2
Replace paid2 with str(pd2,9,2)+' '+indate
endif
* Replace amount:due with amount-(pd1+pd2)
Set intensity off
CASE !(INNF) = 'N' .or. !(INNF) = 'D'
Store F to MATCHING
OTHERWISE
Accept 'Enter [Y/N/D] only ' to INNF
Store T to invalcc
ENDCASE
enddo
endif
If .not. MATCH
Append BLANK
Replace LAST:NAME with lastname
Replace first:name with firstname
Replace home:phone with homephone
Store 0.00 to pd1
Store 0.00 to pd2
Replace amount with val(ecost)
ERASE
Replace dates with indate+','+indate
Set intensity on
@ 3,15 say 'CSEVENTS Adding Record '+STR(#,5)
@ 7,1 say 'LAST NAME ' GET LAST:NAME
@ 7,40 SAY 'FIRST NAME ' GET FIRST:NAME
@ 8,40 say 'HOME PHONE ' get home:phone
@ 8,1 SAY 'ADDRESS ' GET ADDRESS
@ 9,1 SAY 'CITY,STATE ' GET CITY:STATE
@ 9,40 SAY 'ZIP CODE ' GET ZIP
@ 10,1 SAY 'BIRTHDATE ' GET BIRTHDATE PICTURE 'XX/XX/XX-XXX'
@ 10,40 SAY 'MEMB STATUS' GET MEMBSTATUS
@ 11,1 SAY 'SS/SC MEMB ' GET SS:SC:MEMB
@ 11,40 SAY 'COMMENTS ' get COMMENTS
@ 12,18 say 'AMOUNT $' get amount
@ 12,40 say 'PAID-1 $' get pd1
@ 13,40 say 'PAID-2 $' get pd2
@ 14,1 say 'SESSIONS ' GET SESSIONS
@ 15,1 say 'EQUIPMENT ' GET EQUIPMENT
@ 17,20 say 'Press ctrl-W to continue'
READ
Replace paid1 with str(pd1,9,2)+' '+indate
Replace paid2 with str(pd2,9,2)+' '+indate
* Replace amount:due with amount-(pd1+pd2)
Set intensity off
?
Store F to goodlodg
Do while .not. goodlodg
Do while .not. goodlodg
? ' VALID LODGINGS: ',romvalid
? 'Lodging code format: LLL RRRR - LLL=Building, RRRR=Room/Bed'
Accept ' Select a Lodging code (3,4 characters) ' to inlodg
Store inlodg+' ' to inlodg
Store $(inlodg,1,3) to inlodgx
Store $(inlodg,5,5) to inlodgy
? 'BUILDING: ',inlodgx,' ROOM/BED: ',inlodgy
Store '='+inlodgx to innlodge
Store T to goodlodg
If !(inlodg)='Q '.or.inlodg=' '
Store ' ' to inlodg
else
If @(innlodge,romvalid)=0
? 'Lodging code is not found. Enter another.'
Store F to goodlodg
endif
endif
enddo
If inlodg<>' '
Select secondary
Store 'ROOM='+$(inlodg,1,9) to xx
Find &xx
If #=0 .or. $(spact,15,22)=' '
Append blank
Replace spact with xx+$(P.last:name,1,11)+' '+$(P.first:name,1,10)
Select primary
Replace room with inlodg
else
? 'This Lodging is already assigned. Enter another.'
Store F to goodlodg
endif
endif
enddo
? 'Now assigned: ',xx,' ',P.last:name,P.first:name
?
Store F to goodlodg
Do while .not. goodlodg
? 'VALID TRANSPORTATION CODES: ',tranvalid
Accept ' Select a Transportation code (5 characters) ' to inlodg
STORE INLODG+' ' to inlodg
Store $(inlodg,1,5) to inlodg
Store '='+inlodg to innlodge
Store T to goodlodg
If !(inlodg)='Q '.or.inlodg=' '
Store ' ' to inlodg
else
If @(innlodge,tranvalid)=0
? 'Transportation code is not found. Enter another '
Store F to goodlodg
endif
endif
enddo
If !(inlodg)<>' '
Select primary
Store $(last:name,1,11)+' '+$(first:name,1,10) to nfind
Replace transpor with inlodg
Select secondary
Append blank
Replace spact with 'TRAN='+inlodg+' '+nfind
? 'Now assigned: ',spact
else
? 'Now assigned: TRAN=_____'
endif
RETURN
S ' get COMMENTS
@ 11,1 say 'LODGING = '+ROOM
@ 12,1 say 'TRANSPORTATION = '+transpor
@ 10,40 say 'AMOUNT $' get amount
@ 11,40 say 'PAID-1 $' get pd1
@ 12,40 say 'PAID-2 $' get pd2
@ 13,40 say 'OWED $' say amount:due
@ 13,1 say 'SESSIONS ' GET SESSIONS
@ 14,1 say 'EQUIPMENT ' GET EQUIPMENT
@ 15,10 say 'Press <ctrl-W> when editing is complete.'
RE