Re: A good one.

[Scott Klement <klemscot@xxxxxxxxxxxx>]

The problem with this code is that &MONTH is defined as being 4 chars
long.  It should be 2.

In the future, please post CL related questions to MIDRANGE-L, they're not
appropriate for this list.


On Thu, 13 Nov 2003 MWalter@xxxxxxxxxxxxxxx wrote:

> 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.
>