|
Hi Mark, I believe you'll have to do it the brute force way for two of the files: A R RSHORD PFILE(DATA400/SHORDMIN) A K OCUST# A K OSHPDT A K OWDTYP A K OITEM# A O OSTAT VALUES('X') A* A R RSHORD2 PFILE(DATA400/SHORDMIN2) A ... all fields defined here (copy from the PF's DDS) A K OCUST# A K OSHPDT A K OWDTYP A K OITEM# A O OSTAT VALUES('X') A* A R RSHORD3 PFILE(DATA400/SHORDSPC) A ... all fields defined here (copy from the PF's DDS) A K OCUST# A K OSHPDT A K OWDTYP A K OITEM# A O OSTAT VALUES('X') You shouldn't need to change your RPG program. hth, Peter Dow Dow Software Services, Inc. 909 425-0194 voice 909 425-0196 fax ----- Original Message ----- From: "Mark A. Manske" <mmanske@minter-weisman.com> To: <rpg400-l@midrange.com> Sent: Thursday, September 06, 2001 1:49 PM Subject: RE: joined logical, three physicals, same record format names > > > -----Original Message----- > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On > Behalf Of Charlie Browne > Sent: Thursday, September 06, 2001 3:29 PM > To: 'rpg400-l@midrange.com' > Subject: RE: joined logical, three physicals, same record format names > > > You need a different record format for each file > > > > Simple enough - however, how do I do that on the LF definition, or do I have > to > somehow do that on the F-spec (the files are used all over, and they have > the > same record format name - too much time to change all that code) but the > records > are the same and I would prefer one loop to read than three to get what I > need. > > I should know this, but then again, by boss asked me about #Gsort the other > day > and I went completely blank(though I have worked on the S/34-36 for a "few" > years) > > By the way, how have you been dealing with reading/getting the manuals for > "DDS"?? > > TIA > > Mark A. Manske > Minter-Weisman > Sr. Project Lead > http://www.minter-weisman.com > mailto:mmanske@minter-weisman.com > > > > > _______________________________________________ > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l > or email: RPG400-L-request@midrange.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. _________________________________________________________ Do You Yahoo!? Get your free @yahoo.com address at http://mail.yahoo.com
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.