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



what did I do wrong - I am just not thinking right now??

this is my DDS

A          R RSHORD                    PFILE(DATA400/SHORDMIN)
A                                               PFILE(DATA400/SHORDMIN2)
A                                               PFILE(DATA400/SHORDSPC)
 *
A          K OCUST#
A          K OSHPDT
A          K OWDTYP
A          K OITEM#
A          O OSTAT                     VALUES('X')


I get this error whilst compiling my RPG
*RNF2121 30     16 001600  Record format RSHORD in file SHORDWEBLF already
def
                           record format is ignored.
*RNF2121 30     16 001600  Record format RSHORD in file SHORDWEBLF already
def
                           record format is ignored.

*---------------------------------------------------------------------
        *                               RPG name         External name
        * File name. . . . . . . . . :  SHORDWEBLF       DATA400/SHORDWEBLF
        * Record format(s) . . . . . :  RSHORD           RSHORD
        *                               (Not used)       RSHORD
        *                               (Not used)       RSHORD

All I did for the F-spec was this

fshordweblfif   e           k disk    prefix(t_)

Because I have other fields named the same, but this is the only file with
this record format (three times)
I have done joins like this before, but come to think of it the format names
where differant -

Did I miss something just too darned obvious??
And looking in IBM's site is a nightmare for "DB2" stuff - I can't find
anything so I have old V4R2 paper manuals.
TIA


Mark A. Manske
Minter-Weisman
Sr. Project Lead
http://www.minter-weisman.com
mailto:mmanske@minter-weisman.com






As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.