× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.