------------------------SDT2 ˙˙˙˙GetCSAIdfromCSA--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙GetCSAIdfromCSA------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙()[8(!( ;FPAR IN CSA PId; RETURNS csaID CSAID;)]};)]}}IdType;)]}----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->˙˙˙˙()[8(! Procedure GetCSAIdfromCSA)]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------1˙˙˙˙()[(! lü! ú–!(d)[h(! lü)[k(! 6)[n(! 6d! )]][ q(! 6)][&t(! 6 ú! Čd)[8(! )][z !%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- --------˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙----˙˙˙˙!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------˙˙˙˙(!4š!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P˙˙˙˙(!„^„!"„„^)[6w(! 6 ! Čd)[8(! I := 1)][€(!„ô„X!"„X„ô)[ }(! 6îX! ,– )[8(! I > numOfCSAs)][†(!„î„ !"„ „î)[8(! 6! False)][ ¤(! 6î ! ,–)[8(! CSATable(I)! Used)][§(!„ś „č!"„č„ś)[8(! 6Ď! True)][ ƒ(! 6źč! Č)[8(! CSATable(I)!CSAPtr = CSA)][˜(!źLXLX!"Xź L)[8(! 6qe! False)][(! 6XL!´)][6•(! 6ô! Čd)[8(! I := I+1)][›(!2XxX‘‘?„?„X!"„X Xx)[(! 6„?!)][)}()]]]][Œ(!„°„!"„„°)[8(! 6É! True)][6ś(! 6 ! Čd)[8(! csaID := I)][š(!„x„Ş!"„Ş„x)['(! 6 Ş! Čd)[8(! )]]]]]]][Ş(!îkXkX!"Xîk)[8(! 6q„! False)][)•()]]]][ž(!*Ł-Ł-‘„‘„Ş!"„ŞŁ)[8(! 6F‘! True)][(! 6„‘!´)][)()]]]]]]][9ł(! 6d,! )[8(! DCL I Integer;)]]]]}]]}(! 6„e!´)][)()]]]]]]][9ł(! 6d,! )[8(! DCL I Integer;)]]]]}-----------------------------------------------------------9˙˙˙˙()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙