Re: OPNQRYF fun

[boothm@xxxxxxx]

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