RE: SQL0180 on SQL insert

Are you sure about that? You showed your compile command in an earlier post.. Using DBGVIEW(*SOURCE)

You might THINK you see the right code being executed, but you might STILL be running an old activation of that program... I'd recommend you sign off/on and retry your test in a clean job.

-Eric DeLong

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of DeLong, Eric
Sent: Monday, July 09, 2012 3:59 PM
To: Midrange Systems Technical Discussion
Subject: RE: SQL0180 on SQL insert

Did you reclaim your activation group after the last compile? You may still be running/testing a older copy of this program...

The datfmt on the H-spec is strictly for RPG date context, and is NOT the same as the datfmt in the SQL options block. It is perfectly acceptable to define both, and even best when they're all the same format (*ISO).

-Eric DeLong

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Thomas Garvey
Sent: Monday, July 09, 2012 3:43 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: SQL0180 on SQL insert

OK, still not understanding, and still getting the SQL0180.

My H spec has datfmt(*ISO) [it always did] and I inserted the following SQL
Option statement at the beginning of my code (before any other SQL
statements)...

exec sql
Set Option
Naming = *Sys,
Commit = *None,
UsrPrf = *User,
DynUsrPrf = *User,
Datfmt = *iso,
DatSep = *dash,
CloSqlCsr = *EndMod;

Here's the PRTSQLINF results (so I know the Set Option worked)...

Object name...............NHP09/NHBLDCLS
Object type...............*PGM
CRTSQLRPGI
OBJ(QTEMP/NHBLDCLS)
SRCFILE(NHP09/QRPGLESRC)
SRCMBR(NHBLDCLS)
COMMIT(*NONE)
OPTION(*SYS *NOEXTIND *PERIOD)
TGTRLS(V7R1M0)
ALWCPYDTA(*OPTIMIZE)
CLOSQLCSR(*ENDMOD)
RDB(*LOCAL)
DATFMT(*ISO)
DATSEP('-')
TIMFMT(*HMS)
TIMSEP(':')
DFTRDBCOL(*NONE)
DYNDFTCOL(*NO)
SQLPKG(NHP09/NHBLDCLS)
MONITOR(*USER)
SQLCURRULE(*DB2)
ALWBLK(*ALLREAD)
DLYPRP(*NO)
DYNUSRPRF(*USER)
USRPRF(*USER)
SRTSEQ(*HEX)
LANGID(ENU)
RDBCNNMTH(*DUW)
TEXT('Build Class for flds in file (added date handling)')
SQLPATH(*LIBL)
DECRESULT(31 31 0)
DECFLTRND(*HALFEVEN)
CONACC(*DFT)
STATEMENT TEXT CCSID(37)




-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Monday, July 09, 2012 3:10 PM
To: Midrange Systems Technical Discussion
Subject: RE: SQL0180 on SQL insert

I pretty much have a standard sql options block in my skeleton rpg program I
use to generate new programs.


Rob Berendt