Can it be possible ???

[emayrand@xxxxxxxxxxxxxxxx (Eric Mayrand)]

Hi,

I want to know if somebody have already had this problem.


Description of the problem:

FileA - Customer file
Field1
Fiedl2
Filed3
_______________________________________
PgmA - update and create data in FILEA

FILEA UF  E        Disk
eval Field1 = 'VALUE OF FIELD1'
eval FIELD2 = 'VALUE OF FIELD2'
call PGMB Parm WORK1
if WORK1 > 0
eval FIELD3 = 'VALUE OF FIELD3'
else
eval FIELD3 = 'Erreur'
endif

write FILEA
move on *INlr
_______________________________________________________________
PGMB - Read FILEA for execute some calculation on WORK1 and return to
PgmA

FILEA IF E             Disk
read filea
dow not end of file
calculation 
read FILEA
enddo
________________________________________________________
Problem is :

When i write the record, value of Field1 is not 'VALUE OF FIELD1'

Question : Can it be possible than when i read fileA in PGMB the value
of FIELD1 change in memory and when i return to PGMA the value of
FIELD1 is taken from memory of PGMB.

NB. Field1 is not in the parameters list of PGMB  And I didn't use
SHARE(*YES).

Thanks
Eric Mayrand
Norampac Div. Victoriaville
emayrand@boisfrancs.qc.ca
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---