====== Free Form CHAIN with RRN ======
<sxh>
/free
 rrn = 3425;

 chain rrn FILE1;
 if (not %found(FILE1));
   // do something
 endif;

 *inlr = *on;
 return;
/end-free
</sxh>

<note important>The paranthesis around the key on the ''CHAIN'' opcode must be omitted if you want to access the file by the relative record number.</note>

{{tag>devel rpg}}