#REPLACE FILE7 THTODO
#REPLACE THTODO.RECNUM |FN7,0
#REPLACE THTODO.USER |FS7,1
#REPLACE THTODO.FILE |FS7,2
#REPLACE THTODO.TYPE |FS7,3
#REPLACE THTODO.TITLE |FS7,4
#REPLACE THTODO.DESCR |FS7,5
#REPLACE THTODO.SDATE |FD7,6
#REPLACE THTODO.EDATE |FD7,7
#REPLACE THTODO.COMPLETED |FS7,8
#REPLACE THTODO.LASTUSER |FS7,9