------------------------SDT2&HomeLocRegister----------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- HomeLocRegister------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------5--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! process HomeLocRegister)]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------/()[8(! (1, 1); /* CIF CurrentPage 1 */ /* CIF TEXT (114, 900), (1273, 496) */ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */)]}-------------------------------------------------------------------------------()[(! l! 22!(d)[4(! l)[7(! 6)[:(! 6d! d)]][ =(! 6)][2z(! 6^,! d!S)[8(! )!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1-------------------------------------------------DefinitionPage------------------------------------ !%()HeaderText------------------------------------1------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------- --------][}(!!")[(! 6!Z)][3(! 6^! d!S)[8(! ready)]]]]]]} HomeRegister HomeRegister_t; /* CIF End Text */ /* CIF()[(! l! 22!(d)[@(! l)[C(! 6)[F(! 6d! d)]][ I(! 6)][3(! 6^,! d!S)[8(! r 2*/ /* CIF START (264, 200), (160, 80) */ /* CIF 3finitionPageeode TextMode 4 */ /* CIF Keep SpeciDefinitionPageied */ )]][2z()[()][}()[()][3()[ ady) ( eady)][(!!")[(! 6^! d!S!)[8(! updateHLR)][1(!&X!"X&)[7 (! 6X!! !S)[8(! (mobile_id, MSC_id, IMEIstatus) /* CIF TASK (655, 420), (555, 58) */ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */)]]][(!& !"&)[6(! 6^! d!S)[8(! )][1(!&X!"X&)[7(! 6X!! !S)[8(! HomeRegister(mobile_id)!empty := FALSE /* CIF TASK (620, 508), (624, 56) */ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */)]]][(! !" )[6(! 6^! d!S)[8(! )][1(!&X!"X&)[7(! 6X!! !S)[8(! HomeRegister(mobile_id)!MSC_id := MSC_id /* CIF TASK (620, 594), (624, 56) */ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */)]]][(!L!"L)[6(! 6^L! d!S)[8(! )][1(!&~X~!"X~&~)[7(! 6XL!! !S)[8(! HomeRegister(mobile_id)!IMEI_OK := IMEIstatus /* CIF OUTPUT (828, 680), (207, 80) */ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */)]]][(!!")[(! 6^! d!S!)[8(! endUpdHLR)][1(!&FXF!"XF&F)[7(! 6X!! !S)[8(! to sender /* CIF NEXTSTATE (853, 790), (160, 80) */ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */)]]][(!x!"x)[(! 6!Z)][3(! 6^! d!S)[8(! -)]]]]]]]]]]]]]]]]}()]]]]]]]]]]]}-------(!4U!5!7)[!(! DefinitionPage!)[!(! 1!!2!3)[!(! 2!!3)[!(! 3!!3)]]]]}-------------------------------()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[(! l! 22!(d)[h(! l)[k(! 6)[n(! 6d! )]][ t(! 6 )][9w(! 62! !S)[8(!  newtype HR_element_t struct empty BOOLEAN; MSC_id MSC_ID_t; /* last mobile switch where the mobile was. */ IMEI_OK BOOLEAN; /* if FALSE, mobile not allowed (stolen ...). */ endnewtype; newtype HomeRegister_t ARRAY( mobile_ID_t, HR_element_t); endnewtype; dcl MSC_id MSC_ID_t, mobile_id mobile_ID_t, IMEIstatus BOOLEAN, HomeRegister HomeRegister_t; /* CIF End Text */ /* CIF TEXT (89, 120), (447, 50) */ /* CIF Keep Specific Geode Font 'fixed' 'fixed' 'fixed'*/ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */ /* Home Location Register */ /* CIF End Text */ /* CIF CurrentPage 1 */ /* CIF START (264, 200), (160, 80) */ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */ )]]]]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ()[(! l! 22!(d)[L(! l)[O(! 6)[R(! 6d! d)]][ U(! 6)][3(! 6! d!S)[8(! ready)][(!^^^!"^^^)[(! 6! d!S!)[8(! getMSC)][1(!!")[7(! 6!! !S)[8(!B (mobile_id /* CIF COMMENT (1801, 277), (162, 109) */ /* CIF Keep Specific Geode TextMode 3 */ /* CIF Keep Specific Geode Modified */) comment 'Get the home switch of the mobile.' /* CIF DECISION (1409, 403), (545, 103) */ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */)]]][(!^^R!"^R^)[ (! 6R! d! S)[8(! HomeRegister(mobile_id)!empty)][(!"^^,,!",^)[8(! 6k! (FALSE /* CIF OUTPUT (1264, 617), (475, 101) */ /* CIF Keep Specific Geode T!extMode 4 */ /* CIF Keep Specific Geode Modified */))][(! 6! d!S!)[8(! MSCresp)][1(!!")[7(! 6!"! !S)[8(! (TRUE, HomeRegister( mobile_id) !MSC_id) to sender /* CIF ANSWER (1810, 537), (106, 50) */ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */)]]][(!",,Y#Yr!"r,)[(! 6r!Z)][3(! 6r! d!S)[8(! -)]]]]][(!"^^!"^$)[8(! 6! (TRUE /* CIF OUTPUT (1775, 617), (176, 90) */ /* CIF Keep Specific Geode TextMode 4 */ /* CIF Keep Specific Geode Modified */))][(! 6L! d!S!)[8(! MSCresp)]%[1(!F!"F)[7(! 6F!! d!S)[8(! (FALSE) to sender /* CIF COMMENT (1971, 623), (101, 80) */ /* CIF Keep Specific Geode TextMode 3 */ /&* CIF Keep Specific Geode Modified */ comment 'MSC not found.')]]][(!"YYr!"r)[(! 6Y!)][)()]]]]]]]]]]]}--------------------