added LSL2 stored procedures

LSL2/STPROC/FIX_SUB_PART.txt

@@ -0,0 +1,66 @@
+COMPILE ROUTINE FIX_SUB_PART(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Send_Dyn,Send_Info, Send_Dyn, Set_Status, RList, ErrMsg
+DECLARE FUNCTION Get_Status, Set_Printer
+
+
+$INSERT PART_EQUATES
+$INSERT	SUB_PART_EQUATES
+
+
+EQU TARGET_ACTIVELIST$ to 5
+
+
+OPEN 'PART' TO PartTable ELSE
+	ErrMsg('Unable to open PART')
+	GOTO Bail
+END	
+
+OPEN 'SUB_PART' TO SubPartTable ELSE
+	ErrMsg('Unable to open SUB_PART')
+	GOTO Bail
+END	
+
+
+SelectSent = 'SELECT SUB_PART WITH PART_NO = ""'
+
+RList(SelectSent,TARGET_ACTIVELIST$, "", "", "")
+
+IF Get_Status(errCode) THEN
+	ErrMsg(errCode)
+	GOTO Bail
+END
+
+DEBUG
+
+RecCnt = 0
+Done = 0
+
+LOOP
+	READNEXT SubPartNo ELSE Done = 1
+UNTIL Done
+	READ SubPartRec FROM SubPartTable,SubPartNo THEN
+		PartNos = SubPartRec<SUB_PART_PART_NO$>
+		IF  PartNos = '' THEN
+			DELETE SubPartTable,SubPartNo THEN	
+				RecCnt += 1	
+				Send_Dyn(RecCnt:' ':SubPartNo:' ':PartNos)
+			END
+		END	
+	END
+	
+REPEAT
+
+
+
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END
+
+