VALUE(IM_PNTYPE) LIKE PNODID-PNTYPE
REFERENCE(I_NEW_PNODE_TYPE) TYPE PNODID-PNTYPE
REFERENCE(IM_PNTYPE_NAME) TYPE PNODID-PNTYPE