RE: Declaring an external printer file

Thanks all!

I'll do option 2 (usropn).

I use on-exit all the time - it cuts way down on code. I found it works great with a "success" indicator for commit or rollback.

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Daniel Gross
Sent: Tuesday, August 19, 2025 11:58 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: Declaring an external printer file

Hi Greg,

the compiler doesn't generate I-specs for files defined in a sub-procedure.

So either define the file IN the sub-procedure and always use data structures for all output statements.

Or define the file globally with USROPN - let the compiler generate global I-specs - use the file like normal - and just only open and close it inside the procedure.

Either way, I recommend closing the file in the ON-EXIT section like that:

on-exit;
if %open(...);
close ...;
endif;

This way, the file always gets correctly closed - even if the procedure ends abnormally.

HTH
Daniel

Am 19.08.2025 um 17:31 schrieb Greg Wilburn <gwilburn@xxxxxxxxxxxxxxxxxxxxxxx>:

I would like to declare a printer file in a sub procedure... but I can't seem to get the program to compile.
If I move it to the program level, it compiles just fine.

When the DCL-F is in the sub procedure, I get RNF7274: A result data structure is required for I/O operations to file MYPRTF

The goal is to only open the externally described printer file when that particular sub proc is called, and close it when the procedure is finished.

TIA
Greg

[Logo]<https://www.totalbizfulfillment.com/> Greg Wilburn
Director of IT
301.895.3792 ext. 1231
301.895.3895 direct
gwilburn@xxxxxxxxxxxxxxxxxxxxxxx<mailto:gwilburn@xxxxxxxxxxxxxxxxxxxxxxx>
1 Corporate Dr
Grantsville, MD 21536
www.totalbizfulfillment.com<http://www.totalbizfulfillment.com>
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Greg Wilburn
Director of IT
301.895.3792 ext. 1231