74 lines
1.2 KiB
Plaintext
74 lines
1.2 KiB
Plaintext
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
|