From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 app/baisy/2.2.1-schulis/src/db fetch.baisy | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 app/baisy/2.2.1-schulis/src/db fetch.baisy

(limited to 'app/baisy/2.2.1-schulis/src/db fetch.baisy')

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;
+
-- 
cgit v1.2.3