------------------------SDT2 ExportCS--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeaderText------------------------------------  ExportCS-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! Procedure ExportCS)]}----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*()[(! l! 22!(%)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][&t(! 6! d)[8(! )][z (!4!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P!%()PageOrder-------------------------------------1------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------!%()HeadingText-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------()[8(!S ;FPAR IN csID CallSegmentID, IN legs ExportLegsType; RETURNS cs ExportCSType;)]}-------------------------------------------------------------------------------------------------------------------------------------------------------i(!,!",)[6(! 6,! d)[8(! i := 1)][(!!")[ (! 6R! , )[8(! i > Length(legs))][(!~  X!"X~ )[8(! 6&! true)][6}(! 6@X! d)[8(! csa(csID)!used := false)][ ()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------(!!")[6(! 6@! d)[8(! cs := csa(csID)!csPtr)][(!R!"R)['w(! 6@! d)[8(! )]]]]]]][(!X!"X)[8(! 6q! false)][6(! 6R! ,)[8(!G legLocation := call GetLegLocation (legs(i)!sourceLeg! sendingSideID))][(!R!"R)[ (! 6R! ,)[8(! legLocation = csID)][(!~!"~)[8(! 6! true)][(! 6! !)[8(!] SetLegID (legs(i)!sourceLeg!sendingSideID, legs(i)!newLeg!sendingSideID) to csa(csID)!csPtr)][(!!")[6(! 6! d)[8(! i := i+1)][(!2r  !"r)[(! 6!)][)()]]]]]][(!*~3x3x!"~3)[8(! 6F! false)][(! 6!)][)()]]]]]]]]]]][9(! 6d^! )[8(!/ DCL i Integer, legLocation CallSegmentID;)]][9(! 6 ! )[8(!K /* Note: Leg renumbering as required by MoveCallSegments is performed. */)]]]]}---------------------------------------