× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.