OSI/MHS Management Programming Manual

Examples
OSI/MHS Management Programming Manual—424824-001
C-3
SPI Example in TACL
#SET spi_buflen 3900
==
== ROUTINE initialize
==
== Initialize the SPI request for ADD MTA
==
[#DEF initialize ROUTINE |BODY|
== ADD MTA command
#SET err [#SSINIT add_mta_req [MHS^val^SSID] zcom^cmd^ADD
/OBJECT zcom^obj^mta/ ]
[#IF err |THEN| spi_error [err] from #SSINIT in ADD MTA]
#SET err [#SSPUTV add_mta_req zspi^tkn^MANAGER mhs_mgr_name]
[#IF err |THEN| spi_error [err] from #SSPUT zcom^tkn^MANAGER in ADD MTA]
#set mta_objname MTAX
#set mta_objname_len 4
#SET err [#SSPUT add_mta_req zcom^tkn^OBJNAME [mta_objname_len]
[mta_objname] ]
[#IF err |THEN| spi_error [err] from #SSPUT zcom^tkn^objname in ADD MTA]
[#IF NOT [#VARIABLEINFO /EXISTENCE/ mta_add_params] |THEN|
#DEF mta_add_params STRUCT LIKE zmhs^ddl^mta^add^params;
]
#SET err [#SSNULL zmhs^map^mta^add^params mta_add_params]
[#IF err |THEN| spi_error [err] from #SSNULL mta_add_params ]
==
== Initial elements in MTA_ADD_PARAMS
#set mta_add_params:zits^mta^name:zlength 12
#set mta_add_params:zits^mta^name:zstring MTAISTHENAME
#set mta_add_params:zisocountry:zlength 2
#set mta_add_params:zisocountry:zstring US
#set mta_add_params:zadmd:zlength 8
#set mta_add_params:zadmd:zstring MTA2ADMD
#set mta_add_params:zprmd:zlength 8
#set mta_add_params:zprmd:zstring MTA2PRMD
#SET err [#SSPUTV add_mta_req Zmhs^map^mta^add^params mta_add_params]
[#IF err |THEN| spi_error [err] from #SSPUTV mta_add_params in ADD MTA]
[#IF NOT [#VARIABLEINFO /EXISTENCE/ mta_params] |THEN|
#DEF mta_params STRUCT LIKE zmhs^ddl^mta^params;
]
#SET err [#SSNULL zmhs^map^mta^params mta_params]
[#IF err |THEN| spi_error [err] from #SSNULL mta_params ]
==
== Initial elements in MTA_PARAMS
#set mta_params:zvalidation^required:zflag zmhs^val^boolean^true
#set mta_params:zour^logon:zlength 12
#set mta_params:zour^logon:zstring MTA2OURLOGON
#set mta_params:zits^logon:zlength 12
#set mta_params:zits^logon:zstring MTA2ITSLOGON
#set mta_params:zour^logon^rsp:zlength 0
#set mta_params:zits^logon^rsp:zlength 0
#set mta_params:zapplic^context zmhs^val^applic^context^tp4
#set mta_params:zdialog^mode zmhs^val^dialog^mode^mono
#set mta_params:zmax^msg^len 20000
#set mta_params:zlocal^initiate:zflag &
zmhs^val^boolean^true
#set mta_params:zremote^initiate:zflag &