RE: It must be Monday, what have I done now?

No... You were right, this is what the compiler 'bakes' of it (once I
raised the compile bar to 11):

C*exec sql

C* execute RDVA_A1_Select

C*     using :@i_DVASTS, :@i_DVAN08, :@i_DVAN08WER

C*end-exec

C                   EVAL      SQL_00315    = @I_DVASTS
SQL 
C                   EVAL      SQL_00316    = @I_DVAN08
SQL 
C                   EVAL      SQL_00317    = @I_DVAN08WER
SQL
C                   Z-ADD     -4            SQLER6
SQL   35  
C                   CALL      SQLROUTE
SQL       
C                   PARM                    SQLCA
SQL       
C                   PARM                    SQL_00310
SQL       
C     SQL_00313     IFEQ      '1'
SQL        
C                   EVAL      @I_DVASTS = SQL_00315
SQL

Etc. etc. etc.... For some reason it will change the contents of the
key-fields when SQL_00313 equals '1' (I suppose that when an error has
occurred... But I am not sure...)

I will change the parameter to VALUE, I do not want to touch the values
in the calling subroutine/procedure, but I do think this is strange
behaviour. Perhaps someone has a plausible explanation.

Charles: I can't thank you enough for the insights you gave me.

Thanks,

Cor

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: maandag 13 november 2006 14:55
To: RPG programming on the AS400 / iSeries
Subject: RE: It must be Monday, what have I done now?

I don't quite get your remark about changing the contents 

of a CONST 

variable.. Where does this change take place then? In my 

view I am not 

trying to change the variable, I am using that variable
rather: passing
it on.

Sorry,

You are correct, the CONST would not be a problem.  I misread 
the original code.

Charles Wilt
--
iSeries Systems Administrator / Developer Mitsubishi Electric 
Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

--
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.

This e-mail and any attachment is for authorised use by the intended 
recipient(s) only. It may contain proprietary material, confidential 
information and/or be subject to legal privilege. It should not be copied, 
disclosed to, retained or used by, any other party. If you are not an intended 
recipient then please promptly delete this e-mail and any attachment and all 
copies and inform the sender. Thank you.