RE: A good one.

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Mark,

Does Month need to be 4 bytes?

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: MWalter@xxxxxxxxxxxxxxx [mailto:MWalter@xxxxxxxxxxxxxxx]
Sent: Thursday, November 13, 2003 2:28 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: 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.