OPNQRYF fun

["David Prowak" <prowakd@xxxxxxx>]

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