Re: Local read of multi-format LF

Hi Justin,

Looks like a typo on the DS definition, but assuming it's supposed to be named LFDS, try

 chain key REC01 LFDS;

If you really want to chain to the filename, then you have to define both record formats within a single data structure, e.g.

dcl-ds LFDS inz;
   dcl-ds LF_REC01 likeRec(REC01 :*input) pos(1);
   dcl-ds LF_REC02 likeRec(REC02 :*input) pos(1);


--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx
pdow@xxxxxxxxxxxxxx /

On 6/12/2023 2:38 PM, Justin Taylor wrote:

I've defined a multi-format LF locally within a procedure, but I can't get
the result data structure defined properly. The LF combines two PFs that
have identical column layouts but different record names.

Any suggestions?


Dcl-f LF disk usage(*input) keyed ;

Dcl-ds lLfDs likeRec(REC01 :*input) inz ;


Chain key LF lLfDs;
RNF7595: The result data structure LFDS does not include a subfield in
position 1 for record format REC02.
RNF7595: The result data structure LFDS does not include a subfield in
position 1 for record format REC01.