------------------------SDT2 GetDPIndex--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- GetDPIndexex-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(!? ; FPAR IN eventType EventTypeBCSM, IN/OUT eventIndex INTEGER;)]};)]}}----------------------------------------------------------------------------------------------------------------------------------------------------------------------U()[8(! Procedure GetDPIndex)]})]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------,()[(! l! 22!(P)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][9(! 6 d! )[8(!7 DCL le!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ------------!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------gId LegType := 1, serviceKey ServiceKey := 1;)]][&(! 6! d)[8(! )][(!RXR!"RRX)[6(! 6! d)[8(!" legId : = I2O(1), serviceKey := 1)][(!RR !"R R)[6(! 6 ! d)[8(! eventIndex := 1)][(!RR!"RR )[ (! 6! )[8(!F EventTable(legId)(eventIndex)(serviceKey)! EventTypeBCSM = eventType)][(!RxR@!"R@Rx)[8(! 6k! false)][  (! 6@! )[8(! eventIndex = numOfBCSMEvents)][(!RRl!"RlR)[8(! 6k!! false)][6(! 6l! ,)[8( ! eventIndex := eventIndex + 1)][(!2RRMwMwRR!"RR)[(! 6R!)][)()]]]][(!xx!" x)[8(! 6! true)][(! 6x!)]['(! 6! d)[8(! )]]]]][(!"RxRxx!"x(!4!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------Rx)[8(! 6! true)][)()]]]]]]]]]]]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------M