Updating TRDIR-UCCHECK for unicode conversion

Question

Hi,
We are currently performing a unicode conversion on our R/3 and BW systems.  There are a lot of programs that DO NOT require changes to be unicode-compliant but don't currently have the TRDIR-UCCHECK flag turned on.  I know that the UCCHECK transaction provides the functionality to turn on this flag, but it requires that the programs be transported.  I don't want to transport all those programs.
I found code in another thread (see below) that updates the flag by doing a read/insert on the program.  My question.... is there a reason that I can't update the TRDIR-UCCHECK flag directly rather than performing read/insert? 
Suggestions appreciated,
Kirsten
Code snippet from prior thread:
REPORT YTEST.
TABLES : TRDIR.
DATA : BEGIN OF IT_PROG OCCURS 0,
LINE(255) TYPE C,
END OF IT_PROG.
PARAMETERS : P_PROG TYPE TRDIR-NAME OBLIGATORY,
P_CHECK TYPE C.
SELECT SINGLE * FROM TRDIR INTO TRDIR WHERE NAME = P_PROG.
IF SY-SUBRC = 0.
READ REPORT P_PROG INTO IT_PROG.
IF SY-SUBRC = 0.
TRDIR-UCCHECK = P_CHECK.
INSERT REPORT P_PROG FROM IT_PROG STATE 'A' DIRECTORY ENTRY TRDIR .
ENDIF.
ENDIF.

Answer 1

REPORT YTEST.
TABLES : TRDIR.
DATA : BEGIN OF IT_PROG OCCURS 0,
LINE(255) TYPE C,
END OF IT_PROG.
PARAMETERS : P_PROG TYPE TRDIR-NAME OBLIGATORY,
P_CHECK TYPE C.
SELECT SINGLE * FROM TRDIR INTO TRDIR WHERE NAME = P_PROG.
IF SY-SUBRC = 0.
if TRDIR-UCCHECK = space
TRDIR-UCCHECK = P_CHECK.
modify trdir from trdir where NAME = P_PROG.
endif.
Just right this code .
This will solve the problem .
You also have a file of programs and give a file input to program and in the loop do a select n modify .
PLesae reward if useful.