added LSL2 stored procedures

LSL2/STPROC/FIX_SAP_COMM.txt

@@ -0,0 +1,55 @@
+COMPILE ROUTINE Fix_SAP_Comm(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
+DECLARE FUNCTION Get_Status, Set_Printer, obj_WO_Mat
+
+
+$INSERT WO_MAT_EQUATES
+
+OPEN 'SAP_COMM' 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
+		IF SapRec<1> = 'CASS_COMP' THEN
+			
+			WONo = SAPRec<3>
+			CassNo = SAPRec<4>
+			
+			WOMatRec = XLATE('WO_MAT',WONo:'*':CassNo,'','X')
+			
+			IF WOMatRec<WO_MAT_MAKEUP_BOX$> THEN
+				DELETE FileIn,Seq THEN
+					Send_Dyn(Seq:' ':WONo:'*':CassNo:' removed')
+				END
+			END ELSE
+			
+				WfrCnt = obj_WO_Mat('CurrWaferCnt',WONo:'*':CassNo:@RM:WOMatRec:@RM:1)
+				SapRec<5> = WfrCnt
+			
+				WRITE SapRec ON FileIn,Seq THEN
+					Send_Dyn(WONo:'*':CassNo:' ':WfrCnt)
+				END
+			END
+			
+		END
+	END
+REPEAT
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END