added LSL2 stored procedures

LSL2/STPROC/FIX_RDS_LAYER_INDEX.txt

@@ -0,0 +1,56 @@
+COMPILE ROUTINE FIX_RDS_Layer_Index(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, Send_Dyn, obj_WO_Step, Set_Status, Btree.Extract, obj_RDS, RList, ErrMsg
+DECLARE SUBROUTINE obj_Tables, obj_RDS2
+DECLARE FUNCTION Get_Status, Set_Printer, obj_RDS, ErrMsg, obj_Tables
+
+$INSERT RDS_EQU
+$INSERT WO_LOG_EQU
+$INSERT ORDER_EQU
+$INSERT PROD_SPEC_EQU
+$INSERT RDS_LAYER_EQUATES
+
+EQU TARGET_ACTIVELIST$ TO 5
+
+
+OPEN 'RDS_LAYER' TO FileIn ELSE
+	debug
+	GOTO Bail
+END
+
+OPEN 'RDS' TO RDSTable ELSE
+	debug
+	GOTO Bail
+END
+
+SELECT FileIn
+
+
+
+LockedRecords = ''
+Done = 0
+RecCnt = 0
+LOOP
+	READNEXT LayerKey ELSE Done = 1
+UNTIL DONE
+	READ LayerRec FROM FileIn,LayerKey THEN
+		RDSNo = LayerRec<RDS_LAYER_RDS_NO$>
+		RelatedKeys = XLATE('RDS',RDSNo,RDS_RDS_LAYER_KEYS$,'X')
+		LOCATE LayerKey IN RelatedKeys USING @VM SETTING POS ELSE
+			Send_Dyn(LayerKey)
+		END
+		RecCnt += 1
+	
+		Send_Info(RecCnt)
+	END
+REPEAT
+
+DEBUG
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END