summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/JOIN/JOIN.SKL
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--v4.0/src/CMD/JOIN/JOIN.SKL22
1 files changed, 22 insertions, 0 deletions
diff --git a/v4.0/src/CMD/JOIN/JOIN.SKL b/v4.0/src/CMD/JOIN/JOIN.SKL
new file mode 100644
index 0000000..dd6806f
--- /dev/null
+++ b/v4.0/src/CMD/JOIN/JOIN.SKL
@@ -0,0 +1,22 @@
1;JOIN Utility
2;Message Service Routine
3
4:util JOIN ;BEGIN UTIL ;AN000;
5
6:class 1 ;EXTENDED ERRORS ;AN000;
7;------- ---------------
8;:use EXTEND8 ;Insufficient memory
9
10:class 2 ;PARSE ERRORS ;AN000;
11;------- ------------
12;:use PARSE1 ;Too many parameters
13;:use PARSE3 ;Invalid switch
14;:use PARSE10 ;Invalid parameter
15
16:class A ;COMMON & DEFINED MSGS ;AN000;
17;------- ------------
18:use 1 COMMON1 ;Incorrect DOS version ;AN000;
19:def 2 "Directory not empty",CR,LF ;AN000;
20:use 12 COMMON12 ;Cannot %1 a network drive ;AN000;
21
22:end ;END UTIL ;AN000;