VALUE(CUFA_FLIB_PROGRAM) LIKE RS38L-PROGNAME
VALUE(PROGRAMNAME) LIKE RS38L-PROGNAME DEFAULT 'REKOP38L'