Re: Call PGM and keep using the before file

Try reading into a data structure
the pass that data structure as a parm

     D MyFileDS      e ds                  extname(MyFile) Qualified
     C/FREE
       read(e) MyFile MyFileDS;
       PgmB(MyFileDS);

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Nino Onofre <ninoonofre@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/10/2005 08:08 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
Call PGM and keep using the before file






I have a PGM (A) and call another PGM (B) and I wanna
to remain using the fields of the File (A) read in the
PGM (A) i.e.

PGM (A)

Read FileA         40
Dow not *in40

Call PGM(B)

Read FileA         40
Enddo

....



PGM(B)
....
VarB = VarB + FileA.Fielda
....


Thank you for your help

Nino




_________________________________________________________
Do You Yahoo!?
Información de Estados Unidos y América Latina, en Yahoo! Noticias.
Visítanos en http://noticias.espanol.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.