field(FTJ,"LONG")\r
     field(FTK,"LONG")\r
     field(FTL,"LONG")\r
+    field(FTM,"LONG")\r
 #    field(FTL,"STRING")\r
     field(FTVA,"LONG")\r
     field(FTVB,"LONG")\r
     field(FTVJ,"LONG")\r
     field(FTVK,"LONG")\r
     field(FTVL,"LONG")\r
+    field(FTVM,"LONG")\r
 #    field(FTVL,"SRTING")\r
     field(NOA,"50")\r
     field(NOB,"50")\r
     field(NOJ,"50")\r
     field(NOK,"50")\r
     field(NOL,"50")\r
+    field(NOM,"50")\r
 #    field(NOL,"50")\r
     field(NOVA,"1")\r
     field(NOVB,"1")\r
     field(NOVJ,"1")\r
     field(NOVK,"1")\r
     field(NOVL,"1")\r
+    field(NOVM,"1")\r
 #    field(NOVL,"1")\r
     field(OUTA,"HAD:$(eb):nrOfMsgs PP NMS")\r
     field(OUTB,"HAD:$(eb):byteWrit PP NMS")    \r
     field(OUTJ,"HAD:$(eb):byteWRate PP NMS")   \r
     field(OUTK,"HAD:$(eb):evtDRate PP NMS")\r
     field(OUTL,"HAD:$(eb):dataMover PP NMS")\r
+    field(OUTM,"HAD:$(eb):diskNr PP NMS")\r
 #    field(OUTL,"HAD:$(eb):byteWRateStr PP NMS")\r
 }\r
 \r
 #    field(INP,"Constant")\r
 #}\r
 \r
+record(longin,"HAD:$(eb):diskNr")\r
+{\r
+    field(DTYP,"Soft Channel")\r
+    field(SCAN,"Passive")\r
+    field(INP,"Constant")\r
+}\r
+\r
 record(longin,"HAD:$(eb):dataMover")\r
 {\r
     field(DTYP,"Soft Channel")\r