------------------------SDT2 AllocateCSAId--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- AllocateCSAIdueId--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! ;RETURNS csaID CSAID;)]};)]}Type;)]}IdType;)]}----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! Procedure AllocateCSAId)]}Id)]}------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------/()[(! l! 22!(d)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][9(! 62! )[8(! DCL I  !%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ------------!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------(!4!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------PInteger;)]][&t(! 6,! d)[8(! )][z(!!")[6w(! 6! d)[8(! I := 1)][(!&X! "X&)[ }(! 6RX! ,)[8(! I > numOfCSAs)][(! !" )[8(! 6! False)][ (! 6R  ! ,)[8(! CSATable(I)! Used)][(!"!")[8(! 6! True)][6(! 6! d)[8(! I := I +1)][(!2~&&??X!"X~)[(! 6?!)][)}()]]]][(!!")[8(! 6! False)][6(! 6! d)[8(! csaID := I)][(!~!"~)['(! 6! d)[8(! )]]]]]]][(!*~!"~)[8(! 6! True)][(! 6!)][)()]]]]]]]]]}]]}(!!"()[w(!GSDL)]} 6! d)[8(! I := I + 1)][(!2F_^_^ww!"F)[(! 6^!)][)}()]]]]]]]]]][(!!")[8(! 6! False)]['(! 6! d)[8(! )]]]]][(!LxxX!"xXL)[8(! 6! True)][6(! 6X! d)[8(! CSAId := CSAId + 1)][(!"xx!"x)[(! 6!)][)()]]]]]]]]][9(! 62! )[8(! DCL I Integer;)]]]]}--------------------------------------------------------------------------------------------------------------------------------------------t