Re: Can it be possible ???

Salut, Eric

You should make sure that all parameters on CALL statements have the same 
definition in the calling and called programs (same type, same length). Watch 
out for numeric parameter defined as zoned in one program and packed in the 
other. Errors in parameters  are not detected at compil time and can cause 
randum behavior in programs.

Denis Robitaille
Cascades inc.
Tel: 819-363-5187
DRobitaille@cascades.com

>>> Eric Mayrand <emayrand@boisfrancs.qc.ca> 03/27/98 03:24pm >>>
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 
+---

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