VALUE(PROG_TYPE) LIKE TRDIR-SUBC
VALUE(TYP) LIKE TRDIR-SUBC
VALUE(PROG_TYPE) LIKE TRDIR-SUBC DEFAULT SPACE
VALUE(TRDIR_SUBC) LIKE TRDIR-SUBC DEFAULT 'S'
REFERENCE(I_SUBC) TYPE TRDIR-SUBC DEFAULT '1'
VALUE(I_PROGRAM_TYPE) TYPE TRDIR-SUBC DEFAULT 1
VALUE(PROGTYPE) LIKE TRDIR-SUBC DEFAULT '1'
VALUE(FSUBC) LIKE TRDIR-SUBC DEFAULT '1'
REFERENCE(I_PROGTYPE) TYPE TRDIR-SUBC DEFAULT 'S'