CHGVAR &VAR1 ("E *TCAT &OBJ_ODOBTX *TCAT "E)\\
STRQMQRY QMQRY(*LIBL/RLIBOS) OUTPUT(*OUTFILE) +
OUTFILE(QTEMP/&REFFILE) OUTMBR(*FIRST +
&OPTION) RDB(&RDB_RWRDB) USER(&RMTUSER) +
PASSWORD(&RMTPWD) SETVAR((LIBELE &VAR1))