Re: Qualified Data Structure with SQL Insert

hi Vern!

1. Yes, those are table columns.
2. I was just playing around trying to get this to work. What I really want
to do is to use the subfields from *ENTRY input data structure as fields in
the VALUES clause. I thought I was being clever because SQLCA is
automatically defined in this procedure. Don't feel clever know though. :)

On Wed, Oct 15, 2014 at 2:18 PM, Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>
wrote:

Hi Michael - a couple questions.

1. Is WSV_SQLCAID the name of one of the columns in your table?

2. I don't think you need to make that In_SQLCA - in the first place,
nothing in there will be updated that I know of. AAAAHH! I see that you are
using that pointer to move stuff in. You already have the variables like
SQLCAID and the rest in your program - are they ignored by the precompiler
or the compiler?

Just curious! On a Wednesday!

Vern


On 10/15/2014 1:08 PM, Michael Ryan wrote:

I thought I was being clever...perhaps not...I can't get the variables in
the INSERT clause right. I've tried using pIn_SQLCA subfields or In_SQLCA
subfields and I get the :In_SQLCA.SQLWRN -> SQL0312: Position 21 Variable
IN_SQLCA not defined or not usable as well as the other side SQL0312:
Position 30 Variable SQLWRN not defined or not usable. Why can't I do
this?

D In_SQLCA DS LikeDS(SQLCA)

P WSV_Logger...
P B Export
D WSV_Logger...
D PI Like(rc)
D pIn_SQLCA Value
D LikeDS(SQLCA)

D rc S 10I 0

/Free
In_SQLCA = pIn_SQLCA;

Exec SQL
Insert Into WEBSVC/WSVLOGP (WSV_SQLCAID,
WSV_SQLCABC,
WSV_SQLCODE,
WSV_SQLERRML,
WSV_SQLERRMC,
WSV_SQLERRP,
WSV_SQLERR,
WSV_SQLWRN,
WSV_SQLSTATE)
Values ( :In_SQLCA.SQLCAID,
:In_SQLCA.SQLCABC,
:In_SQLCA.SQLCODE,
:In_SQLCA.SQLERRML,
:In_SQLCA.SQLERRMC,
:In_SQLCA.SQLERRP,
:In_SQLCA.SQLERR,
:In_SQLCA.SQLWRN,
:In_SQLCA.SQLSTATE) ;

Return 1;

P WSV_Logger...
P E

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.