Re: Problems with Insert in Embedded SQL

not true. Declare sections are optional on 400.

===========================================================
R. Bruce Hoffman, Jr.
 -- IBM Certified Specialist - iSeries Administrator
 -- IBM Certified Specialist - RPG IV Developer

"There is a crack in everything,
  that's how the light gets in.
    - Leonard Cohen

----- Original Message -----
From: "Jerry Thomas" <jerryt@ccslink.com>
To: <cobol400-l@midrange.com>
Sent: Wednesday, July 31, 2002 10:37 AM
Subject: RE: Problems with Insert in Embedded SQL


> Jon,
> Try using
> EXEC SQL BEGIN DECLARE SECTION END-EXEC.
>
>  01 VENDR1.
>           03  VR1.
>             05  VNID   PIC X(6).
>             05  VNNAME PIC X(30).
>
>
> EXEC SQL END DECLARE SECTION END-EXEC.
>
> The precompiler will not recognize working storage fields unless they are
> inside of the Declare section.
>
> Jerry Thomas
> Cothern Computer Systems.
>
> -----Original Message-----
> From: cobol400-l-admin@midrange.com
> [mailto:cobol400-l-admin@midrange.com]On Behalf Of Jon Paris
> Sent: Tuesday, July 30, 2002 8:21 PM
> To: Cobol400-L@Midrange. Com
> Subject: Problems with Insert in Embedded SQL
>
>
> I know this is going to be a duh! when I find the answer but .... I posted
> an earlier  version of this question on the Midrange list but thought that
> since it appears that the problem is likely Cobol specific .....
>
> This code compiles OK:
>
>        Working-Storage Section.
>            Exec SQL
>               Include SQLCA
>            End-Exec.
>
>        01 VENDR1.
>           03  VR1.
>             05  VNID   PIC X(6).
>             05  VNNAME PIC X(30).
>
>        Procedure Division.
>            Exec SQL
>                 Insert into VendSmall
>                 Values(:VR1)
>            End-Exec.
>
> Of course when I add this second structure
>
>       *01 VENDR2.
>       *   03  VR1.
>       *     05  VNID   PIC X(6).
>       *     05  VNNAME PIC X(30).
>
> The compile fails because VR1 is not unique.  My understanding is that I
> should be able to code the Values clause as:
>
>        Values(:VENDR1.VR1)
>
> and everything should be fine.  Try telling that to the pre-compiler.  It
> insists that VENDR1 and VR1 are "not defined or not usable.  In fact I get
> this error even when the second structure is removed.  I've read the
> manuals, checked the archives, and can't find a thing - I'm hoping someone
> here will have an answer.
>
> PS.  This code is a simplification of the problem - I'm really trying to
use
> data definitions generated by COPY DDS.
>
> Also posted in the SQL area just in case !!
>
> Jon Paris
> Partner400
>
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
> To post a message email: COBOL400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
> or email: COBOL400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
> To post a message email: COBOL400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
> or email: COBOL400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>