------------------------SDT2 IsCS--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- IsCSM---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(!+ ;FPAR IN Ptr PId; RETURNS R AnswerType;)]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------A()[8(! Procedure IsCS)]}]}----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------(()[(! l! 22!(d)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][9(! 62! )[8(!$ DCL Ca!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ------------!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------llSegmentID CallSegmentID;)]][&t(! 6! d)[8(! )][(!^!"^)[6(! 6! d)[8(! CallSegmentID := 1)][ (!X!"X)[ (! 6XX! ,)[8(! CSA(CallSegmentID)! Used)][(! !" )[8(! 6 ! True)][ (! 6X ! ,)[8(!! Ptr = CSA(CallSegmentID)! CSPtr)][(!!")[8(! 6! False)][ (! 6X!  ,)[8(! CallSegmentID = numOfCSs)][(!Xee!"Xe)[8(! 6~! False)][6(! 6^! d)[8(!" CallSegment ID := CallSegmentID+1)][(!2x??X!"Xx)[(! 6?!)][)()]]]][(!!" )[8(! 6! True)][6(! 6! d)[8(! R := No)][(!"x!"x)[(! 6!)]['(! 6! d)[8(! )]]]]]]][(!k~k~!"~k)[8(! 6! True)][6(! 6! d)[8(! R := Yes)][(!"~x~!"~x)[)()]]]]]][(!*X!"X)[8(! 6! False)][()[w(!GSDL)]}(! 6! False)][(! 6!)][)()]]]]]]]]]}}]]}------------------------------------------------------------------------------------------------------------------------------------(!4!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P(! 6!)][)()]]]]]]]]]}]]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------: