Avaya Writing Technician Interface Scripts Manual do Utilizador descarregar pdf (Página 96)

Writing Technician Interface Scripts

A-18 114089 Rev. A

let j = strindex(“circuit”, cmd)

if $j != 1 then ; goto :FI_HELP_SHOW:

if $# != 5 then ; goto :FI_HELP_SHOW:

setenv matchcct “$5”

:FI_XMIT_NM:

setenv nextflag “”

setenv pattern “”

setenv nextid “*”

array attr wfFDDICct wfFDDISlot wfFDDINode wfFDDIAbortTx \

wfFDDIUnderrunTx

enum 1 Cct Slot Node AbortTx UnderrunTx

echo

echo “FDDI Module Transmit Errors:”

echo “----------------------------”

echo

printf “%-4.4s %-4.4s %-8.8s %-10.10s %-10.10s\n” \

“ ” “ ” “ ” “ Aborted ” “ Underrun ”

printf “%-4.4s %-4.4s %-8.8s %-10.10s %-10.10s\n” \

“Slot” “Conn” “Circuit” “ Frames ” “ Errors ”

printf “%-4.4s %-4.4s %-8.8s %-10.10s %-10.10s\n” \

“----” “----” “--------” “----------” “----------”

let i = 0

:FI_TxLOOP:

on error :FI_XMIT_NXT:

mi/jointfilesconvert/91351/bget -n wfFddiEntry attr $nextid value nextid

if “$nextid” = “END” then; let i = $i + 1; goto :FOOTER_AND_END:

let cctnum = ${value[$Cct]}

gosub :GETCCTNAME:

if “$matchcct” = “” then ; goto :FI_PRNTT:

if -ic “$matchcct” != “$cctname” then ; goto :FI_XMIT_NXT:

let match_entries = $match_entries + 1

:FI_PRNTT:

printf “%4d %4d %-8.8s %10u %10u\n” ${value[$Slot]}

${value[$Node]} \

“$cctname” ${value[$AbortTx]} ${value[$UnderrunTx]}

cutenv -c9-15 name2 “$cctname”

if ${name2[0]} = 1 then; \

printf “%4s %4s *%-7.7s\n” “” “” “${name2[1]}”

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

Sem comentários

Avaya Writing Technician Interface Scripts Manual do Utilizador Página 96