Avaya Writing Technician Interface Scripts Manuel d'utilisateur télécharger pdf (Page 92)

Writing Technician Interface Scripts

A-18

308660-14.00 Rev 00

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]}”

:FI_XMIT_NXT:

let i = $i + 1

goto :FI_TxLOOP:

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

# System Errors screen...

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

:FI_SYSTEM:

if $# < 3 then; goto :FI_Sy1:

let cmdlen = strlen(“$3”)

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

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

goto :FI_HELP:

:FI_Sy1:

# check for circuit name to match on...

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

setenv cmd “$4”

let len = strlen(cmd)

if $len < 3 then ; goto :FI_HELP_SHOW:

let j = strindex(“circuit”, cmd)

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

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

setenv matchcct “$5”

:FI_SYS_NM:

setenv nextflag “”

setenv pattern “”

setenv nextid “*”

array attr wfFDDICct wfFDDISlot wfFDDINode wfFDDIParityErrRx \

1 2 ... 87 88 89 90 91 92 93 94 95 96 97 ... 115 116

Pas de commentaire

Avaya Writing Technician Interface Scripts Manuel d'utilisateur Page 92