CHGVAR VAR(&DATEI) VALUE(&PARA *TCAT '.xls')