|
Interesting method of trying to use one trigger program to service three different files. Don't know as if I would have done it that way. Probably would have had three trigger programs. Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin G Armour <garmour400r@xxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 09/04/2003 10:29 AM Please respond to RPG programming on the AS400 / iSeries To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> cc: Fax to: Subject: Re: rename one field in a ext. data structure in RPG-IV? --- rob@xxxxxxxxx wrote: > Doesn't the prefix make them no longer common? Yeah, I know that was a bit fuzzy. Perhaps if I'd included the source snippet, with the ExtFld's now included per Larry's post (not to scale): * Data structures to receive file record data from journal: d dsPayrollFile e ds ExtName( PRJE01 ) d dsS_#$FSTS e ExtFld( #$FSTS ) d dsCountyFile e ds ExtName( PRJE50 ) d dsF_#$FSTS e ExtFld( #$FSTS ) d dsRegInfoFile e ds ExtName( PRJE60 ) d dsR_#$FSTS e ExtFld( #$FSTS ) * * Data structures to hold the before images to * compare to the after images: d b4PayrollFile e ds ExtName( PRJE01 ) Prefix( b4_ ) d b4S_#$FSTS e ExtFld( #$FSTS ) d b4CountyFile e ds ExtName( PRJE50 ) Prefix( b4_ ) d b4F_#$FSTS e ExtFld( #$FSTS ) d b4RegInfoFile e ds ExtName( PRJE60 ) Prefix( b4_ ) d b4R_#$FSTS e ExtFld( #$FSTS ) As you can see, #$FSTS is defined in all three files. Besides the #$FSTS field, all the fields in these three files use a file-specific 2-character prefix. I did not want to further differentiate my prefix on the 'b4' images, and did not want to add a prefix to the first three DS's. GA __________________________________ Do you Yahoo!? Yahoo! SiteBuilder - Free, easy-to-use web site design software http://sitebuilder.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-2024 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.