1 files changed, 28 insertions, 0 deletions
diff --git a/app/baisy/2.2.1-schulis/src/db fetch.baisy b/app/baisy/2.2.1-schulis/src/db fetch.baisy
new file mode 100644
index 0000000..5f40dd1
--- /dev/null
+++ b/app/baisy/2.2.1-schulis/src/db fetch.baisy
@@ -0,0 +1,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;
+