*COMDECK COMDFMS
BASED     ARRAY     DFM       [0] S(1); # DOMAIN FORMATS               #
          BEGIN 
          ITEM   DFMDMID      U(0,00,12);# DOMAIN ID                   #
          ITEM   DFMSIGN      B(0,12,01);# SIGNED MANTISSA             #
          ITEM   DFMES        B(0,13,01);# SIGNED EXPONENT             #
          ITEM   DFMELEN      U(0,15,06);# EXP DIGITS                  #
          ITEM   DFMDTYP      U(0,21,06);# DATA TYPE CODE              #
          ITEM   DFMI1        U(0,27,12);# WIDTH (I1)                  #
          ITEM   DFMI2        U(0,39,06);# NO OF DECIMALS(I2)          #
          ITEM   DFMLBIT      U(0,48,12);# LENGTH IN BITS              #
          ITEM   DFMWORD      U(0,00,60); 
          END 
