rob@xxxxxxxxx wrote:

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

...

Change the read to:


read mpssumR mpssumds;

V5R2 supports read by record format name to LIKEREC data structure. V5R3 will be more forgiving.

Cheers! Hans


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.