Re: 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.