Re: How does one rename a field in RPG400 that is a output field only?

Darryl, I have a problem with your code snippet. Putting aside the whole issue of <why> you are writing an RPG/400 program, the I-spec you've provided (below) doesn't look right.

RPG/400 will only accept Record Format names of 8-chars. RECFMT_NAME is 11-chars - and not acceptable in DDS either.

Assuming a typo, even RECFMT_NAM would not work with RPG/400. (Are you using the CRTRPGPGM compile command?)

This suggests you may be attempting to write RPG IV code in an RPG/400 style. For example, would this work for you?

     FRENAME    CF   E             WORKSTN

     D RECFMT_DS       DS
     D  ORDER_STS
     D  ORDSTS                             LIKE(ORDER_STS) OVERLAY(ORDER_STS)

     C                   Eval      ORDSTS = 'Status Cde'
     C                   ExFmt     RecFmt_Nam
     C                   Eval      *InLR = *On

(There really is no reason to code in the above style at all.)

Apologies if I'm off target with my assumptions.

Brian.

On 14/04/2020 19:53, dfreinkel wrote:

I have an new RPG/400 program that has 2 both fields and 1 output field. The
compiler gives a QRG4033 error and I believe the error is caused because the
field is an output only field. The compiler fails on the rename of the
field. All other long name fields successfully rename.

IRECFMT_NAME

I ORDER_STS ORDSTS

Don't know if I have ever had this issue before. Too long to remember.
The record format is a subfile control record.
How does one rename a field name such as ORDER_STS to ORDSTS for an output
field?