Re: Useing CHAIN in serviceprogram

Yes...
It was problem. I moved tmpStruct out of subprocedures and it works.

Thanks!

Igor Bešlić, dipl. ing. rač. 
VOLKSBANK d.d.
OJ Informatika
Zelinska 2, 10000 Zagreb
tel: +385 1 6326422
e-mail: Igor.Beslic@xxxxxxxxxxxx




Mike Barton <Mike.Barton@xxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02.09.2004 15:12
Please respond to RPG programming on the AS400 / iSeries
 
        To:     RPG programming on the AS400/iSeries 
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Re: Useing CHAIN in serviceprogram


Igor
                 just a guess (i'm no expert...)  but, presumably
by defining FIELD1 & FIELD2 (which are fields on file
F2RF2 ) within the procedure, you are making local 
versions of these fields.
When you Chain, the Global versions of the fields are
being updated but not your Local ones.

Try moving tmpStruct outside of the Procedure.

HTH

Mike 
###########################################

This message has been scanned by F-Secure Anti-Virus for Microsoft 
Exchange.
For more information, connect to http://www.F-Secure.com/


This communication and the information it contains: - (a) Is intended for 
the person(s) or organisation(s) named above and for no other person(s) or 
organisation(s). Access to this mail by anyone else is unauthorised. (b) 
Is confidential, and may be legally privileged or otherwise protected in 
law. Unauthorised use, circulation, copying or disclosure of any part of 
this communication may be unlawful. (c) May be susceptible to 
interference, and should not be assumed that it has come in its original 
form and/or from the stated sender or PinkRoccade UK accepts no 
responsibility for information, errors or omissions in this e-mail or use 
or misuse thereof or any act done or omitted to be done in connection with 
this communication. If you are not the intended recipient, please inform 
postmaster@xxxxxxxxxxxxxxxxx immediately and delete it and all copies from 
your system.

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