/free rrn = 3425; chain rrn FILE1; if (not %found(FILE1)); // do something endif; *inlr = *on; return; /end-free
CHAIN