RE: CPF4131

This is one of those times when EXTFILE should not be used. Declare both
printer files as USROPN, but only open the one you need.

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 



-----Original Message-----
From: rpg400-l-bounces+flapeyre=stei.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+flapeyre=stei.com@xxxxxxxxxxxx] On Behalf Of Yivi
Sent: Tuesday, November 15, 2005 3:07 AM
To: RPG programming on the AS400 / iSeries
Subject: CPF4131

Hello everyone.
 My program has to print slightly different reports according to user input.
Since the reports are very similar, and have identical record names I was
trying to choose dynamically the prtf using extfile and a variable.
So, the specification line goes:
 FOutput O E PRINTER OFLIND(*IN10)
F EXTFILE(OPTINFORM)
F USROPN
 I create *VENTA/OFERTVENT*, *VENTA/OFERTVENC*, and then *OUTPUT*temporarily
for compile time.
Then, according to user input I either do:
 OPTINFORM = 'VENTA/OFERTVENT';
or OPTINFORM = 'VENTA/OFERTVENC';
 And then "*open Output;*"
 The thing it only works when it has to use the last PRTF I compiled.
If I try to use OFERTVENC, but the last in the compile queue was OFERTVENT,
it will give me a level check error. If I try to use OFERTVENT, and the last
one was OFERTVENC, likewise.
 What's the workaround? I presume that I could re-compile the PRTFs with
level-check *NO, but that's frowned upon around here. Any other solution?
 Regards,
 I.-
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.