Category : Files from Magazines
Archive   : DBMS0591.ZIP
Filename : NEBEL2.MAY

1 PROCEDURE bookedit
2 * ----- open authors database -----
3 SELECT 1
4 USE authlist ORDER authname
5 * ----- open books database -----
6 SELECT 2
7 USE booklist ORDER authcode
8 * -----
9 SELECT authlist
10 * ----- call routine to set start colors -----
11 DO setcolor WITH "original"
12 * ----- call routine to allow selection of start point ---
13 DO spot_ptr
14 * ----- initialize boundary condition variable as open ---
15 mv_auxcond = ".T." *****NOTE: STEPHEN, Correct use?
16 * -- call record list routine with authors as target --
17 DO selslist WITH mv_auxcond,"listauth",22,6,5
18 * ----- check exit flag -----
19 IF mv_exit = "Y"
20 RETURN
21 ENDIF
22 * ----
23 CLEAR
24 * ----
25 SELECT booklist
26 * ----- spot pointer to first matching record -----
27 SEEK STR(authlist->authcode,3,0)
28 * ----- initialize boundary to selected author -----
29 mv_auxcond = "authlist->authcode = booklist->authcode"
30 * --- call record list routine with books as target --
31 DO selslist WITH mv_auxcond,"listbook",13,6,5
32 * ----- check exit flag -----
33 IF mv_exit = "N"
34 * ---- view full screen or whatever else you prefer ---
35 EDIT
36 * --
37 ENDIF
38 * --
39 CLOSE ALL
40 * ----
41 RETURN
41 * =================== End of Listing 2 ====================