VALUE(SUBTY) LIKE HRP1002-SUBTY DEFAULT '0001'
VALUE(SUBTY) TYPE HRP1002-SUBTY DEFAULT '0001'
VALUE(ACT_SUBTY) LIKE HRP1002-SUBTY