Re: Local read of multi-format LF

[Peter Dow <petercdow@xxxxxxxxx>]

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.