------------------------SDT2’’’’GetTransFromSRSM--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText-----------------------------------1------------------------------------------------- ’’’’’’’’’’’’’’’’’’’’’’’’GetTransFromSRSM-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------’’’’6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------’’’’()[8(! Procedure GetTransFromSRSM)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------2’’’’()[(! ÖŠ! ś–!(d)[h(! ÖŠ)[k(! 6)[n(! 6d! )]][ q(! 6y)][9}(! 6d! )[8(! DCL i In (!4°!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P’’’’!%()PageOrder-------------------------------------1------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------’’’’’’’’’’’’--------’’’’!%()HeadingText-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------’’’’()[8(!= ;fpar IN SRSM PId; RETURNS transactionID TransactionIdType;)]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------S’’’’teger;)]][&t(! 6&ś! Čd)[8(! )][ƒ(!Š^А!"АŠ^)[6€(! 6&! Čd)[8(! i:=1)][‰(!ŠōŠ&!" Š&Šō)[ †(! 6&&! Čd)[8(! i> MaxNumOfTransactionIds)][(!ŠŠŠ¼!"Š¼ŠŠ)[8(! 6££! False)][ Œ(!  6&¼! Čd)[8(! transactionTable(i)! used)][•(!Š ŠR!"ŠRŠ )[8(! 6£9! True)][ ’(! 6&R! Čd)[8(!# transa ctionTable(i)!sRSMPtr =SRSM)][Ŗ(!&„„č!"č&„)[8(! 6©! False)][(! 6„!“)][6§(! 6,č! Čd)[8(! i :=i+1)][°(!2L~}~} Š Š&!"Š&L)[(! 6Š !)][)†()]]]][›(!жŠč!"Ščж)[8(! 6£Ļ! True)][6˜(! 6&č! Čd)[8(! transactionId:=i)][”(!ŠLŠ~!"Š~ŠL)['ž(! 6&~! Čd)[8(! )]]]]]]][­(!&īīč!"č&ī)[8(! 6©! False)][)§()]]]][¤(!*īXĻXĻeŠeŠ~!"Š~īX)[8(! 6če! True)][(! 6Še!“)][)ž()]]]]]]]]]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------V’’’’