------------------------SDT2  AddCSAId--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText-----------------------------------  AddCSAIdueId--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(![ ;FPAR IN csaID CSAID, /* The CSA id to be assigned. */ IN Ptr PId; /* The CSA pointer. */)]}/)]}reated CSA or not? */ IN Ptr PId; /* The CSA pointer. */)]}--------------------------------------------------------------------------------q()[8(! Procedure AddCSAId)]}Id)]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*()[(! l! 22!(d)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][&t(! 6! d)[8(! )][ !%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ------------!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------(!4!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P(!&!"&)[6(! 6R&! ,)[8(! CSATable(CSAId)! Used := True)][(!!")[6(! 6 R! ,)[8(! CSATable(CSAId)! CSAPtr := Ptr)][ (!!")[6 (! 6R! ,)[8(! ExistingCSA (Ptr) := True)][(! L~!"~L)['(! 6~! d)[8(! )]]]]]]]]]]]]}]}(! Rt(I)!Used)][(!^RR!"^R)[8()[w(!GSDL)]}rue)][6(! 6d! d)[8(! I := I + 1)][(!2Le2e2??X!"XL)[(! 6?!)][)()]]]][(!!")[8(! 6! False)][6(! 6^! d)[8(! Rt(I)!Used := True,)][1(!&X!"X&)[7(! 6X!)[8(!( Rt(I)!CSAId := CSAId, Rt(I)!CSA := Ptr)]]][(!"L--x!"xL)[(! 6-!)]['(! 6Rx! d)[8(! )]]]]]]][(!&x!"x&)[8(! 6?! True)][(! 6!)][)()]]]]]][(!,F,F!"F,)[8(! 6_E! False)][6(! 6! d)[8(! I := 1)][(!F&FX!"FXF&)[ (! 6X! d)[8(! I > MaxNumOfCSAs)][(!FF !"F F)[8(! 6_! False)][ (! 6 ! d)[8(! Rt(I)!Used)][(!FF!"FF)[8(! 6_! True)][ (! 6! d)[8(! Rt(I)!CV = Ptr)][(!rr!"r)[8(! 63! False)][(! 6r!)][6(! 6! d)[8(! I := I+1)][(!2rr-:-:?F?FX!"FXr)[(! 6F?!)][)()]]]][(!FLF!"FFL)[8(! 6_e! True)][6(! 6!  d)[8(! Rt(I)!CSAId := CSAId)][(!"FF--x!"xF)[(! 6-!)][)()]]]]]][(!RrRr!"rR)[8(! 6k! False)][)()]]]][(!x!"x)[8(! 6! True)][)()]]]]]]]]][9(! 62,! )[8(! DCL I Integer;)]]]]}}------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->