RE: Display file attributes

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

Hi Tim,

>
> We are on V5R2, ptf level = C4077520.
>

I'm on the exact same release and CUM level.  I'm now trying to reproduce
the problem that you describe... I've written the following DDS:

     A                                      DSPSIZ(24 80 *DS3)
     A          R KREDLOS1
     A            MESG78_A       1A  P
     A            MESG78        78   O 22  2
     A                                      DSPATR(&MESG78_A)
     A                                 24  3'F12>'

And the following RPG program to test it with:

    FKREDLOS   CF   E             WORKSTN

     /free
          mesg78 = ' **                             Invalid length' +
          mesg78_a = x'a9';

          exfmt kredlos1;

          *inlr = *on;
     /end-free

(don't mind the filename/record names!)

When I run this, it seems to work exactly the same as it would if I used
DSPATR(RI BL). I don't see the difference?!  The line that says 'invalid
length' is reversed and blinking, the other lines are not.

Can you tell me how to reproduce the problem?