OSI/MHS Management Programming Manual

Examples
OSI/MHS Management Programming Manual—424824-001
C-5
SPI Example in TACL
#set mta_params:zlocsselector7:zlength 0
#set mta_params:zloctselector7:zlength 0
#set mta_params:zlocnsap7:zlength 0
#set mta_params:zx121country:zlength 3
#set mta_params:zx121country:zstring 310
#set mta_params:zcountryname:zlength 21
#set mta_params:zcountryname:zstring UNITEDSTATESOFAMERICA
#SET err [#SSPUTV add_mta_req Zmhs^map^mta^params mta_params]
[#IF err |THEN| spi_error [err] from #SSPUTV mta_params in ADD MTA]
]
== Error handling
[#DEF io_error ROUTINE |BODY|
#PUSH err error_msg
SINK [#ARGUMENT/TEXT err/ WORD]
SINK [#ARGUMENT/TEXT error_msg/TEXT END]
#OUTPUT [h]*** Error [err] [error_msg]
#RAISE UnrecoverableIOError
#UNFRAME
]
[#DEF spi_error ROUTINE |BODY|
#FRAME
#PUSH err error_msg
SINK [#ARGUMENT/TEXT err/ WORD]
SINK [#ARGUMENT/TEXT error_msg/TEXT END]
#OUTPUT [h]*** Error [err] [error_msg]
#RAISE UnrecoverableSPIError
#UNFRAME
]
[#DEF scp_error ROUTINE |BODY|
#FRAME
#PUSH err error_msg
SINK [#ARGUMENT/TEXT err/ WORD]
SINK [#ARGUMENT/TEXT error_msg/TEXT END]
[#IF err = -10 |THEN|
[#IF subsys_status '=' "REINITIALIZING" |THEN|
#RAISE unavailable
|ELSE|
#RAISE reinitialize
]
|ELSE|
#OUTPUT [h]*** Error [err] [error_msg]
]
#RAISE UnknownSCPError
#UNFRAME
]
==
== ROUTINE open_scp
==
== Open the SCP process
==
[#DEF open_scp ROUTINE |BODY|