Re: Loading Variable Array From SQL Caveat

My library on PUB400.com is COBOLKID1
Program name is JONPGM.

I am getting the SQL precompiler error of three pages. Showing
that "selectType" is not valid.

Are you able to look in my library?

CREATE OR REPLACE TABLE COBOLKID1.ANIMALS (
"ID" INTEGER NOT NULL ,
"TYPE" VARCHAR(16) CCSID 37 NOT NULL ,
NAME VARCHAR(16) CCSID 37 NOT NULL ,
WEIGHT DECIMAL(7, 2) NOT NULL )

RCDFMT ANIMALSR ;

//**************************************************
//* Declare program variables. *
//* STMT initialized to the *
//* listed SQL statement. *
//**************************************************
ctl-opt option(*nodebugio:*srcstmt:*nounref) ;

dcl-d Animals extname('ANIMALS')
Qualified dim(*Auto : 100); // <<< NOTE *AUTO
end-ds;

dcl-ds Animal LikeDS(Animals); // <<< Define with LikeDS
// so that for-each works

dcl-s selectType like(Animals.type) Inz('Dog');

//*************************************************************
//* Declare Cursor *
//*************************************************************

EXEC SQL DECLARE C1 CURSOR FOR SELECT *
FROM ANIMALS where TYPE = :selectType;

//*************************************
//* Open CURSOR *
//*************************************

EXEC SQL OPEN C1 ;

exec sql FETCH C1 FOR 100 ROWS
INTO :Animals;

if (SQLCOD = 0) ;
for-each Animal in Animals; // This does the data copying
// no need to do it "by hand"
// or at least use Eval-COrr
dsply ('Found ' + Animal.name);
endfor ;
endif;

EXEC SQL COMMIT;
EXEC SQL CLOSE C1;

*Inlr = *On;


On Mon, Feb 12, 2024 at 2:58 PM Sam_L <lennon_s_j@xxxxxxxxxxx> wrote:

That is the complete DCL-DS statement. It compiles on PUB400.COM, which
is at V7R5. Sorry, I don't know what PTFs are loaded.

Maybe looking into the RPG manual "What's new in ..." section would tell
if PTFs are needed.

If you want to post your failing dcl-ds I can try it on PUB400.

Sam

On 2/12/2024 3:12 PM, Thomas Burrows wrote:

Sam:
How did you get your Data Structure to compile?

dcl-ds csz_a dim(*auto : 50000) qualified;
Have been told by Jon Paris that the system needs to be at least V7R4 to
get the
DIM(*auto : number) to compile. But my tests on V7R5 still has a compile
error
on this line.

Can you show your complete DCL-DS statement?
What release level are you on? Any special PTF's?

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.