RNF5155 on reading into a data structure

[rob@xxxxxxxxx]

I know that V5R2 will allow you to read into a datastructure with an 
externally defined file.  However I am doing something wrong today.

What gives?

     FMPSSum    if   e           k disk

     D mpssumDS        ds                  likerec(MPSSUMR:*input)

     D                 ds                  based(pMpsch1)
     D mpsch                               like(mpssumds.mpsch1) dim(12)

     D pMpsch1         s               *   inz(%addr(mpssumds.mpsch1))

      /free
       read mpssum mpssumDS;
RNF5155E The Result-Field operand is not allowed for specified operation.
       // at this time mpsch in debug looks good
       *inlr=*on;
       return;
      /End-free

I've tried various combinations of likerec and extname and I am getting 
nowhere.  Have also opened up pmr 82798,500 to try to figure this out.

TL03252
PTF Group             Level
SF99519                  85
SF99502                  10
SF99271                  12
SF99190                  10
SF99169                  15
SF99149                   3
SF99148                   3
SF99098                  12
SF99085                   8
SF99039                   2

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com