Re: A good one.

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.