|
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.