added LSL2 stored procedures

LSL2/STPROC/FIX_PRS_PROP.txt

@@ -0,0 +1,80 @@
+COMPILE ROUTINE FIX_PRS_PROP(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, RList, ErrMsg, obj_Prod_Spec, Btree.Extract, obj_PRS_Stage
+DECLARE FUNCTION Get_Status, Set_Printer, obj_Prod_Spec, NextKEy
+
+$INSERT PROD_SPEC_EQUATES
+$INSERT QUOTE_SPEC_EQU
+$INSERT PART_EQUATES
+$INSERT RLIST_EQUATES
+
+$INSERT CUST_EPI_PART_EQUATES
+$INSERT PRS_PROP_EQUATES
+$INSERT CLEAN_INSP_EQUATES
+
+EQU TAB$ TO \09\:'/'
+
+EQU CRLF$ TO \0D0A\
+
+EQU PDISPLAY$ TO 8
+
+OPEN 'PROD_SPEC' TO PSNTable ELSE
+	DEBUG
+	GOTO Bail
+END
+
+
+OPEN 'PRS_STAGE' TO StageTable ELSE
+	DEBUG
+	GOTO Bail
+END
+
+OPEN 'PRS_PROP' TO PropTable ELSE
+	DEBUG
+	GOTO Bail
+END
+
+
+SelectSent = 'SELECT PRS_PROP '
+
+RList(SelectSent,TARGET_ACTIVELIST$,'','','')
+
+DEBUG
+
+
+Done = 0
+RecCnt = 0
+FixCnt = 0
+
+LOOP
+	READNEXT PropKey ELSE Done = 1
+UNTIL Done 
+	
+	
+
+	READ PropRec FROM PropTable,PropKey  THEN
+	
+		PropRec<PRS_PROP_MET_SLOT$> = 1
+		
+		WRITE PropRec ON PropTable,PropKey THEN
+			Send_Info(RecCnt:' ':PropKey)
+		END
+		
+		RecCnt += 1
+	END
+		
+
+	
+REPEAT
+
+GOTO Bail
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END
+
+