Dear,
I'm trying to retrieve information from QSYS2.NETSTAT_INFO in a CL.
I know that I have to pass the RUNSQL command to a PF to be able to retrieve data but it's not working.
Here is an example of my code:
PGM
DCLF FILE(qtemp/t1)
DCL &SQLSTMT TYPE(*CHAR) LEN(1000)
DCL VAR(&TCPSTATE) TYPE(*CHAR) LEN(12)
DCL VAR(&SOCKSTATE) TYPE(*CHAR) LEN(13)
DCL VAR(&SOCKERR) TYPE(*INT)
MONMSG CPF0000
CHGVAR VAR(&SQLSTMT) +
VALUE('CREATE TABLE qtemp.t1 AS +
(SELECT +
REMOTE_ADDRESS,REMOTE_PORT,TCP_STATE,SOCKET_STATE, SOCKET_ERROR +
FROM QSYS2.NETSTAT_INFO WHERE +
REMOTE_ADDRESS = '10.10.5.20') WITH DATA')
RUNSQL SQL(&SQLSTMT) COMMIT(*NONE) NAMING(*SQL)
RCVF
MONMSG MSGID(CPF0864)
CHGVAR VAR(&TCPSTATE) VALUE(&TCP_STATE)
CHGVAR VAR(&SOCKSTATE) VALUE(&SOCKET_STATE)
CHGVAR VAR(&SOCKERR) VALUE(&SOCKET_ERROR)
ENDPGM
My first question, is how should I create the file (QTEMP/T1) prior to compile my program ?
What other mistake I'm doing ?
I'm a little bit lost... thanks in advance for your support.
Best regards,
I'm trying to retrieve information from QSYS2.NETSTAT_INFO in a CL.
I know that I have to pass the RUNSQL command to a PF to be able to retrieve data but it's not working.
Here is an example of my code:
PGM
DCLF FILE(qtemp/t1)
DCL &SQLSTMT TYPE(*CHAR) LEN(1000)
DCL VAR(&TCPSTATE) TYPE(*CHAR) LEN(12)
DCL VAR(&SOCKSTATE) TYPE(*CHAR) LEN(13)
DCL VAR(&SOCKERR) TYPE(*INT)
MONMSG CPF0000
CHGVAR VAR(&SQLSTMT) +
VALUE('CREATE TABLE qtemp.t1 AS +
(SELECT +
REMOTE_ADDRESS,REMOTE_PORT,TCP_STATE,SOCKET_STATE, SOCKET_ERROR +
FROM QSYS2.NETSTAT_INFO WHERE +
REMOTE_ADDRESS = '10.10.5.20') WITH DATA')
RUNSQL SQL(&SQLSTMT) COMMIT(*NONE) NAMING(*SQL)
RCVF
MONMSG MSGID(CPF0864)
CHGVAR VAR(&TCPSTATE) VALUE(&TCP_STATE)
CHGVAR VAR(&SOCKSTATE) VALUE(&SOCKET_STATE)
CHGVAR VAR(&SOCKERR) VALUE(&SOCKET_ERROR)
ENDPGM
My first question, is how should I create the file (QTEMP/T1) prior to compile my program ?
What other mistake I'm doing ?
I'm a little bit lost... thanks in advance for your support.
Best regards,
Comment