Re: Eval-Corr puzzle

[Alan Cassidy <cfuture@xxxxxxxxxxx>]

Sorry for the belated reply.. But it turns out what happened in this 
case was that I commented out the last file specification and its record 
format that provided definitions for the subfields in one of the data 
structures..

To answer the questions, though...

To Birgitta, all the date formats are set to *ISO-, including in the 
CTL-OPT for the RPG, and DATFMT = ISO for the SQL.

For Barbara, I qualified the KCS to avoid a clash with another cursor, 
and because this is a conversion from RPG input/output where the 
programmer had used a different prefix for the field names. I didn't 
bother figuring out why but changed the prefix from SQCS to KCS. No idea 
why he used SQ, I didn't like it, because the precompiler generates 
plenty of SQ prefixed names.

--Thanks

Alan

P. S. I am posting a new issue from the same program in a different 
thread, subject:

"An embedded-SQL generated EVAL that does not evaluate???"


On 7/22/2021 3:38 AM, Birgitta Hauser wrote:
> One thought! Does the DDS definition include keywords such as DATFMT? And is that Format not *ISO?
>
> Mit freundlichen Grüßen / Best regards
>
> Birgitta Hauser
>
>
> "Shoot for the moon, even if you miss, you'll land among the stars." (Les Brown)
> "If you think education is expensive, try ignorance." (Derek Bok)
> "What is worse than training your staff and losing them? Not training them and keeping them!"
> „Train people well enough so they can leave, treat them well enough so they don't want to.“ (Richard Branson)
>
>
> -----Original Message-----
> From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Alan Cassidy
> Sent: Dienstag, 20. Juli 2021 21:08
> To: rpg400-l@xxxxxxxxxxxxxxxxxx
> Subject: Eval-Corr puzzle
>
> Cross-posted
>
> 1080          exec sql SET OPTION DATFMT = *ISO ;
>    1081          exec sql SET OPTION CLOSQLCSR = *ENDMOD ;
>    1082          exec sql SET OPTION COMMIT = *NONE ;
>    3692   c024    exec sql Fetch next from CK for :Rows_to_fetch rows into :MT ;
>    3709   c024       exec sql Fetch next from CK for :Rows_to_fetch rows into :MT(rx) ;
>
> DIAGNOSTIC MESSAGES
> SG ID  SEV  RECORD TEXT
> QL5066   0    1080  Precompile option DATFMT changed by SET OPTION statement.
> QL5066   0    1081  Precompile option CLOSQLCSR changed by SET OPTION statement.
> QL5066   0    1082  Precompile option COMMIT changed by SET OPTION statement.
> QL5011  30    3692  Position 67 Host structure array MT not defined or not
>                       usable. Reason: The host variable is not defined or is
>                       not a valid structure. A valid host structure must have
>                       at least one valid member.
> QL5011  30    3709  Position 70 Host structure array MT not defined or not
>                       usable. Reason: The host variable is not defined or is
>                       not a valid structure. A valid host structure must have
>                       at least one valid member.
> QL0104  30    3709  Position 72 Token ( was not valid. Valid tokens:
> <END-OF-STATEMENT>.
>                      Message Summary