Re: Problem with OVERLAY

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Hi Buzz,

>      D                 ds
>      D rcddata                      123a
>      D  cmt_code_1                    2s 0 overlay(rcddata:76)
>      D  cmt_code_2                    2s 0 overlay(rcddata:79)
>
> Rcddata is a field being read in from an externally defined, input-primary
> file.  Program aborts due to cmt_code_1/2 subfields being blank.  The
> program dump plainly shows that at the offsets, the data is '00' (0F0F).
> What am I missing here?

Hmmm... I'll assume that you really meant x'F0F0', since x'0F' is actually
the ideographic Shift-In ("SI") code, rather than being a blank. :)

This data structure wouldn't happen to be defined in a subprocedure,
would it?

Also, if "rcddata" is externally defined, you don't need to put "123A"
in your D-spec.  The system should pull in the data type and length from
the file.

<silliness>
  Do you really have a field in an externally defined file called
  "rcddata" ("Record Data")?   If so, is the file called "FILE"?  Is it kept
  in a library called "LIBRARY"?   Are you children's names "Son" and
  "Daughter"?  Just curious ;)
</silliness>