Find Equipment in VIEW

!ori = ce!Tmrf = /YOUR-LABEL
!v = view
!view = !v.fullname


       var !vscan vscan for all (EQUI) FOR VIEW
    Do !y indices !vscan
       $!vscan[$!y]
    SWITCH
$!view
new laye $!view/EQUI
handle any
    skip
endhandle
    new slab DDNA $!vscan[$!y] Tmrf $!Tmrf xypos 10 10
Enddo
   
    Refresh
$!ori


$.