added LSL2 stored procedures

LSL2/STPROC/FIX_SAP_COMM_LOG.txt

@@ -0,0 +1,36 @@
+COMPILE ROUTINE Fix_SAP_Comm_LOG(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Send_Dyn,Send_Info
+DECLARE FUNCTION Get_Status, Set_Printer
+
+
+$INSERT WO_MAT_EQUATES
+
+OPEN 'SAP_COMM_LOG' TO FileIn ELSE
+	DEBUG
+	GOTO Bail
+END
+
+SELECT FileIn
+
+DEBUG
+
+Done = 0
+LOOP
+	READNEXT Seq ELSE Done = 1
+UNTIL Done
+	READ SapRec FROM FileIn,Seq THEN
+		Send_Info(Seq)
+	END ELSE
+		debug
+	END
+REPEAT
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END