<div>
I must have been asleep at the wheel earlier. I figured it out I needed to SETLL on the file and then chain.
</div>


I must have been asleep at the wheel earlier. I figured it out I needed to SETLL on the file and then chain.

<div>
sorry I did not get back to you earlier. it has been hairy at work. Thank you for your great answer!
</div>


sorry I did not get back to you earlier. it has been hairy at work. Thank you for your great answer!

<div>
<div class="content wysiwyg-content">
I am writing a program where the boss wants the calc specs in RPG Free. &nbsp;I am struggling with what used to be a simple thing but its not so simple for me in Free format . &nbsp;The input file has a single field defined as zoned 10, 0. &nbsp;The 10 digit field includes the check digit in the last postion 0123456789. &nbsp;The file that I need to chain to has two keys, Key a is zoned 9,0 and Key b is zoned 1,0. so it would be 012345678 for keya and 9 for keyb . &nbsp;Key b is the check digit. &nbsp;Here is the problem when I the following and run Debug the I do not get a hit. <br />
<br />
Chain (single field) File1;<br />
If %found (File1);<br />
<br />
do something....<br />
<br />
EndIf;<br />
<br />
When the program is running in debug it goes straight to EndIf. It does not process a single calc statement. <br />
The input file record that does exist in the file that I am chaining to. &nbsp;I am not sure what I am doing wrong. Anyone have any thoughts?
</div>
</div>


I am writing a program where the boss wants the calc specs in RPG Free.  I am struggling with what used to be a simple thing but its not so simple for me in Free format .  The input file has a single field defined as zoned 10, 0.  The 10 digit field includes the check digit in the last postion 0123456789.  The file that I need to chain to has two keys, Key a is zoned 9,0 and Key b is zoned 1,0. so it would be 012345678 for keya and 9 for keyb .  Key b is the check digit.  Here is the problem when I the following and run Debug the I do not get a hit. 

Chain (single field) File1;
If %found (File1);

do something....

EndIf;

When the program is running in debug it goes straight to EndIf. It does not process a single calc statement. 
The input file record that does exist in the file that I am chaining to.  I am not sure what I am doing wrong. Anyone have any thoughts?

RPG Free Parital key and move replacement

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.

IBM System i

IBM DB2 is a family of relational database server products developed by IBM that have been extended to support object-relational features and non-relational structures like JSON and XML. There are three main products in the DB2 family: DB2 for Linux, UNIX and Windows (informally known as DB2 LUW), DB2 for z/OS (mainframe), and DB2 for i (formerly OS/400), plus a version for IBM's Virtual Storage Extended (VSE) operating system.