Can I pass parameters to an SQL statement in a source member before executing the Run SQL Statement (RUNSQLSTM) command?
Page 1 of 1
Can I pass parameters to an SQL statement in a source member before executing the Run SQL Statement (RUNSQLSTM) command?
Yes. This can be achieved using QSHELL.
See the Code below:
CLLE Code:
PGM PARM(&DEPT)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10) VALUE('MARAN')
DCL VAR(&FILE) TYPE(*CHAR) LEN(10) VALUE('QSQLSTMSRC')
DCL VAR(&PATTERNMBR) TYPE(*CHAR) LEN(10) +
VALUE('UPDDEP')
DCL VAR(&SQLCMDMBR) TYPE(*CHAR) LEN(10) +
VALUE('UPDDEP1')
DCL VAR(&DEPT) TYPE(*CHAR) LEN(2)
DCL VAR(&SHELLCMD) TYPE(*CHAR) LEN(256)
CHGVAR VAR(&SHELLCMD) VALUE('sed "s%CC%' *CAT +
&DEPT *CAT '%g"' *BCAT '/qsys.lib/' +
*CAT &LIB *TCAT '.lib/' *CAT &FILE *TCAT +
'.file/' *CAT &PATTERNMBR *TCAT '.mbr' +
*BCAT '>/qsys.lib/' *CAT &LIB *TCAT +
'.lib/' *CAT &FILE *TCAT '.file/' *CAT +
&SQLCMDMBR *TCAT '.mbr')
QSH CMD(&SHELLCMD)
RUNSQLSTM SRCFILE(&LIB/&FILE) SRCMBR(&SQLCMDMBR) +
COMMIT(*NONE)
ENDPGM
_____________________________________________
SQL Statement:
update EMPMST
set EMPAD1 = 'CHENNAI'
where EMPDEP = 'CC'
_________________________________________________
Archana K- Posts : 76
Join date : 2013-01-27
Age : 32
Location : chennai
Similar topics
» FTP w/CL-Command Transfer from PF
» CL MONMSG command
» COMMAND having *n as a parameter
» 'CPYTOIMPF' COMMAND
» Command to search a record
» CL MONMSG command
» COMMAND having *n as a parameter
» 'CPYTOIMPF' COMMAND
» Command to search a record
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum