AW: AW: SQL Indicator Arrays

["Birgitta Hauser" <Hauser@xxxxxxxxxxxxxxx>]

I assume it is the pointer that SQL cannot handle very well.
What happens if you define your overlaid array as follows:
DCL-DS NamedIndDS  Inz;
  ImLfCmpTID          like(NULL_VALUE);
  CiCompPTID          like(NULL_VALUE);
  ImLfSeqTID          like(NULL_VALUE);
  BoyExtTtl           like(NULL_VALUE);
  YtdExtTtl           like(NULL_VALUE);
  ExtIdx              like(NULL_VALUE);
  AbsRto              like(NULL_VALUE);
  TmsLstExt           like(NULL_VALUE);
  TmsLstLRl           like(NULL_VALUE);
  TmsLclCmp           like(NULL_VALUE);
  TmsCrpAct           like(NULL_VALUE);
  AddByUsr            like(NULL_VALUE);
  AddByPgm            like(NULL_VALUE);
  AddTs               like(NULL_VALUE);
  ChgByUsr            like(NULL_VALUE);
  ChgByPgm            like(NULL_VALUE);
  ChgTs               like(NULL_VALUE);
  CiCompTID2          like(NULL_VALUE);
  CIORGKY             like(NULL_VALUE);
  CIORGNM             like(NULL_VALUE);
  CITYPID             like(NULL_VALUE);
  CIIKEY              like(NULL_VALUE);
  CIAKEY              like(NULL_VALUE);
  CISTAT              like(NULL_VALUE);
  CICRPTYP            like(NULL_VALUE);
  CISKEY              like(NULL_VALUE);
  CITIER              like(NULL_VALUE);
  ExtSeqCde           like(NULL_VALUE);
  ExtSeqDsc           like(NULL_VALUE);
  ExtSeqOrd           like(NULL_VALUE);
  IMLFCMP_Ary         like(NULL_VALUE) dim(IMLFCMP_VCol2) Pos(1);
end-ds;

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)



-----Ursprüngliche Nachricht-----
Von: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] Im Auftrag von
dlclark@xxxxxxxxxxxxxxxx
Gesendet: Thursday, 17.11 2016 17:40
An: Midrange Systems Technical Discussion
Betreff: Re: AW: SQL Indicator Arrays

"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx> wrote on 11/17/2016
11:22:30 AM:
> Please post the syntax of the overlaid Indicator array!
> There are multiple ways to define it.

        Thanks, Birgitta.  I posted it yesterday but here it is again. The
following works fine but, as I mentioned, I can't use just the array in all
situations and I can't use just the data structure in all situations. 
I find that I have to mix and match in order to satisfy the SQL precompiler.
But what I would really like is if I could get RPG to generate the parallel
data structure as named indicators.  A supported syntax such as
LIKEDS(IMLFCMP_VIEW2: 'LIKE(NULL_VALUE)') would work great to generate the
same subfield list but with the specified data definition as an override.

// number of columns in SQL row
dcl-c IMLFCMP_VCol1   17;
dcl-c IMLFCMP_VCol2   30;

// data structures for SQL column data
dcl-ds IMLFCMP_View1  extname('IMLFCMPV01') qualified inz end-ds; dcl-ds
IMLFCMP_View2  extname('IMLFCMPV02') qualified inz end-ds;

// SQL indicator array with overlay of named indicators
dcl-s IMLFCMP_Ary     like(NULL_VALUE) dim(IMLFCMP_VCol2) inz;
dcl-s IMLFCMP_Ptr     like(pointer_t)  inz(%addr(IMLFCMP_Ary));
dcl-ds IMLFCMP_Ind    based(IMLFCMP_Ptr) qualified;
  ImLfCmpTID          like(NULL_VALUE);
  CiCompPTID          like(NULL_VALUE);
  ImLfSeqTID          like(NULL_VALUE);
  BoyExtTtl           like(NULL_VALUE);
  YtdExtTtl           like(NULL_VALUE);
  ExtIdx              like(NULL_VALUE);
  AbsRto              like(NULL_VALUE);
  TmsLstExt           like(NULL_VALUE);
  TmsLstLRl           like(NULL_VALUE);
  TmsLclCmp           like(NULL_VALUE);
  TmsCrpAct           like(NULL_VALUE);
  AddByUsr            like(NULL_VALUE);
  AddByPgm            like(NULL_VALUE);
  AddTs               like(NULL_VALUE);
  ChgByUsr            like(NULL_VALUE);
  ChgByPgm            like(NULL_VALUE);
  ChgTs               like(NULL_VALUE);
  CiCompTID2          like(NULL_VALUE);
  CIORGKY             like(NULL_VALUE);
  CIORGNM             like(NULL_VALUE);
  CITYPID             like(NULL_VALUE);
  CIIKEY              like(NULL_VALUE);
  CIAKEY              like(NULL_VALUE);
  CISTAT              like(NULL_VALUE);
  CICRPTYP            like(NULL_VALUE);
  CISKEY              like(NULL_VALUE);
  CITIER              like(NULL_VALUE);
  ExtSeqCde           like(NULL_VALUE);
  ExtSeqDsc           like(NULL_VALUE);
  ExtSeqOrd           like(NULL_VALUE);
end-ds;

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 Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.