FUNCTION pu2dv_typeof
(input : assembly_component_armx) : SET [0:?] OF STRING;
LOCAL ac2ds : BAG OF Assembly_component_2d_shape_model := USEDIN(input,'PHYSICAL_UNIT_2D_DESIGN_VIEW_XIM.ASSEMBLY_COMPONENT_2D_SHAPE_MODEL.SHAPE_CHARACTERIZED_COMPONENT'); END_LOCAL; IF SIZEOF(ac2ds) > 1 THEN RETURN(?); END_IF; RETURN(TYPEOF(ac2ds[1])); END_FUNCTION; -- pu2dv_typeof
|