Can't compile RPG program with logical having 2 identical formats HELP!
Rich Flowers
Hi,
I have a multiple format join logical file that I can't seem to use
within an RPG program since I can only rename the 1st of 2 identical
formats. Does anyone know how to get around this ?
I have listed all pertinent source files & compile error below.
Thanks, Rich (flo...@usaor.net)
1) compile error received
----------------------
* QRG2126 Severity: 40 Number:
1
Message . . . . : Record-format name in
externally-described-
logical file already defined in
file.
2) RPG F-specs generating error
----------------------------
0006.00 FILEC IF E K
DISK
0007.00 F RECFMT
KRENAMENEWFMT
expanded compile listing of the above
-------------------------------------
0000.49 * 2126 600 RECORD NAME RECFMT IN EXTERNALLY-DESCRIBED
FILE ALREADY DEFINED IN FILE.
0000.50 RECORD FORMAT(S): LIBRARY DATALIB FILE
FILEC.
0000.51 EXTERNAL FORMAT RECFMT RPG NAME NEWFMT
0000.52 EXTERNAL FORMAT RECFMT DROPPED DUE TO ERROR OR
IGNORE.
3) DDS specifications
------------------
FILEA (has current data)
-----
A R RECFMT
A FIELDA 10
A FIELDB 10
...
A K FIELDA
FILEB (has archive data)
-----
A R RECFMT
A FIELDA 10
A FIELDB 10
...
A K FIELDA
FILEC (has combined data)
-----
A R RECFMT PFILE(FILEA
FILEB)
P. S. I can't change FILEA or FILEB. I created FILEC, so if you have a
solution where FILEC's DDS could be coded differently to still include
FILEA & FILEB using FIELDA as the key, I am all ears. I appreciate all
responses.
Jeff Houston
I can see why it won't compile -- RPG can't determine which format you want
to rename since they both have the same name.
I would suggest coding the dds for filec to use a different rcdfmt name for
fileb. Leave filea alone, but for fileb, specify a new rcdfmt name (any
name will do), then list all the fields for fileb below it (when building
lgl's, you can either use the pf's rcdfmt name and have dds automatically
inlude all the fields for that rcdfmt or you can specify a new rcdfmt name
and list which fields you want to include). This should work.
Good Luck
Jeff Houston
The RREEF Funds
San Francisco, CA
Rich Flowers wrote in message <3471F9...@usaor.net>...