home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
manage.zip
/
SEARCH1B.PRG
< prev
next >
Wrap
Text File
|
1986-05-29
|
3KB
|
130 lines
** Last revision: April 6, 1986 at 15:44
* search1b.prg detailed string search
CLOS INDEX
CLEA
@ 10,20 SAY 'SELECT FIELD NUMBER '
@ 12,20 SAY 'ENTER SEARCH DATA '
@ 14,0 SAY ' 1. Address 2. Code 3. City 4. State 5. Zip '
@ 15,0 SAY ' 6. Manager 7. Phone 8. Type 9. # Units 10. Acquired '
@ 16,0 SAY '11. Rent Co. 12. Phone 13. Street 14. City 15. Checks '
@ 17,0 SAY '16. Notes 17. Updated '
STOR ' ' TO EVAR
DO WHIL VAL(EVAR) < 1 .OR. VAL(EVAR) > 17
@ 10,20 SAY 'SELECT FIELD NUMBER ' GET EVAR PICTURE '99'
READ
ENDD
STOR ' ' TO EPART
@ 12,20 SAY 'ENTER SEARCH DATA ' GET EPART
READ
IF VAL(EVAR) = 1
STOR 'BADDR' TO PARTFIELD
ENDI
IF VAL(EVAR) = 2
STOR 'BCODE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 3
STOR 'BCITY' TO PARTFIELD
ENDI
IF VAL(EVAR) = 4
STOR 'BCITY' TO PARTFIELD
ENDI
IF VAL(EVAR) = 5
STOR 'BCITY' TO PARTFIELD
ENDI
IF VAL(EVAR) = 6
STOR 'BDATA' TO PARTFIELD
ENDI
IF VAL(EVAR) = 7
STOR 'BDATA' TO PARTFIELD
ENDI
IF VAL(EVAR) = 8
STOR 'BDATA' TO PARTFIELD
ENDI
IF VAL(EVAR) = 9
STOR 'BDATA' TO PARTFIELD
ENDI
IF VAL(EVAR) = 10
STOR 'BDATA' TO PARTFIELD
ENDI
IF VAL(EVAR) = 11
STOR 'REMIT' TO PARTFIELD
ENDI
IF VAL(EVAR) = 12
STOR 'PHONE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 13
STOR 'REMITAD' TO PARTFIELD
ENDI
IF VAL(EVAR) = 14
STOR 'REMITC' TO PARTFIELD
ENDI
IF VAL(EVAR) = 15
STOR 'CHECKS' TO PARTFIELD
ENDI
IF VAL(EVAR) = 16
STOR 'BNOTES' TO PARTFIELD
ENDI
IF VAL(EVAR) = 17
STOR 'BUPDATE' TO PARTFIELD
ENDI
STOR TRIM(EPART) TO EPART
STOR .t. TO LOOKING
GO TOP
STOR bcode TO name
LOCA FOR UPPER(EPART) $ UPPER(&PARTFIELD)
DO WHIL LOOKING .AND.(.NOT.EOF())
CLEA
@ 1,26 SAY "DETAILED BUILDING SEARCH MODE"
@ 2,0 SAY line
@ 3,1 SAY 'Address: Code:'
@ 4,4 SAY 'City: State: Zip:'
@ 6,1 SAY 'Manager: Phone:'
@ 7,4 SAY 'Type: Number of Units:'
@ 9,0 SAY 'Acquired: Purchase Price:'
@ 11,28 SAY "Send Rental Payments To:"
@ 12,00 SAY "Company:"
@ 12,54 SAY "Phone:"
@ 13,01 SAY "Street:"
@ 14,03 SAY "City:"
@ 15,00 SAY "Chks To:"
@ 16,2 SAY 'Notes:'
@ 18,52 SAY 'Updated:'
@ 19,0 SAY line
@ 3,10 SAY baddr
@ 3,61 SAY bcode
@ 4,10 SAY SUBSTR(bcity,1,20)
@ 4,44 SAY SUBSTR(bcity,21,2)
@ 4,61 SAY SUBSTR(bcity,23,5)
@ 6,10 SAY SUBSTR(bdata,1,25)
@ 6,61 SAY SUBSTR(bdata,26,13)
@ 7,10 SAY SUBSTR(bdata,39,2)
@ 7,61 SAY SUBSTR(bdata,41,3)
@ 9,10 SAY SUBSTR(bdata,44,8)
@ 9,61 SAY bprice PICTURE '999,999,999.99'
@ 12,10 SAY remit
@ 12,61 SAY phone
@ 13,10 SAY remitad
@ 14,10 SAY remitc
@ 15,10 SAY checks
@ 17,10 SAY bnotes
@ 18,61 SAY bupdate
STOR bcode TO name
STOR ' ' TO EOPTION
@ 20,15 SAY 'Find <N>ext instance or <S>elect this one'
DO WHIL EOPTION <> 'N' .AND. EOPTION <> 'S'
@ 20,58 GET EOPTION PICTURE '!'
READ
ENDD
IF EOPTION = 'S'
STOR .F. TO LOOKING
LOOP
ENDI
IF EOPTION = 'N'
CONT
LOOP
ENDI
ENDD
SET INDEX TO &dr.:code
SEEK name
RETU