Rép. : Re: Host field value is changed after during a CALL

That would be it.  Another thing I noticed is that the program has been 
translated from RPG/400 to ILE RPG but only to fit the columns.  The call to 
QRCVDTAQ and its parameters have not changed.
 
Another thing that I wonder about, why the call is not returning an error if 
the parameters aren't the right size?  Ain't it supposed to return a status 
code greater than 100?
 
TIA!
 
Pascal Bellerose
Responsable exploitation de site TI/IT site manager
(418) 832-3507 ext: 8507
pascal_bellerose@xxxxxxxxxxxx
 
Cascades, Groupe Papiers Fins
Division Fibres Breakey
739, St-Augustin
Breakeyville, Qc., Can.
G0S 1E2
(418) 832-6115  (ext:8500)


>>> scottmildenberger@xxxxxxxxx 03/12/2003 09:33 >>> 
One possibility is that you may have a parameter to QRCVDTAQ 
defined incorrectly as far as it's size/format which is causing 
something else to be corrupted like @ECRAN. 

Scott MIldenberger 

--- Pascal Bellerose < pascal_bellerose@xxxxxxxxxxxx > wrote: 
> Hi guys, 
> 
> Here' my problem: 
> 
> I have three display formats and the @ECRAN field is the 
> indicator to which format will be displayed. EX: IF 
> @ECRAN=01, Format "EC01WS" will be displayed. 
> Somewhere in the process, I read the options entered by the 
> user in "EC01WS" and send the key values from the subfile to a 
> Data Queue for further processing. 
> 
> If the user entered Option 2, I must show format "EC02WS". So 
> @ECRAN is changed from 01 to 02. But then I call "QRCVDTAQ" 
> to retrieve the key values so I can fill "EC02WS". During 
> that call, @ECRAN is set back to 01 wihtout any reason. 
> I know this behavior is not supposed to be. I just don't why 
> it is now. 
> 



__________________________________ 
Do you Yahoo!? 
Free Pop-Up Blocker - Get it now 
http://companion.yahoo.com/ 
_______________________________________________ 
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 .