Re: LikeDS in CRTSQLRPGI

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Are you using /COPY or /INCLUDE?

The pre-compiler ignores /INCLUDE.

Charles

On Fri, Dec 4, 2009 at 11:47 AM, Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx> wrote:
> I have the following in a copy member:
>
> D*
> D* Data structures for holding totals for DSR bonus calcs
> D*
>
> D* Template
> D DSRBns_t        DS                  Template
> D                                     Qualified
> D  YYYYMM                        6S 0 Inz(0)
> D  Sales                        11P 2 Inz(0)
> D  CGS                          11P 2 Inz(0)
> D  GrsMgn                       11P 2 Inz(0)
> D  GrsPct                        5P 2 Inz(0)
> D  Cases                         7P 0 Inz(0)
> D  Units                         7P 0 Inz(0)
> D  CrdAmt                       11P 2 Inz(0)
> D  NetMgn                       11P 2 Inz(0)
> D  NetPct                        5P 2 Inz(0)
>
> D* All vendor totals
> D  LYT            DS                  LikeDS(DSRBns_t) Inz(*LikeDS)
> Last year
> D  CYT            DS                  LikeDS(DSRBns_t) Inz(*LikeDS)
> Current year
> D  DFT            DS                  LikeDS(DSRBns_t) Inz(*LikeDS)
> Difference
>
> D* Major vendor totals
> D  LYM            DS                  LikeDS(DSRBns_t) Inz(*LikeDS)
> Last year
> D  CYM            DS                  LikeDS(DSRBns_t) Inz(*LikeDS)
> Current year
> D  DFM            DS                  LikeDS(DSRBns_t) Inz(*LikeDS)
> Difference
>
> When compiled in an RPG SQL program (CRTSQLRPGI), I get SQL0312 in the
> compile listing that they are not defined or unusable.  Here's an example of
> how I'm using it:
>
> Exec SQL
>  Select CurYYYYMM,
>         Coalesce(Sum(VDSALS), 0),
>         Coalesce(Sum(VDCGSL), 0),
>         Coalesce(Sum(VDGMGN), 0),
>         0,
>         Coalesce(Sum(VDCASH), 0),
>         Coalesce(Sum(VDUNSH), 0),
>         Coalesce(Sum(VDCDAM), 0),
>         Coalesce(Sum(VDNMGN), 0),
>         0
>    Into :CYM
>    From SSVNDDHS
>    Where VDSLNR = :srslnr and
>          VDYYMM = :CurYYYYMM and
>          VDVLVL <= :prmvnbrlmt;
>
> Am I doing something wrong or illegal?  Thanks.
>
> --
> Jeff Crosby
> UniPro FoodService/Dilgard
> P.O. Box 13369
> Ft. Wayne, IN 46868-3369
> 260-422-7531
> www.dilgardfoods.com
>
> The opinions expressed are my own and not necessarily the opinion of my
> company.  Unless I say so.
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.