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 <[email protected]>:
> 
> 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
> [email protected]<mailto:[email protected]>
> 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: [email protected]
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: [email protected]
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
> 
> Please contact [email protected] for any subscription related questions.
> 
-- 
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: [email protected]
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact [email protected] for any subscription related questions.