
Sample Scripts
117382-A Rev. A A-19
: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 \
wfFDDIParityErrTx
array -a attr wfFDDIRingErrRx wfFDDIRingErrTx wfFDDISmtRingErrRx \
wfFDDIPortOpErr
array -a attr wfFDDIInternOpErr wfFDDIHostErr
enum 1 Cct Slot Node ParityErrRx ParityErrTx i
enum $i RingErrRx RingErrTx SmtRingErrRx PortOpErr InternOpErr HostErr
echo
echo “FDDI Module System Errors:”
echo “--------------------------”
echo
printf “%-4.4s %-4.4s %-8.8s %-10.10s %-10.10s %-10.10s %-10.10s \
%-10.10s\n” “” “” “” “” “” “ Port” “ Internal” “”
printf “%-4.4s %-4.4s %-8.8s %-10.10s %-10.10s %-10.10s %-10.10s %-
10.10s\n” “” “” “” “ Parity” “ Ring” “Operation” “Operation”
“ Host”
printf “%-4.4s %-4.4s %-8.8s %-10.10s %-10.10s %-10.10s %-10.10s \
%-10.10s\n” “Slot” “Conn” “Circuit” “ Errors” “ Errors” \
“ Errors” “ Errors” “ Errors”
Komentarze do niniejszej Instrukcji