Re: sqlcblle - pointer error on select into?

Thanks Richard,

So my parameters error (pointer) error was occurring on the exec sql statement of the sqlcblle.
Funny thing, if you were in debug, and viewed the :outgoing-value1 just before the exec sql statement it was initialized and referenceable. But as soon as you stepped on the exec sql you would get the pointer error.

Also my sqlclble was a *module accessed from a srvpgm, not just a stand alone *pgm.

And I was calling my sqlcblle from an sqlrpgle *pgm.

Jay

On Apr 10, 2023, at 6:03 PM, Richard Schoen <richard@xxxxxxxxxxxxxxxxx> wrote:

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

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