Hi Michael,
you will get more help here: https://sourceforge.net/p/gnucobol/discussion
And in Contributions there are some example for this:
https://sourceforge.net/p/gnucobol/contrib/HEAD/tree/trunk/samples/DBsample
https://sourceforge.net/p/gnucobol/contrib/HEAD/tree/trunk/samples/DBsample
László
> -----ursprüngliche Nachricht-----
> Gesendet: 08.11.2021 18:00 Uhr
> An: gnucobol-users@xxxxxxx
> Betreff: GnuCOBOL-users Digest, Vol 32, Issue 2
> Send GnuCOBOL-users mailing list submissions to
>
> To subscribe or unsubscribe via the World Wide Web, visit
> or, via email, send a message with subject or body 'help' to
>
> You can reach the person managing the list at
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of GnuCOBOL-users digest..."
>
>
> Today's Topics:
>
> 1. esqlOC error (Michael Potter)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Mon, 8 Nov 2021 00:53:22 -0500
> From: Michael Potter
> To: Gnucobol-users@xxxxxxx
> Subject: esqlOC error
> Message-ID:
>
> Content-Type: text/plain; charset="utf-8"
>
> I got this error:
>
> unsupported VAR construction in DECLARE SECTION:
>
> On this code:
>
> EXEC SQL DECLARE D63_A999 TABLE
> ( VAR1 CHAR(17) NOT NULL,
> VAR2 DECIMAL(13, 0) NOT NULL,
> VAR3 DATE NOT NULL,
> VAR4 DECIMAL(7, 0) NOT NULL,
> VAR5 CHAR(1) NOT NULL,
> VAR6 CHAR(1) NOT NULL,
> VAR7 DECIMAL(11, 0) NOT NULL,
> VAR8 DECIMAL(7, 0) NOT NULL,
> VAR9 CHAR(9) NOT NULL,
> VAR10 DECIMAL(15, 2) NOT NULL,
> VAR11 CHAR(2) NOT NULL,
> VAR12 DATE NOT NULL,
> VAR13 DECIMAL(9, 0) NOT NULL,
> VAR14 DECIMAL(3, 0) NOT NULL,
> VAR15 CHAR(1) NOT NULL,
> VAR16 CHAR(1),
> VAR17 DECIMAL(7, 0),
> VAR18 DECIMAL(7, 0),
> VAR19 CHAR(1) NOT NULL,
> VAR20 CHAR(35) NOT NULL,
> VAR21 CHAR(35) NOT NULL,
> VAR22 CHAR(35) NOT NULL,
> VAR23 CHAR(35) NOT NULL,
> VAR24 CHAR(35) NOT NULL,
> VAR25 CHAR(35) NOT NULL,
> VAR26 CHAR(35) NOT NULL,
> VAR27 CHAR(1) NOT NULL,
> VAR28 CHAR(1) NOT NULL,
> VAR29 CHAR(1) NOT NULL,
> VAR30 CHAR(40) NOT NULL
> ) END-EXEC.
>
> What is wrong with that code.
>
> Original code is from DB2 and the target is postgres.
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL:
>
> ------------------------------
>
> Subject: Digest Footer
>
> _______________________________________________
> GnuCOBOL-users mailing list
>
>
> ------------------------------
>
> End of GnuCOBOL-users Digest, Vol 32, Issue 2
> *********************************************
> -----ursprüngliche Nachricht Ende-----
