
Sample Scripts
308660-14.00 Rev 00
A-17
################################################################
#
# 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:
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/95481/bget -n wfFddiEntry attr $nextid value nextid
Comentários a estes Manuais