<div>
What are you trying to do ?<br />
<br />
- Gary<br />

</div>


<div>
trying to limit the records to the current year, 2009. &nbsp;the date in the file is in this format mmddyyyy.
</div>


trying to limit the records to the current year, 2009.  the date in the file is in this format mmddyyyy.

<div>
Date is numeric or character?<br />

</div>


<div>
Roosterup<br />
I tested the previous OPNQRYF against a file with a numeric date and it appears to work fine.<br />
Do you want my test code?<br />
Barry
</div>


Roosterup
I tested the previous OPNQRYF against a file with a numeric date and it appears to work fine.
Do you want my test code?
Barry

<div>
<div class="content wysiwyg-content">
OPNQRYF &nbsp; &nbsp;FILE((FILEA)) OPTION(*ALL) + &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;QRYSLT('(KEY1 *GT 0) *AND + &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(CKYR *EQ ' *CAT &amp;YEAR *CAT ')') + &nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;KEYFLD(KEY1) + &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MAPFLD((CKYR ?????????<br />
<br />
How do I mapfld a four digit year from a numeric field in a mmddyyyy format?
</div>
</div>


OPNQRYF    FILE((FILEA)) OPTION(*ALL) +              
             QRYSLT('(KEY1 *GT 0) *AND +              
             (CKYR *EQ ' *CAT &YEAR *CAT ')') +         
             KEYFLD(KEY1) +       
             MAPFLD((CKYR ?????????

How do I mapfld a four digit year from a numeric field in a mmddyyyy format?

OPNQRYF MAPFLD *zoned 4 0 from field in MMDDYYYY format

Operating systems perform basic tasks, such as recognizing input from the keyboard, sending output to the display screen, keeping track of files and directories on the disk, and controlling peripheral devices such as disk drives and printers. For large systems, the operating system makes sure that different programs and users running at the same time do not interfere with each other. The operating system is also responsible for security, ensuring that unauthorized users do not access the system. Operating systems provide a software platform on top of which other programs, called application programs, can run.

Operating Systems

IBM i, formerly known as AS/400, is a proprietary, midrange, object-based operating and application system. It includes a relational database, a menu-driven interface, support for multiple users, block-oriented terminal support and printers, and supports security, communications, and web-based application servers including Websphere, Apache and Tomcat.