RE: A good one.

[Zylka Marc <Zylka.Marc@xxxxxxxxx>]

 You have &month defined as character 4.  Character 2 would work fine.
Also, the "31" will work better as '31'.        

Marc Zylka


-----Original Message-----
From: MWalter@xxxxxxxxxxxxxxx [mailto:MWalter@xxxxxxxxxxxxxxx]
Sent: Thursday, November 13, 2003 3: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.


**********************************************************************
The information and any files contained in this e-mail message are property of 
WestPoint Stevens Inc., its subsidiaries or affiliates, and are intended only 
for use of the individual or entity named above.  If the reader of this message 
is not the intended recipient, or the employee or agent responsible to deliver 
it to the intended recipient, you hereby are notified that use, dissemination, 
distribution or copying of this information is strictly prohibited.  If you 
have received this communication in error, please immediately notify us by 
return e-mail and destroy the original message.  Thank you.
**********************************************************************