Re: OPNQRYF fun

Dave:

By defining YY as 2|0, you are losing significant digits and OPNQRYF
does not like this.  Try the following:

OPNQRYF FILE((THISFILE)) QRYSLT('YY = 98') MAPFLD((MMDD ' FTRNDT / 100 '
*ZONED 4 0)
(YY 'FTRNDT - MMDD*100' *ZONED 2 0))

Another way is use the %DIGITS on FTRNDT and use %SST to get to the
year.

Opnqryf is very powerful and unfortunately all the tips and techniques
are not available in the IBM manuals.  There are some good books out
there.  One of them I like is (published recently) is:
OPNQRYF By Example by Mike Dawson and Mike Manto.  You can get more info
from http://www.29thStreetPress.com/
HTH

--- original message --
Hello Everybody,
I trying to extract the year portion of a  6, 0 MMDDYY date
using OPNQRYF.

I'm using a MAPFLD like this:
                      MAPFLD((TRAN_MM 'FTRNDT / 10000' +
                                    *ZONED 2 0) (TRAN_YY 'FTRNDT / 100'
+

                                    *ZONED 2
2))


So I'm defining transaction month, TRAN_MM, as the transaction date
divided by 10000, with a length of 2.  This works fine.

My problem is with TRAN_YY.  I'm trying to divide the 6 digit date by
100, and use the 2 digits that make up that remainder as the year.

I keep getting a: CPD4002 - Key mapping error in field FTRNDT.
I get about 20 CPD4002's and then a CPD4274 - Key mapping error
for member FILENAME.

What am I doing wrong?
TIA,
Dave

--
Thank You.

Regards

Dave Mahadevan.. mailto:mahadevan@fuse.net


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---