app/baisy/2.2.1-schulis/src/db fetch.baisy


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

PACKET fetch dd packet
DEFINES fetch dd, 
        server station
:  
 
LET save dd code = 36; 
 
DATASPACE VAR ds; 
 
INT VAR reply code, stat no:: station(myself);
 
PROC server station (INT CONST server stat): 
  stat no:= server stat 
ENDPROC server station; 

PROC fetch dd (TEXT CONST db name):  (* sf 4.12.86 *)
  forget(ds); ds:= nilspace;
  call (stat no/db name,save dd code,ds,reply code); 
  IF reply code = save dd code
    THEN
      forget (db name,quiet); 
      copy (ds,db name) 
  FI; 
  forget(ds)
ENDPROC fetch dd;
 
ENDPACKET fetch dd packet;