VALUE(SUBTY) TYPE PA0439-SUBTY OPTIONAL
VALUE(SUBTY) TYPE PA0088-SUBTY OPTIONAL
VALUE(I_SUBTY) LIKE PA0439-SUBTY
REFERENCE(P_SUBTY) LIKE PA0439-SUBTY
VALUE(P_SUBTY) LIKE PA0439-SUBTY
REFERENCE(SUBTY) LIKE PA0424-SUBTY
VALUE(SUBTYPE) TYPE PAKEY-SUBTY