added LSL2 stored procedures

LSL2/STPROC/LOAD_EPI_SPEC.txt

@@ -0,0 +1,73 @@
+COMPILE ROUTINE LOAD_EPI_SPEC(Dummy)
+ROWDEF(CHARSTR)
+
+
+DECLARE SUBROUTINE Send_Dyn
+
+DECLARE FUNCTION obj_Prod_Spec
+
+$INSERT PROD_SPEC_EQU
+$INSERT QUOTE_SPEC_EQU
+
+
+OPEN 'PROD_SPEC' TO PSNTable ELSE 
+	DEBUG
+	GOTO Bail
+END
+
+OPEN 'EPI_SPEC' TO EpiSpecTable ELSE
+	DEBUG
+	GOTO Bail
+END
+
+SELECT PSNTable
+
+RecCnt = 0
+Done = 0
+
+LOOP
+	READNEXT PSNo ELSE Done = 1
+UNTIL Done
+	READ PSRec FROM PSNtable,PSNo THEN
+		LayerSpecs = obj_Prod_Spec('GetLayerProp',PSNo:@RM:@RM:1)
+		
+		LayerCnt = COUNT(LayerSpecs,@RM) + (LayerSpecs NE '')
+		
+		LayerNos = ''
+		
+		FOR I = 1 TO LayerCnt
+			LayerSpec	= FIELD(LayerSpecs,@RM,I)		;* Take the Ith Layer
+			LayerSet	= FIELD(LayerSpec,@FM,1)
+			LayerSpec	= FIELD(LayerSpec,@FM,2,99)	;* LayerSpec without the LayerSet
+			
+			LayerNo = ''
+			IF LayerCnt = 1 THEN
+				LayerNo = 1
+			END ELSE
+			
+				IF NOT(NUM(LayerSet)) THEN
+					IF LayerSet[1,1] = 'L' THEN
+						LayerSet[1,1] = ''
+						LayerNo = LayerSet
+					END
+				END
+			END
+			
+			IF LayerNo NE '' THEN LayerNos<1,-1> = LayerNo
+		NEXT I
+		
+		Send_Dyn(PSNo:' ':LayerNos)
+		
+
+	END	;* End of PSRec Read
+REPEAT
+
+
+
+
+
+* * * * * * * 
+Bail:
+* * * * * * *
+
+END