------------------------SDT2’’’’GetIndexFromPtr--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText------------------------------------!%()HeadingText----------------------------------- ’’’’’’’’’’’’’’’’’’’’’’’’GetIndexFromPtr------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------’’’’6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------’’’’()[8(!? ;FPAR IN table TableType; IN ptr PId; RETURN index IndexType;)]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------U’’’’()[8(! Procedure GetIndexFromPtr)]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------1’’’’()[(! ÖŠ! ś–!(d)[h(! ÖŠ)[k(! 6)[n(! 6d! )]][ q(! 6y)][9t(! 6d! )[8(! DCL i In!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- --------’’’’’’’’’’’’’’’’----’’’’!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------’’’’teger;)]][&w(! 6&ś! Čd)[8(! )][(!Š^А!"АŠ^)[6z(! 6&! Čd)[8(! i:=1)][’(!ŠōŠ&!" Š&Šō)[ }(! 6&&! Čd)[8(! i> MaxNumOfRecords)][•(!ŠŠŠ¼!"Š¼ŠŠ)[8(! 6££! False)][ €(! 6& ¼! Čd)[8(! table(i)! used)][˜(!Š ŠR!"ŠRŠ )[8(! 6£9! True)][ ƒ(! 6&R! Čd)[8(! table(i)!instance =ptr)] [›(!&„„č!"č&„)[8(! 6©! False)][(! 6„!“)][6†(! 6,č! Čd)[8(! i:=i+1)][ž(!2 L~}~} Š Š&!"Š&L)[(! 6Š !)][)}()]]]][”(!жŠč!"Ščж)[8(! 6£Ļ! True) ][6‰(! 6&č! Čd)[8(! index=i)][¤(!ŠLŠ~!"Š~ŠL)['Œ(! 6&~! Čd)[8(! )]]]]]]][§(!&īīč!"č&ī)[8(! 6©! False)][)†()]]]][Ŗ(!*īXĻXĻeŠeŠ~!"Š~īX)[8(! 6če! True)][(! 6Še!“)][)Œ()]]]]]]]]]}----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------0’’’’(!4Ŗ!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P’’’’