#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