RE: OPNQRYF fun

[Ken Slaugh <ken.slaugh@xxxxxxxxxx>]

Why divide at all?

        Try a MAPFLD like this:
                              MAPFLD((TRAN_MM 'FTRNDT / 10000'  *ZONED 2
0) (TRAN_YY 'FTRNDT * 1'  *ZONED 2 0))                           

Ken Slaugh
Senior Programmer/System Analyst
AS/400 Professional Network Administrator/MSE
Specialist - Client Access/400
Chouinard & Myhre, Inc.

> -----Original Message-----
> From: David Prowak [SMTP:prowakd@emi.com]
> Sent: Wednesday, April 14, 1999 1:28 PM
> To:   midrange list
> Subject:      OPNQRYF fun
> 
> 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
> +---
+---
| 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
+---