TYPE mass measure = REAL:
EN‘D_TYPE: - - mass_mcasurc
TYPE mcasurc_valuc « SELECT
(Icnglh_mcasurc.
mass_mcasurc,
plane_anglc_measurc,
sol id_anglc_mcasure.
arca_mcasurc.
voltimcmeasurc,
paramclcr_valuc.
context_dependenl_mcasu re,
dcscriptive_measurc,
positivelengthmcasure.
pc>sitive_planc_anglc_measure.
count_mcasurc) ;
END_TYPE; - - mcasurc_valuc
TYPE minute_in_hour ~ INTEGER:
WHERE
wrl: «0 <= SELF! AND (SELF <= 59));
END TYPE; - - minutc_in_hour
TYPE month_in_vcar_numbcr » INTEGER;
WHERE
wrl: «1 <= SELF) AND (SELF <= 12));
END_TYPE; - - month_in_year_numbcr
TYPE paramctcr_valuc = REAL:
END_TYPE; - - paramctcr_value
TYPE pcurve or suifacc = SELECT
(peurve,
surface) ;
END_TYPE; - - pcurve_or_suifacc
TYPE person_oiganization_itcm = SELECT
(change,
siartwork,
change_rcqucsl,
starticqucsl,
configuration_itcin,
product.
product_dc finition_lormat ion.
product_dcfinilion,
contract,
security_dassificat»on) ;
END_TYPE; - - person_organization_itcm
TYPE pcrson_organization_selccl « SELECT
(person,
organization.
pcrson_and _organization) ;
END_TYPE; - - person_organization_sclcct
TYPE plane_angle_mcasure = REAL;
END_TYPE; - - planc_angle_mcasurc
TYPE positivc_length_measurc = lcngth_mcasure:
WHERE
wrl: (SELF > 0):
ENDJTYPE; - - positivelengthmcasure