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

[Brian Parkins <goodprophet.bp@xxxxxxxxx>]

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?