RE: [EXTERNAL] AW: Two Externally Defined Printer Files in same pgm

Not following...

I can't change the printer files - they are used by other programs.

Do I need to rename each record format in one of the files?

-----Original Message-----
From: RPG400-L <rpg400-l-bounces-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org> On Behalf Of myibmi via RPG400-L
Sent: Thursday, November 6, 2025 9:38 AM
To: 'RPG programming on IBM i' <[email protected]>
Cc: myibmi <[email protected]>
Subject: [EXTERNAL] AW: Two Externally Defined Printer Files in same pgm

Hi,

Don't need a qualified definition, but use different record definition for
the write within the printerfiles.
e.g.    write   prthdr1 for printer1 and prthdr2 for printer2

-----Ursprüngliche Nachricht-----
Von: RPG400-L [mailto:rpg400-l-bounces-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org] Im Auftrag von
Greg Wilburn
Gesendet: Donnerstag, 6. November 2025 15:29
An: RPG programming on IBM i
Betreff: Two Externally Defined Printer Files in same pgm

I have a situation where I need to print to two different printer files
within the same program... the problem is that both printer files share
record format and field names.

I've been attempting to use the "qualified" when defining one of the printer
files (maybe I should do both?), but the compiler is giving me this error
RNF7274: A result data structure is required for I/O operations to file

Definitions are:
  dcl-f  prtf01     printer oflind(*in09) qualified usropn;
  dcl-f  prtf02     printer oflind(*in08) usropn;

Each is being written inside a separate procedure... Each is open/closed as
needed.

Not sure how to solve this short of writing separate pgms.

Thx,
Greg
[Logo]<https://protect.checkpoint.com/v2/r01/___https://www.totalbizfulfillment.com/___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjNmMjU6M2FmYTVkZDNhNGJkNjJkZDM0ZTc5NzY2MWQzNWUyM2Q3NDNjZTdlZjBjNGQ3NzQzODc5NjliNjk0NjZhYTRlYTpwOlQ6VA>    Greg Wilburn
Director of IT
301.895.3792 ext. 1231
301.895.3895 direct
gwilburn-kuYYJ3CQfvZxq3Q2jbZZw/[email protected]<mailto:gwilburn-kuYYJ3CQfvZxq3Q2jbZZw/[email protected]>
1 Corporate Dr
Grantsville, MD 21536
https://protect.checkpoint.com/v2/r01/___www.totalbizfulfillment.com___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjEwNzI6NTg4MTFiMGU4YmU0YjlmMmEyOTQxMzg3OWEyY2QwMjMxYWY2ZjdmNDViYjdiNDQxZWU2N2UwZmMzY2Y0MGM1MjpwOlQ6Rg<https://protect.checkpoint.com/v2/r01/___http://www.totalbizfulfillment.com___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjUwNmI6MDVhNjQ3ZTQwZjRiYTVlMzgyOTYyNmM3N2RhMDJhNjdiOGVkNzI2MGUwZmUyNzIzOGI3NmNmZmU4ZTVkY2FjMjpwOlQ6VA>
--
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://protect.checkpoint.com/v2/r01/___https://lists.midrange.com/rfnqrfsdqnxynsktdwul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjQ1ZGQ6MDBjNGQ3MmQ0OTdlNmRkNzMyNTQ3NTRlZmUzYjkwODE1NDMxZTdmZjY5OWVmNmU2NTkxNWVkMDBlOWRlNDBmMDpwOlQ6VA
or email: RPG400-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org
Before posting, please take a moment to review the archives
at https://protect.checkpoint.com/v2/r01/___https://archive.midrange.com/wul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OmIxOGY6MTcyYWYxYTVlNmUxYzUyMzgxZjM0MjAxM2I5NDc1Y2ViN2QyMWZlNmI5ZGM5MGNkNTAxODkzMDQ2MTBlOTMzNDpwOlQ6VA.

Please contact support-FMtJrHiV//lnDLsaKlm4mFaTQe2KTcn/@public.gmane.org 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://protect.checkpoint.com/v2/r01/___https://lists.midrange.com/rfnqrfsdqnxynsktdwul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjBjZDE6ZTk5NjNmNTQ1YzMzZjhkYWU4NmIxMjRlZmFiOGUzOGRkOGZkY2U5YjM0MjljZjMyMjRiZTE2YTJmZWQ3MGRmNjpwOlQ6VA
or email: RPG400-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org
Before posting, please take a moment to review the archives
at https://protect.checkpoint.com/v2/r01/___https://archive.midrange.com/wul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjM5NTE6MzRkYjc1MGExMTRkNThhYTA5MTdlZTQyZTgyZmY3NWE4OGZmNGUzODM3OTU5MTEwNGNmOWE0YmY4ZGRlYWU3NjpwOlQ6VA.

Please contact support-FMtJrHiV//lnDLsaKlm4mFaTQe2KTcn/@public.gmane.org for any subscription related questions.

[CAUTION! This email originated outside of the organization. Please do not open attachments or click links from an unknown or suspicious origin.]

Greg Wilburn
Director of IT
301.895.3792 ext. 1231
-- 
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: RPG400-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support-FMtJrHiV//lnDLsaKlm4mFaTQe2KTcn/@public.gmane.org for any subscription related questions.