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     111074          1     111085          1     111086          1     111091          1     111092          1     111487