FUNCTION limdwpcd_get_ppdl
(input : SET [0:?] OF Plated_passage) : SET [0:?] OF Plated_passage_dependent_land;
LOCAL
sspc : SET OF Plated_passage_dependent_land := []; --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_ARM.PLATED_PASSAGE_DEPENDENT_LAND.REFERENCE_PLATED_PASSAGE'));
END_REPEAT;
RETURN(sspc); END_FUNCTION; -- limdwpcd_get_ppdl
|