Re: Problems with Insert in Embedded SQL

["sachin hotmail" <sachin_kr_gupta@xxxxxxxxxxx>]

Make sure that there no group items below VR1.
It should look like below:

01 VENDR1.
03 VR1.
    05 X  PIC XX.
    05 Y PIC S9(3).
     .
     .
     .
    05 Z PIC XXXX.
Now you should be safe to use
Exec Sql
    Insert Into VendSmall Values(:VR1)
End-Exec.

Sachin.
----- Original Message -----
From: "Jon Paris" <Jon.Paris@Partner400.com>
To: <cobol400-l@midrange.com>
Sent: Wednesday, July 31, 2002 8:27 AM
Subject: RE: Problems with Insert in Embedded SQL


>
>
> > Try using
> >
> >            Exec SQL
> >                  Insert into VendSmall
> >                  Values(:VR1.VNID, :VR1.VNNAME)
> >            End-Exec.
> >
>
> Thanks Sachin - I know this works but it is not the point - I _should_ be
> able to use a structure to avoid having to laboriously spell out (with the
> strong possibility of errors being introduced) every single darned field
in
> a 50+ field file!  The version I listed was as I stated at the time just a
> subset of the real code.
>
> Jon Paris
>
> _______________________________________________
> 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.
>