added LSL2 stored procedures

LSL2/STPROC/FIX_PROD_VER.txt

@@ -0,0 +1,86 @@
+COMPILE ROUTINE FIX_PROD_VER(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, RList, ErrMsg, obj_Prod_Spec, Btree.Extract
+DECLARE FUNCTION Get_Status, Set_Printer,
+
+$INSERT PROD_VER_EQUATES
+
+
+
+
+OPEN 'PROD_VER' TO ProdVerTable ELSE
+	DEBUG
+	GOTO Bail
+END
+
+DEBUG
+
+SELECT ProdVerTable
+
+
+Done = 0
+RecCnt = 0
+
+LOOP
+	READNEXT PVNo ELSE Done = 1
+UNTIL Done
+	READ ProdVerRec FROM ProdVerTable,PVNo THEN
+	
+	
+		ReactType = ProdVerRec<PROD_VER_REACT_TYPE$>
+		
+		IF ReactType = 'EPS' THEN
+			ProdVerRec<PROD_VER_REACT_TYPE$> = 'ASM'
+			
+		
+			WRITE ProdVerRec ON ProdVerTable,PVNo THEN
+				RecCnt += 1
+				Send_Dyn(PVNo:' ':RecCnt:' ':ReactType:' -> ':ProdVerRec<PROD_VER_REACT_TYPE$>)
+				Send_Info(RecCnt)
+			END
+		END
+	END
+REPEAT
+
+GOTO Bail
+
+
+
+
+GOTO Bail
+*/
+
+RList('SELECT PROD_SPEC WITH STATUS = "A" AND WITH EPI_PART_NO NE "" ',5)
+
+SelCnt = @RECCOUNT
+DEBUG
+Done = 0
+RecCnt = 0
+FixCnt = 0
+LOOP
+	READNEXT ProdSpecNo ELSE Done = 1
+UNTIL Done 
+
+	READ ProdSpecRec FROM ProdSpecTable,ProdSpecNo THEN
+	
+		
+		obj_Prod_Spec('PushSplit',ProdSpecNo)
+		
+		FixCnt += 1
+			
+		Send_Info(RecCnt:' - ':FixCnt)
+		
+		
+	END	;* End of read
+	
+REPEAT
+
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END