FUNCTION limdwpcd_get_ppdl
(input : SET [0:?] OF plated_passage_armx) : SET [0:?] OF plated_passage_dependent_land_armx;
LOCAL sspc : SET OF Plated_passage_dependent_land_armx := []; --this gives us access TO the information base END_LOCAL;
REPEAT i := 1 TO SIZEOF(input) BY 1; sspc := sspc + bag_to_set(USEDIN(input[i],'LAND_XIM.PLATED_PASSAGE_DEPENDENT_LAND_ARMX.REFERENCE_PLATED_PASSAGE')); END_REPEAT;
RETURN(sspc); END_FUNCTION; -- limdwpcd_get_ppdl
|