Avaya Writing Technician Interface Scripts Manual de usuario descargar pdf (Pagina 95)

Sample Scripts

114089 Rev. A A-17

# Gosub to extract errors in the MAC object from the octet

strings...

# ...returns sum in “mac_sum”

:MAC_EXTRACT:

setenv mac_sum 0

if $?(wfFddiMacEntry.wfFddiMacErrorCts.${nextid}) = 0 then ; \

return

array mac_attr wfFddiMacErrorCts/HEX_BYTES

wfFddiMacLostCts/HEX_BYTES

enum 1 errorcts lostcts

mi/jointfilesconvert/91351/bget wfFddiMacEntry mac_attr $nextid mac_value mac_next

cutenv -d. -f1- mac_err ${mac_value[$errorcts]}

cutenv -d. -f1- mac_lost ${mac_value[$lostcts]}

let mac_sum = $mac_sum + 0x${mac_err[8]}

let mac_sum = $mac_sum + (256 * 0x${mac_err[7]})

let mac_sum = $mac_sum + (65536 * 0x${mac_err[6]})

let mac_sum = $mac_sum + (16777216 * 0x${mac_err[5]})

let mac_sum = $mac_sum + 0x${mac_lost[8]}

let mac_sum = $mac_sum + (256 * 0x${mac_lost[7]})

let mac_sum = $mac_sum + (65536 * 0x${mac_lost[6]})

let mac_sum = $mac_sum + (16777216 * 0x${mac_lost[5]})

return

################################################################

# Transmit Errors screen...

################################################################

:FI_XMIT:

if $# < 3 then; goto :FI_Tx1:

let cmdlen = strlen(“$3”)

let i = strindex(“errors”, “$3”)

if $i = 1 then ; if $cmdlen >= 3 then ; goto :FI_Tx1:

goto :FI_HELP:

:FI_Tx1:

# check for circuit name to match on...

if $# <= 3 then ; goto :FI_XMIT_NM:

setenv cmd “$4”

let len = strlen(cmd)

if $len < 3 then ; goto :FI_HELP_SHOW:

1 2 ... 90 91 92 93 94 95 96 97 98 99 100 ... 121 122

Sin comentarios

Avaya Writing Technician Interface Scripts Manual de usuario Pagina 95