------------------------SDT2 ˙˙˙˙AllocateIndex--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText------------------------------------!%()HeadingText----------------------------------- ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙AllocateIndex-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ˙˙˙˙6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙()[8(!4 ;FPAR IN table TableType; RETURNS index IndexType;)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------J˙˙˙˙()[8(! Procedure AllocateIndex)]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------/˙˙˙˙()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙!%()HeaderText------------------------------------!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1------------------------------------------------- ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙!%&()LinkEndpoints----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------˙˙˙˙()[(! lü! ú–!(d)[h(! lü)[k(! 6)[n(! 6d! )]][ q(! 6˙)][9Ą(! 62! )[8(! DCL i In teger;)]][&t(! 6 ! Čd)[8(! )][z(!„ô„&!"„&„ô)[6w(! 6 &! Čd)[8(! i:=1)][€(!„Š„ź!" „ź„Š)[ }(! 6 ź! Čd)[8(! i> MaxNumOfRecords)][†(!„ „R!"„R„ )[8(! 69! False)][ ƒ(! 6  R! Čd)[8(! table(i)! used)][›(! „Š„Šč!"Šč „)[8(! 6Ł! True)][6˜(! 6&č! Čd)[8(! i=i+1)][ž (!2ŠLŠ—^—^للź!"„źŠL)[(! 6„Ł!)][)}()]]]][Œ(!„ś„č!"„脜)[8(! 6Ď ! False)][6‰(! 6 č! Čd)[8(! index:=i)][’(!„L„~!"„~„L)['(! 6 ~! Čd)[8(! )]]]]]]][•(!*čîFîFe„e„~!"„~čî)[8(! 6_e! True)][(! 6„e!´)][)()]]]]]]]]]}------------------------------------------------------------------------------˛˙˙˙˙(!4Ą!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P˙˙˙˙