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

It appears that way..


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of paultherrien@xxxxxxxxxxxxxxxxxx
Sent: Thursday, November 6, 2025 10:06 AM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: [EXTERNAL] AW: Two Externally Defined Printer Files in same pgm

For external printer files, can you rename record formats in the file specs?

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Greg
Wilburn
Sent: Thursday, November 6, 2025 9:47 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: 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://protect.checkpoint.com/A7dw56d___myyux:ddBBB.ytyfqgnEkzqknqqr___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OjBhN2M6MzcxM2ZlNjVlM2YwNGIzNTI5ZGE3YjY2OWMzODdhODY3ZGM3MGNhMDFmZWYyODQzZjVkM2VlNTk1NzNhMzAwYTpwOlQ6VA
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/___https://protect.checkpoint.com/A7dw56d___BBB.ytyfqgnEkzqknqqrjsy.htr___.3EO6___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OmEyMDE6YzVhMmM2MDg1YTc4N2I3ZGNlNmJjYTc2YjY5MzRiOWRmNjBmYjY2N2UwODY4MzM2NzcxNzJjMWI0OGFjZTk0ZTpwOlQ6VA
OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNh
Zjo3OjEwNzI6NTg4MTFiMGU4YmU0YjlmMmEyOTQxMzg3OWEyY2QwMjMxYWY2ZjdmNDViYjdiNDQx
ZWU2N2UwZmMzY2Y0MGM1MjpwOlQ6Rg<https://protect.checkpoint.com/v2/r01/___https://protect.checkpoint.com/A7dw56d___myyu___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OmQ5OWE6ZTg3YjliOTYxMTFjZmFhNTYxOTk4NzgzMDBiYmI3MGFhNWYzNTkxYjMzNmNmODJmZjAwMGJlOGIyODdjM2RiMjpwOlQ6VA
://https://protect.checkpoint.com/v2/r01/___www.totalbizfulfillment.com___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MT___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OjBiYTE6N2E4MzQxN2FjNTFhMzY2MjkyMTM0OWZiZjI3OWRiZjM2MmYyY2YxNmZiNjYyNGEyM2YyYWYxYTVjNmJjZWM5ZjpwOlQ6Rg
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://protect.checkpoint.com/A7dw56d___myyux:ddqnxyx.rniwfslj.htrdwksvwkxi___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OjY2ODE6NjE0MmIzNDFmOGExZjFjYmQ3YjAzMGJlMWEzZWYwZTYzZjYzYWM3YTJjMDA3ODVlZDFkMWY0NzJkMTA1ZGQxMTpwOlQ6VA
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://protect.checkpoint.com/A7dw56d___myyux:ddfwhmnAj.rniwfslj.htrdBzqc*/2*___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OjEwNzg6MTFlMGQ4MGQzNTU0ZDU2YTEwMTk3YWY4Y2M1ZDc2OWQ0ZDYwMzcyZWY5MTllMDhiOWJmZTExZmI0OGEwYzQ3MTpwOlQ6VA
-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://protect.checkpoint.com/A7dw56d___myyux:ddqnxyx.rniwfslj.htrdwksvwkxi___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OjY5YWE6ZWQ2MDZlZmEyMGY4Y2E5ODFiZTNiYzNmYTFlYmFkYTdkYmNiOGM0NmFiM2ViYWEwMGFjMjE5MjZmNGFiYWJjODpwOlQ6VA
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://protect.checkpoint.com/A7dw56d___myyux:ddfwhmnAj.rniwfslj.htrdBzqc*/2*___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OjI2NDk6MzU3NjQ4M2EwZmE2N2U3Y2RiNzUxNDlhNmY0ZTJjZjFiMGQ2OTkxYmQ4NjI1MDlhZjY5NjcyODM0MjdmZTNhOTpwOlQ6VA
-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
--
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/rfnqrfsdqnxynsktdwul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OmNhYjQ6OWYyM2E4NTM4ZGVhZjdhOTRiMzZjNmQyOTg2ZWZkOWNiNTY5YWMzNmMyNzY2N2Y3OWFkNjkyZDExNjE0NTkyOTpwOlQ6VA
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___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OjJlMDc6ZGQwZDM2YjUwOTNiZDk1NDIyNWEyZjc0MDdmMzNhMzgwZGFlMDc2MGY4MDVkZWYzODU2MWVlNTkwOTBlYzU0YjpwOlQ6VA.

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/rfnqrfsdqnxynsktdwul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OjVlOWY6ZWI1NWQyZjQ3Y2FmMjYyYzJmNTI1OTQwMWNlNDJiMGJjODA1MTcwZWI0ZGY2ZmNlYzU3Mzc5YWNmMGUzMWQxODpwOlQ6VA
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___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzowNWU3OGMwZGY3MDFiNGY3YmVlMjlmZjNhMWFiZjAzMzo3OjU3ZmI6MzllMDAwZTcyNzY5M2FiMzQ1NTA1MmU2Yzk2MjMwMjZmNWExMTBhMDQ5ODMzNzczYzQzYTNiOWRiOGEyMWNmYTpwOlQ6VA.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Greg Wilburn
Director of IT
301.895.3792 ext. 1231