------------------------SDT2 ProcessMoveCallSegments--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- ProcessMoveCallSegments----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(!( ;FPAR IN mcsArg MoveCallSegmentsArg;)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->()[8(!# Procedure ProcessMoveCallSegments)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------9()[(! l! 22!(K)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][9w(! 62! )[8(!& DCL i  !%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ------------!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------(!4!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P Integer, cs ExportCSType;)]][&t(! 6! d)[8(! )][}(!R^R!"RR^)[6z(! 6! d)[8(! i := 1)][(! RR&!"R&R)[ (! 6&! ,)[8(!" i > Length (mcsArg!callSegments))][(!RR!"RR)[8(! 6k ! false)][(! 6! ,!)[8(!F ExportCSReq (mcsArg!callSegments(i)! sourcecallSegment, mcsArg!legs))][1(!"99  !" 9)[7 (! 6!)[8(!! to call GetCSAfromCSAId (csaID))]]][(!RR!"RR)[(! 6R!Z)][3(! 6! d)[8( ! WaitForCSA_ Export)][(!RRL!"RLR)[(! 6L! d!)[8(! ExportCS_ Resp (cs))][(!RR!"RR)[(! 6! ,!)[8(!9 ImportCSReq (mcsArg!callSegments(i)! newCallSegment,cs))][1(!"--!"-)[7(! 6!)[8(!? to call GetCSAfromCSAId (mcsArg!targetCallSegmentAssociation))]]][(!RxR!"RRx)[(! 6R!Z)][3(! 6! d)[8(! WaitForCSA_ Import)][(!RR@!"R@R)[(! 6@! d!)[8(! ImportCS_ Resp)][(!RR!"RR)[6(! 6! d)[8(! I := I + 1)][(!2R:Rl&l& R R&!"R&R:)[(! 6R !)][)()]]]]]]]]]]]]]]]][(!qq!"q)[8(! 6! true)]['(! 6@! d)[8(! )]]]]]]]][9(! 6! )[8(!x /* Request the CSA to export the sourceCS. Leg renumbering is performed by the CSA prior to exporting the sourceCS. */)]][9(! 6x! )[8(!^ /* Note: Import the previously exported CS into the targetCSA with the id newCallSegment. */)]]]]}------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------