290 Views
CHGVAR VAR(&SQLSTM) VALUE('DELETE FROM + QTEMP/QAFDMBRL WHERE SUBSTR(MLNAME, 4, 4) + <> ''' *CAT &MBRDAT *CAT '''') RUNSQL SQL(&SQLSTM) COMMIT(*NONE)