Re: SQL selecting into a data structure with null variables

I am fairly confident you can use an array larger than the number of
data-structure subfields, so creating a larger than necessary array (while
not memory efficient) would at least protect you from adding additional
fields later and forgetting to resize the array.

On Tue, Jul 30, 2019, 4:05 PM <dlclark@xxxxxxxxxxxxxxxx> wrote:

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 07/30/2019
04:22:56 PM:

From: dlclark@xxxxxxxxxxxxxxxx
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Date: 07/30/2019 04:23 PM
Subject: RE: SQL selecting into a data structure with null variables
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 07/30/2019
04:17:52 PM:

Thanks to those who have replied.
The separate indicator array was the trick.

I don't suppose there's a bif on the number of subfields in a data

structure?

Instead of
DCL-S Security_journal_indicator_array bindec(1) dim(24);
I could do
DCL-S Security_journal_indicator_array bindec(1) dim(%subfields
(Security_journal));

There is supposed to be a new keyword on DCL-DS allowing
indicators to be built for each column in an external file definition.

But

we don't have it yet (at 7.1) so I don't know all of the details.
Something like SQLINDS or some such.

I checked and only found the RFE I created to request this
feature. Barbara Morris commented on the RFE to point out that there was
a parameter to EXTNAME and LIKEREC for RPG-type null indicators (*NULL)
but that this would need an extension to that support in order to create
SQL-type indicators (*SQLNULL). So, for now, you have to manually create
your SQL indicator arrays/data structures.

https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=97462


Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331

Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331

*********************************************************************************************

This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary

information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all

copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege

is waived or lost by any error in transmission.

*********************************************************************************************

--
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://urldefense.com/v3/__https://lists.midrange.com/
mailman/listinfo/rpg400-l__;!s27icpZD2fbA_A!
KI7rdLskJk8KJtyyx3lJ9Ix2jkVev1Wqhgkl1kfOvkG4JhaQOnwZiRoPGV-WwW3CGHs$
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://urldefense.com/v3/__https://archive.midrange.com/rpg400-
l__;!s27icpZD2fbA_A!
KI7rdLskJk8KJtyyx3lJ9Ix2jkVev1Wqhgkl1kfOvkG4JhaQOnwZiRoPGV-WRRKKGgM$ .

Please contact support@xxxxxxxxxxxx for any subscription related

questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link:

https://urldefense.com/v3/__https://amazon.midrange.com__;!
s27icpZD2fbA_A!
KI7rdLskJk8KJtyyx3lJ9Ix2jkVev1Wqhgkl1kfOvkG4JhaQOnwZiRoPGV-Wc5O5cgQ$

*********************************************************************************************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege
is waived or lost by any error in transmission.

*********************************************************************************************
--
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@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com