|
I'm having a brain cramp trying to get the following SQL to work. First a little history..... I am writing a program that outputs the results of the NETSTAT API (QtocLstNetCnn), When this works I will make it available to the iSeries community. I am trying to output some data from a RPGLE program to a file(table) that is created in the program. I have done this before but in this case the data types are both CHAR and NUMERIC. I don't want to have the file created before hand as it is a varible to the program. The biggest issue is how to construct the EVAL statement so that I can mix both CHAR and numeric data while keeping the varible file name. The error is RNF7416 --- The types of the right and left hand side do not match in the EVAL operation. first the create table: (this works) eval sqlStm = 'create table ' + %trim(##lib) + '/' + %trim(##File) + '(' + ' LclAddr CHAR(15) NOT NULL,' + ' RmtAddr CHAR(15) NOT NULL,' + ' LclPort DEC(5,0) NOT NULL,' + ' RmtPort DEC(5,0) NOT NULL,' + ' BytesIn DEC(10,0) NOT NULL,' + ' BytesOut DEC(10,0) NOT NULL,' + ' IdleHour DEC(3,0) NOT NULL,' + ' IdleMin DEC(2,0) NOT NULL,' + ' IdelSec DEC(2,0) NOT NULL,' + ' ConnStat CHAR(10) NOT NULL,' + ' ConnType CHAR(10) NOT NULL,' + ' OutPutTime TIMESTAMP + NOT NULL WITH DEFAULT ' + ') ' then the INSERT INTO (which is where the problem is..) eval sqlStm1 = 'insert into ' + %trim(##lib) + '/' + %trim(##File) + '(' + ' LclAddr,' + ' RmtAddr,' + ' LclPort,' + ' RmtPort,' + ' BytesIn,' + ' BytesOut,' + ' IdleHour,' + ' IdleMin,' + ' IdelSec,' + ' ConnStat,'+ ' ConnType' + ') Values('+ tick + c1locadr + tick + ', ' + tick + c1rmtadr + tick + ', ' + tick + lclport + tick + ', ' + tick + rmtport + tick + ', ' + tick + bytein + tick + ', ' + tick + byteout + tick + ', ' + tick + idleh + tick + ', ' + tick + idlem + tick + ', ' + tick + idles + tick + ', ' + tick + fld006 + tick + ', ' + tick + c1netcnntyp + tick + ')' ------------------------- Bryan Dietz 3X Corporation 614-410-9205
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.