Re: sqlcblle - pointer error on select into?

[Richard Schoen <richard@xxxxxxxxxxxxxxxxx>]

Here's a link to the modified COBOL and a sample CL Caller with Parms. 

Took a minute but I think it works.

https://github.com/richardschoen/cobolcodingsamples/blob/main/CBLSAMP01C.CLP

https://github.com/richardschoen/cobolcodingsamples/blob/main/CBLSAMP01L.SQLCBLLE

Probably not yet exactly what you need but no more parm errors.

Regards,
Richard Schoen
Web: http://www.richardschoen.net
Email: richard@xxxxxxxxxxxxxxxxx
------------------------------

message: 2
date: Mon, 10 Apr 2023 13:15:11 -0400
from: Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
subject: Re: [COBOL400-L] sqlcblle - pointer error on select into?

here is the whole thing Richard...

remember this is a *module put into a *srvpgm called from a SQLRPGLE *PGM

again, this works fine (passing parms and all) when the exec sql is commented out...



PROCESS NOMONOPRC.
IDENTIFICATION DIVISION.
PROGRAM-ID.  CBL00000M_PGM1.

**************************************************************
 ENVIRONMENT DIVISION.
**************************************************************
 CONFIGURATION SECTION.
 SPECIAL-NAMES.

**************************************************************
 DATA DIVISION.
**************************************************************
 WORKING-STORAGE SECTION.

 77  WS-MESSAGE          PIC X(50).

 LINKAGE SECTION.
*01 INCOMING-PARM.
 01 INCOMING-VALUE1          PIC X(5).
 01 OUTGOING-VALUE1          PIC X(50).

     exec sql
       set option
       commit = *NONE,
       closqlcsr = *ENDMOD,
       datfmt    = *ISO
     end-exec.

     exec sql
       include sqlca
     end-exec.

**************************************************************
 PROCEDURE DIVISION USING INCOMING-VALUE1, OUTGOING-VALUE1.
**************************************************************
 main-proc.

    exec sql
        select "SQL row count from CBL00000M_PGM1 SQL: " concat
               char(count(*))
        into :WS-MESSAGE
        from xxx.xxx
    end-exec.
     move ws-message to outgoing-value1.

 *   MOVE "SUCCESSFUL CALL TO CBL00000M_PGM1" TO OUTGOING-VALUE1

     EXIT PROGRAM.

On Mon, Apr 10, 2023 at 12:12?PM Richard Schoen <richard@xxxxxxxxxxxxxxxxx>
wrote:

> This doesn't compile.
>
> Error: SQL7013  30          DATA DIVISION not found in source program.
>
> Is this the full listing for the COBOL program ?
>
> Can you share the whole listing ?
>
> Regards,
> Richard Schoen
> Web: http://www.richardschoen.net
> Email: richard@xxxxxxxxxxxxxxxxx
>
> -----------------------------
>
> message: 2
> date: Mon, 10 Apr 2023 08:43:57 -0400
> from: Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
> subject: [COBOL400-L] sqlcblle - pointer error on select into?
>
> I have a simple cobol sql pgm.
>
> I have the following pieces...
>
> WORKING-STORAGE SECTION.
> 01  WS-MESSAGE    PIC X(50).
>
>  LINKAGE SECTION.
> 01 INCOMING-VALUE1          PIC X(5).
> 01 OUTGOING-VALUE1          PIC X(50).
>
> **************************************************************
>  PROCEDURE DIVISION USING INCOMING-VALUE1, OUTGOING-VALUE1.
> **************************************************************
>  main-proc.
>      exec sql
>          select 'Row count from CBL00000M_PGM1 SQL: ' concat
>                 char(count(*))
>          into :ws-message
>          from xxx.zzz
>      end-exec.
>      move ws-message to outgoing-value1.
>      EXIT PROGRAM.
>
> I am getting a pointer error when it tries to exec the sql under main-proc.
>
> Why is that?
>
> tia
>
> jay