#IFDEF !1
!A [] $82 !1 FILENUMBER
#ELSE
#CHECK !1.FILE_NUMBER _UE
#SET Q$ !1.FILE_NUMBER
!A [] $82 |CI!q FILENUMBER
#ENDIF
!A [] $344 !2 !4 // index fields
#IF !0>4
!A [] $82 STRLEN !5 // number of fields
#IF !0>5
!A [] $349 !2 !6 // index attributes
#ENDIF
#ENDIF