RUNSQL in CL

86 Views


 

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

 

Post Comments