Shareware Overload/ShartewareOverload.cdr/database/manage.zip/SEARCH1B.PRG

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