
Writing Technician Interface Scripts
A-16
308660-14.00 Rev 00
mi/jointfilesconvert/95481/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_PRNTR:
if -ic “$matchcct“ != “$cctname” then ; goto :FI_RCV_NXT:
let match_entries = $match_entries + 1
:FI_PRNTR:
printf “%4d %4d “ ${value[$Slot]} \
${value[$Node]}
printf “%-8.8s %10u %10u ” “$cctname“ ${value[$CrcErrRx]} \
${value[$OverrunRx]}
let invalid = ${value[$InvalidFrame]} + ${value[$MacErrRx]}
gosub :MAC_EXTRACT:
let invalid = $invalid + $mac_sum
printf “%10u %10u ” $invalid ${value[$RxOversized]}
echo
cutenv -c9-15 name2 “$cctname“
if ${name2[0]} = 1 then; \
printf “%4s %4s *%-7.7s\n” ““ “” “${name2[1]}“
:FI_RCV_NXT:
let i = $i + 1
goto :FI_RxLOOP:
#
# 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/95481/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
Commenti su questo manuale