
Writing Technician Interface Scripts
A-8 117382-A Rev. A
################################################################
#
# Show Alerts screen...
#
################################################################
:FI_ALERTS:
setenv matchcct “xxx”
setenv nextflag “”
setenv pattern “”
setenv nextid “*”
array attr wfFDDICct wfFDDIState wfFDDIEnable wfFDDISlot
array -a attr wfFDDINode wfFDDIMadr/MAC_ADDRESS wfFDDIBofl
array -a attr wfFDDIBoflTmo wfFDDIMtu wfFDDIHardwareFilter
enum 1 Cct State Enable Slot i
enum $i Node Madr Bofl i
enum $i BoflTmo Mtu HwFilter
echo
echo “FDDI Modules on Alert:”
echo “----------------------”
gosub :FI_BASEHDR:
let i = 0
:FI_ALOOP:
mi/jointfilesconvert/97390/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 ${value[$Enable]} != 1 then ; goto :FI_SKIPA:
if ${value[$State]} != 1 then ; goto :FI_BASE10:
if $(wfFddiSmtEntry.wfFddiSmtCfState.$nextid) = 1 then; \
goto :FI_BASE10:
if $(wfFddiMacExtEntry.wfFddiMacMaUnitDataEnable.$nextid) != 2 \
then; goto :FI_SKIPA:
:FI_BASE10:
let match_entries = $match_entries + 1
gosub :FI_ONELINE:
Commentaires sur ces manuels