Executing a query through a JCL

//SZ202R EXEC PGM=IKJEFT01,REGION=4M
//SYSOUT DD SYSOUT=*,DEST=%%CONTROLM
//SYSPRINT DD SYSOUT=*,DEST=%%CONTROLM
//SYSTSPRT DD SYSOUT=*,DEST=%%CONTROLM
//SYSUDUMP DD SYSOUT=P
//SYSTSIN DD *
DSN SYSTEM(%%DB2SYS)
RUN PROGRAM(DSNTIAD) PLAN(DSNTIAD) +
LIB('DB2G.PROD.RUNLIB.LOAD')
END
//*
//SYSIN DD *
UPDATE DBSZT.AVAL_TABL SET HOTS_AVAL_F = 'R';
COMMIT;
/*