×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
 
I'm trying out the new i7.3 TR2 stuff.  I have a data structure like the 
following that I'm trying to convert to nested, but I'm not allowed to use 
the overlay in a datastructure definition. I've pasted the error message 
in the "Desired State" section below. Is there a way around this? This 
example only shows one nested element, but my production program has 
several. They were removed to simplify the example.
Current state:
       dcl-ds CD_t qualified template;       
         Col like(CurCol_t);       
         Wid like(ColWid_t);       
         Hdg1 like(ColHdr_t);       
         Hdg2 like(ColHdr_t);       
       end-ds;       
              
       dcl-ds FullName1CD_t qualified template;       
         Col like(CurCol_t) INZ;       
         Wid like(ColWid_t) inz(46);       
         Hdg1 like(ColHdr_t) inz('');       
         Hdg2 like(ColHdr_t) inz('Employee');       
       end-ds;       
       dcl-ds T1 qualified;       
         TtlSiz;       
         FullName likeds(FullName1CD_t) inz(*likeds) overlay(TtlSiz);      
 
         arr likeds(CD_t) dim(T1Cnt) pos(1);       
       end-ds;       
       dcl-c T1Cnt %div(%size(T1.TtlSiz):%size(CD_t));        
Desired State that gives the error:
       dcl-ds CD_t qualified template;
         Col like(CurCol_t);
         Wid like(ColWid_t);
         Hdg1 like(ColHdr_t);
         Hdg2 like(ColHdr_t);
       end-ds;
       dcl-ds T1 qualified;
         TtlSiz;
         dcl-ds FullName qualified overlay(TtlSiz);
RNF0202: KEYWORD NOT ALLOWED FOR A NESTED DATA STRUCTURE SUBFIELD
           Col like(CurCol_t) INZ;
           Wid like(ColWid_t) inz(46);
           Hdg1 like(ColHdr_t) inz('');
           Hdg2 like(ColHdr_t) inz('Employee');
         end-ds;
         arr likeds(CD_t) dim(T1Cnt) pos(1);
       end-ds;
       dcl-c T1Cnt %div(%size(T1.TtlSiz):%size(CD_t));
As an Amazon Associate we earn from qualifying purchases.
	
 
This mailing list archive is Copyright 1997-2025 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.