------------------------SDT2 ExportEventRecord--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- ExportEventRecord----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(!E ; FPAR IN LegId LegType, IN/OUT ExportEventRecord EventRecordType; )]}]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------[()[8(! Procedure ExportEventRecord)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------3()[(! l! !(P)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][9(! 6! )[8(!Q DCL ev!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ------------!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------ent EventTypeBCSM := origAttemptAuthorized, serviceKey ServiceKey := 1;)]][&(! 6&! d)[8(! )][(!&!"&)[6(! 6&&! d) [8(!j ExportEventRecord(Event)(ServiceKey)!eventTypeBCSM := EventTable(LegId)(Event)(ServiceKey)!eventTypeBCSM)][(!!")[6(! 6&! d)[8(! f ExportEventRecord(Event)(ServiceKey)!monitorMode := EventTable(LegId)(Event)(ServiceKey)!monitorMode)][(! R!"R )[6(! 6&R! d)[8(!A EventTable( LegId)(Event)(ServiceKey)!monitorMode := transparent)][(!!")[ (! 6&! d)[8(! ServiceKey = numOfServiceKeys)][ (!& ~!"~&)[8(! 6L! false)][6 (! 6,~! d)[8(! ServiceKey := ServiceKey + 1)][(!2  &!" &)[(! 6 !)][)()]]]][(!L~!"~L)[8(! 6L! true)][6(! 6&~! d)[8(! ServiceKey := 1)][(!!")[ (! 6&! d)[8(! event = callAccepted)][(!&FF!"&F)[8(! 6x! false)][6(! 6,! d)[8(! Event := Succ(Event))][(!2''  &!"&)[(! 6!)][)()]]]][(!x!"x)[8(! 6x! true)]['(! 6&! d)[8(! )]]]]]]]]]]]]]]]]]]}-----------(!4!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------