EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ELTSPARTEMP" TO F.ELTSPARTEMP ELSE STOP

EXECUTE 'SELECT ELTSPARTEMP'

W_REQVIDE=0
LOOP
     READNEXT CLE ELSE W_REQVIDE=1
     UNTIL W_REQVIDE=1 DO

     READ ENR_ELTSPARTEMP FROM F.ELTSPARTEMP,CLE ELSE ENR_ELTSPARTEMP=""
     ENR_ELTSPARTEMP<8>="0"
     WRITE ENR_ELTSPARTEMP ON F.ELTSPARTEMP,CLE

REPEAT
