Re: A good one.

["Russell Conerly" <rconerly@xxxxxxxxxxx>]

Looks like you need to use a *Tcat before the "days" instead of an *cat
when building the &frdate and the &todate.

IMHO,

Russell Conerly
Tupelo, MS


> I've got a good one. V5R2. CLLE.
>
> pgm parm(&year &month)
> dcl var(&year) type(*char) len(4)
> Dcl var(&month) type(*char) len(4)
> dcl var(&frdate) type(*char) len(7)
> dcl var(&todate) type(*char) len(7)
>
> chgvar var(&frdate) +
>  value('1' *cat %sst(&year 3 2) *cat &month *cat '01')
> chgvar var(&todate) +
>  value('1' *cat %sst(&year 3 2) *cat &month *cat "31")
>
> ovrdbf file(Imhist) share(*yes)
>
> opnqryf file(Imhist ppgItems) +
>         format(Imhist) +
>         jfld((1/itnbr 2/itnbr)) +
>         jdftval(*no) +
>         qryslt('(tcode = "RP") *and +
>                 (trndt *eq %range(' *tcat &frdate *bcat &todate *tcat
> '))')
> +
>         keyfld(itnbr trndt) +
>         mapfld((itnbr '1/itnbr') +
>                (prqoh '2/disc'))
>
> when run, the QRYSLT looks like this in the joblog.
>
>   700 - OPNQRYF FILE((IMHIST) (PPGITEMS)) FORMAT(IMHIST) QRYSLT('(tcode =
>  "RP") *and (trndt *eq %range(10311 10311))') KEYFLD((ITNBR) (TRNDT))
>  JFLD((1/ITNBR 2/ITNBR)) JDFTVAL(*NO) MAPFLD((ITNBR '1/itnbr') (PRQOH
>  '2/disc'))
>
> question: Where are my days? 2003 is passed in as the year, 11 is passed
> in
> as the month.
>
> Thanks,
>
> Mark
>
> Mark D. Walter
> Senior Programmer/Analyst
> CCX, Inc.
> mwalter@xxxxxxxxxx
> http://www.ccxinc.com
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (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.
>
>