Re: OPNQRYF fun

["David Prowak" <prowakd@xxxxxxx>]

Thanks Booth, that was the trick.
Dave, try this:     FTRNDT // 100

Ken, I tried your suggestion when I started changing this CL, and,
per your suggestion, I tried it again.  I still got the field mapping
error.
(TRAN_YY 'FTRNDT * 1'  *ZONED 2 0)                           
I'm not sure why, maybe the underlying database engine doesn't
handle the overflow condition properly.  Thanks for the reply.

Dave
----------
> From: boothm@ibm.net
> To: MIDRANGE-L@midrange.com
> Subject: Re: OPNQRYF fun
> Date: Wednesday, April 14, 1999 6:45 PM
> 
> In <199904142033.QAA06280@lucas.emi.com>, on 04/14/99 
>    at 04:28 PM, "David Prowak" <prowakd@emi.com> said:
> 
> >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))                        
 
> 
> 
> Dave, try this:     FTRNDT // 100
> 
> That translates to:  "Give me the remainder of FTRNDT divided by 100".  
The remainder is of course the YY you are looking for.
> 
> >      
> 
> 
> >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
> >+---
> 
> 
> -- 
> -----------------------------------------------------------
> boothm@ibm.net
> Booth Martin
> -----------------------------------------------------------
> 
> +---
> | 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
+---