kHATTRME10 kIDM1_TAGCIDM2_TAGCC?
STR(IDM,11).NOT. DELETED()
C$
STR(IDM,11)+STR(AttriIDM,11).NOT. DELETED()          1          1          1          1          1          1          1     110717          1     110977          1     110979          1     110981          1     110983          1     111264