FUNCTION sts_get_general_datum_reference
(input : datum_reference_element) : general_datum_reference;
LOCAL general_datum_reference_bag : BAG OF general_datum_reference := (USEDIN(input, 'SHAPE_ASPECT_DEFINITION_SCHEMA.' + 'GENERAL_DATUM_REFERENCE.' + 'BASE')); END_LOCAL;
IF SIZEOF(general_datum_reference_bag) = 1 THEN RETURN (general_datum_reference_bag[1]); ELSE RETURN (?); END_IF; END_FUNCTION; -- sts_get_general_datum_reference
|