VALUE(I_PROGTYPE) LIKE TRDIR-VERN DEFAULT '*'
VALUE(TRDIR_VERN) LIKE TRDIR-VERN DEFAULT SPACE
VALUE(ACTUAL_VERSION_NO) LIKE TRDIR-VERN DEFAULT '0'