------------------------SDT2˙˙˙˙DetermineTransId--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText-----------------------------------1------------------------------------------------- ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙DetermineTransIdex--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙()[8(! Procedure DetermineTransId)]})]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------2˙˙˙˙()[(! ÖĐ! ú–!(d)[h(! ÖĐ)[k(! 6)[n(! 6d! )]][ q(! 6y)][&t(! 6 d! Čd)[8(! )][Œ (!4Ą!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P˙˙˙˙!%()PageOrder-------------------------------------1------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------˙˙˙˙˙˙˙˙˙˙˙˙--------˙˙˙˙!%()HeadingText-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------˙˙˙˙()[8(! ;fpar RETURNS transactionId)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------3˙˙˙˙(!„Ȅú!"„ú„Č)[6w(! 6 ú! Čd)[8(! i:=1)][(!„^„!"„„^)[ z(! 6 ! Čd)[ 8(! i> maxNumOfTransactionIds)][’(!„ô„&!"„&„ô)[8(! 6 ! False)][ }(! 6 &! Čd)[8(! TransactionTable(i)! used)][• (! XŠXŠź!"Šź X)[8(! 6Łq! True)][6€(! 6&ź! Čd)[8(! i=i+1)][˜(!2Š Š9Š9Šw„w„!" „Š )[(! 6„w!)][)z()]]]][›(!„Š„ź!"„ź„Š)[8(! 6Ł! False)][6ƒ(! 6 ź! Čd)[8 (! transactionId:=i)][ž(!„ „R!"„R„ )['†(! 6 R! Čd)[8(! )]]]]]]][Ą(!*čÂ~Â~9„9„R!"„RčÂ)[8(! 6—9! True)][(! 6„9!´)][)†()]]]]]]][9‰(! 62ú! )[8(! DCL i Integer;)]]]]}---------------------------------------------------Í˙˙˙˙