------------------------SDT2  IsCSA--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText-----------------------------------  IsCSA---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(!+ ;FPAR IN Ptr PId; RETURNS R AnswerType;)]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------A()[8(! Procedure IsCSA)]}}----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------)()[(! l! 22!()[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][&(! 6R! d)[8(! )][!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ------------!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------(!,!",)[ (! 6 ! ,)[8(! ExistingCSA (ptr))][(!&!"&)[8(! 6?! True)][6(! 6R! d)[8(! R := Yes)][ (! !" )['(! 6R ! d)[8(! )]]]]]["(!LF F!"FL)[8(! 6_! False)][6 (! 6! d)[8(! R := No)][(!"FF !" F)[ (! 6!)][)()]]]]]]]]]}(! 62! )[8(! DCL I Integer;)]]]]})[8(! 6! False)][(! 6!)][6(! 6&! =()[w(!GSDL)]} I := I+1)][(!2~!"~)[(! 6!)][)()]]]][(!!")[8(! 6! True)][6(! 6R! d)[8(! R := Yes)][ (!~x!"x~)['(! 6Rx! d)[8(! )]]]]]]][(!R!"R)[8(! 6! False)][)()]]]][(!&r&r !"r &)[8(! 6?! True)][6 (! 6 ! d)[8(! R := No)][(!"rrx!"xr)[(! 6!)][)()]]]]]]]]][9(! 62! )[8(! DCL I Integer;)]]]]} DCL I Integer;)]]]]}gNoType;)]]]]}---------------------------------------------------------------------------------------------------------------------------------W(!4"!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P