In this case, yes. I'm using this method very often.
You can't use the same record name in two different files.
-----Ursprüngliche Nachricht-----
Von: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] Im Auftrag von
Greg Wilburn
Gesendet: Donnerstag, 6. November 2025 15:47
An: RPG programming on IBM i
Betreff: 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@xxxxxxxxxxxxxxxxxx> On Behalf Of myibmi via
RPG400-L
Sent: Thursday, November 6, 2025 9:38 AM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: myibmi <myibmi@xxxxxxxxxxx>
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@xxxxxxxxxxxxxxxxxx] 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.totalbizfulfillm
ent.com/___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0
ZjgyYzJiNmNiOTNhZjo3OjNmMjU6M2FmYTVkZDNhNGJkNjJkZDM0ZTc5NzY2MWQzNWUyM2Q3NDNj
ZTdlZjBjNGQ3NzQzODc5NjliNjk0NjZhYTRlYTpwOlQ6VA> 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
https://protect.checkpoint.com/v2/r01/___www.totalbizfulfillment.com___.YzJ1
OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNh
Zjo3OjEwNzI6NTg4MTFiMGU4YmU0YjlmMmEyOTQxMzg3OWEyY2QwMjMxYWY2ZjdmNDViYjdiNDQx
ZWU2N2UwZmMzY2Y0MGM1MjpwOlQ6Rg<
https://protect.checkpoint.com/v2/r01/___http
://www.totalbizfulfillment.com___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MT
YwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjUwNmI6MDVhNjQ3ZTQwZjRiYTVlMzgyOT
YyNmM3N2RhMDJhNjdiOGVkNzI2MGUwZmUyNzIzOGI3NmNmZmU4ZTVkY2FjMjpwOlQ6VA>
--
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://protect.checkpoint.com/v2/r01/___https://lists.midrange.com/rfnqrfsd
qnxynsktdwul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGY
zMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjQ1ZGQ6MDBjNGQ3MmQ0OTdlNmRkNzMyNTQ3NTRlZmUzYjk
wODE1NDMxZTdmZjY5OWVmNmU2NTkxNWVkMDBlOWRlNDBmMDpwOlQ6VA
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://protect.checkpoint.com/v2/r01/___https://archive.midrange.com/wul955
-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYz
JiNmNiOTNhZjo3OmIxOGY6MTcyYWYxYTVlNmUxYzUyMzgxZjM0MjAxM2I5NDc1Y2ViN2QyMWZlNm
I5ZGM5MGNkNTAxODkzMDQ2MTBlOTMzNDpwOlQ6VA.
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://protect.checkpoint.com/v2/r01/___https://lists.midrange.com/rfnqrfsd
qnxynsktdwul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGY
zMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjBjZDE6ZTk5NjNmNTQ1YzMzZjhkYWU4NmIxMjRlZmFiOGU
zOGRkOGZkY2U5YjM0MjljZjMyMjRiZTE2YTJmZWQ3MGRmNjpwOlQ6VA
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://protect.checkpoint.com/v2/r01/___https://archive.midrange.com/wul955
-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYz
JiNmNiOTNhZjo3OjM5NTE6MzRkYjc1MGExMTRkNThhYTA5MTdlZTQyZTgyZmY3NWE4OGZmNGUzOD
M3OTU5MTEwNGNmOWE0YmY4ZGRlYWU3NjpwOlQ6VA.
Please contact support@xxxxxxxxxxxxxxxxxxxx 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
midrange.com
