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

[Raul Alberto Jager Weiler <raul.jager@xxxxxxxxx>]

¿Prefix?  I am afraid it is only for the field, not the records.

On Thu, Nov 6, 2025 at 12:01 PM myibmi via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

> 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
> <http://ent.com/___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjNmMjU6M2FmYTVkZDNhNGJkNjJkZDM0ZTc5NzY2MWQzNWUyM2Q3NDNj>
> 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
> <https://protect.checkpoint.com/v2/r01/___www.totalbizfulfillment.com___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNh>
>
> 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
> <https://protect.checkpoint.com/v2/r01/___https://lists.midrange.com/rfnqrfsdqnxynsktdwul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjQ1ZGQ6MDBjNGQ3MmQ0OTdlNmRkNzMyNTQ3NTRlZmUzYjk>
> 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
> <https://protect.checkpoint.com/v2/r01/___https://archive.midrange.com/wul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OmIxOGY6MTcyYWYxYTVlNmUxYzUyMzgxZjM0MjAxM2I5NDc1Y2ViN2QyMWZlNm>
> 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
> <https://protect.checkpoint.com/v2/r01/___https://lists.midrange.com/rfnqrfsdqnxynsktdwul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjBjZDE6ZTk5NjNmNTQ1YzMzZjhkYWU4NmIxMjRlZmFiOGU>
> 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
> <https://protect.checkpoint.com/v2/r01/___https://archive.midrange.com/wul955-q___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzo0MTYwMDkyNTNkOGYzMjZhN2M0ZjgyYzJiNmNiOTNhZjo3OjM5NTE6MzRkYjc1MGExMTRkNThhYTA5MTdlZTQyZTgyZmY3NWE4OGZmNGUzOD>
> 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://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.