LIKEDS syntax bug in RPG

[Guest.Visitor]

While editing RPG source in either Code/400 or using SEU, I have an externally described data structure. I define another data structure with LIKEDS referencing the externally described DS. The editor gives a syntax error (RNF3374) that LIKEDS is not valid with an externally described DS. However, this syntax compiles and behaves perfectly during execution. Is there a fix on the horizon for this?

Running OS400 V5R1, Cum PTF C1254510.

[Guest.Visitor]

LIKEDS syntax bug in RPG

What does your code look like?

[Guest.Visitor]

LIKEDS syntax bug in RPG

The code is a module (NOMAIN) with subprocedures. Excerpts below. The error occurs on stmt 7500:

*************** Beginning of data ********************************* H NOMAIN OPTION(*NODEBUGIO) ALWNULL(*USRCTL) TEXT(*SRCMBRTXT)

0019.00 *-------------------------------------------------------------------- 0020.00 * Project Master 0021.00 FTSPROJ UF E K DISK USROPN 0022.00 *-------------------------------------------------------------------- 0042.00 *-----------------------------* 0043.00 * Global Data Structures * 0044.00 *-----------------------------* 0045.00 D* Project Master File Record 0046.00 D ProjRecord E DS Extname(TSPROJ) 0047.00 D #RecFound N

0073.00 0074.00 * Read Next Project Master 0075.00 D @ReadNxtProj PR LIKEDS(ProjRecord) 0076.00 D $Project 10 CONST OPTIONS(*Omit)

"Hans Boldt" <Hans_Boldt@midrangecomputing.com> wrote in message news:21336e14.0@WebX.WawyahGHajS...

> What does your code look like?