Oakland CPM Archive/oakcpm.iso/sigm/vol285/search1.prg

Text File | 1986-12-22 | 4.1 KB | 166 lines

**    Last revision: April 17, 1986 at 18:54
* search1.prg
STOR "DETAILED SEARCH" TO mode
CLEA
@ 10,20 SAY 'SELECT FIELD NUMBER '
@ 12,20 SAY 'ENTER SEARCH DATA '
@ 14,0 SAY ' 1. Lastname    2. Firstname   3. Spouse      4. Mr.         5. Title      '
@ 15,0 SAY ' 6. Company 1   7. Company 2   8. Co. Address 9. Co. Suite  10. Co. City   '
@ 16,0 SAY '11. Co. State  12. Co. Zip    13. Home Addr. 14. Apt        15. Home City  '
@ 17,0 SAY '16. Home State 17. Home Zip   18. Off. Phone 19. Home Phone 20. Salutation '
@ 18,0 SAY '21. Send Mail  22. List       23. Code       24. Update '
STOR '  ' TO EVAR
DO WHIL VAL(EVAR) < 1 .OR. VAL(EVAR) > 24
 @ 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 'LASTNAME' TO PARTFIELD
ENDI
IF VAL(EVAR) = 2
 STOR 'FNAME' TO PARTFIELD
ENDI
IF VAL(EVAR) = 3
 STOR 'SPOUSE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 4
 STOR 'MR' TO PARTFIELD
ENDI
IF VAL(EVAR) = 5
 STOR 'TITLE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 6
 STOR 'COMPANY1' TO PARTFIELD
ENDI
IF VAL(EVAR) = 7
 STOR 'COMPANY2' TO PARTFIELD
ENDI
IF VAL(EVAR) = 8
 STOR 'CADDRESS' TO PARTFIELD
ENDI
IF VAL(EVAR) = 9
 STOR 'SUITE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 10
 STOR 'CCITY' TO PARTFIELD
ENDI
IF VAL(EVAR) = 11
 STOR 'CST' TO PARTFIELD
ENDI
IF VAL(EVAR) = 12
 STOR 'CZIP' TO PARTFIELD
ENDI
IF VAL(EVAR) = 13
 STOR 'ADDRESS' TO PARTFIELD
ENDI
IF VAL(EVAR) = 14
 STOR 'APT' TO PARTFIELD
ENDI
IF VAL(EVAR) = 15
 STOR 'CITY' TO PARTFIELD
ENDI
IF VAL(EVAR) = 16
 STOR 'ST' TO PARTFIELD
ENDI
IF VAL(EVAR) = 17
 STOR 'ZIP' TO PARTFIELD
ENDI
IF VAL(EVAR) = 18
 STOR 'OPHONE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 19
 STOR 'PHONE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 20
 STOR 'DEAR' TO PARTFIELD
ENDI
IF VAL(EVAR) = 21
 STOR 'SEND' TO PARTFIELD
ENDI
IF VAL(EVAR) = 22
 STOR 'CS1' TO PARTFIELD
ENDI
IF VAL(EVAR) = 23
 STOR 'CS2' TO PARTFIELD
ENDI
IF VAL(EVAR) = 24
 STOR 'UPDATE' TO PARTFIELD
ENDI
CLOS INDEX
STOR TRIM(EPART) TO EPART
STOR .t. TO LOOKING
GO TOP
STOR UPPER(lastname) TO name
LOCA FOR UPPER(EPART) $ UPPER(&PARTFIELD)
DO WHIL LOOKING .AND.(.NOT.EOF())
 CLEA
 SET COLOR TO &revvideo
 @ 1,00
 @ 1,35 SAY 'DETAILED SEARCH'
 SET COLOR TO &stdvideo
 @ 3,3 SAY 'Lastname:                                  First & MI:'
 @ 4,5 SAY 'Spouse:                                  Address as:'
 @ 6,6 SAY 'Title:'
 @ 7,1 SAY 'Company #1:'
 @ 8,9 SAY '#2:'
 @ 9,0 SAY 'Co. Address:                                       Suite:'
 @ 10,7 SAY 'City:                        State:           Zip:'
 @ 12,2 SAY 'Home Addr:                                         Apt:'
 @ 13,7 SAY 'City:                        State:           Zip:'
 @ 14,2 SAY 'Telephone  Office:                          Home Phone:'
 @ 15,1 SAY 'Salutation:                              Send to office:'
 @ 16,7 SAY 'List: '
 @ 16,37 SAY 'Code:'
 @ 16,50 SAY 'Update:'
 @ 18,0 SAY line
 @ 3,13 SAY LASTNAME
 @ 3,58 SAY FNAME
 @ 4,13 SAY SPOUSE
 @ 4,58 SAY MR
 @ 6,13 SAY TITLE
 @ 7,13 SAY COMPANY1
 @ 8,13 SAY COMPANY2
 @ 9,13 SAY CADDRESS
 @ 9,58 SAY SUITE
 @ 10,13 SAY CCITY
 @ 10,44 SAY CST
 @ 10,58 SAY CZIP
 @ 12,13 SAY ADDRESS
 @ 12,58 SAY APT
 @ 13,13 SAY CITY
 @ 13,44 SAY ST
 @ 13,58 SAY ZIP
 @ 14,21 SAY OPHONE
 @ 14,58 SAY PHONE
 @ 15,13 SAY DEAR
 @ 15,58 SAY SEND
 @ 16,13 SAY CS1
 @ 16,44 SAY CS2
 @ 16,58 SAY UPDATE
 STOR UPPER(lastname) 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 DELIMITER ON
SET INDEX TO lastname
SEEK name
STOR .t. TO first
STOR .t. TO more
RETU