FUNCTION get_rvd
(input : requirement_assignment_item, id : STRING) : SET [0:?] OF requirement_view_definition;
LOCAL rvd : SET[0:?] OF Requirement_view_definition := []; --this gives us access TO the information base ra : SET[0:?] OF Requirement_assignment_armx :=[]; END_LOCAL; ra := bag_to_set((QUERY(rai <* USEDIN (input, 'REQUIREMENT_ASSIGNMENT_XIM.'+ 'REQUIREMENT_ASSIGNMENT_ARMX.ASSIGNED_TO') | (rai.id = id))));
-- iterate over ra REPEAT i := 1 TO SIZEOF(ra) BY 1; rvd := rvd + ra[i].assigned_requirement; END_REPEAT;
RETURN(rvd); END_FUNCTION; -- get_rvd
|