Provide a smart LIKE keyword that works with any target type (vs LIKE and LIKEDS)

Today when we write code, we use the LIKEDS (mostly) to declare a data structure "like" another.

When a field is declared and should be "like" another existing field, we use the LIKE keyword.

Please provide a new keyword that can be used in either context so we can simply say "LIKE(vartemplate)" instead of having to determine if the referred variable is a data structure or a field.

Why? Because when generating code or copying code, we shouldn't have the extra burden of figuring out if the referenced variable is a structure or a field.

I suggest a new keyword, let's call it TYPE, that would do what I'm asking. Here's an example:

  dcl-s size_t uns(10);
  dcl-s ptr  pointer;
   dcl-ds Qdb_Mbrd0100_T  Qualified Inz TEMPLATE; 
   Bytes_Returned INT(10);                      
   Bytes_Available INT(10);                     
   Db_File_Name CHAR(10);                       
   Db_File_Lib CHAR(10);                        
   Member_Name CHAR(10);                        
   File_Attr CHAR(10);                          
   Src_Type CHAR(10);                           
   Crt_Date CHAR(13);                           
   Change_Date CHAR(13);                        
   Text_Desc CHAR(50);                          
   Src_File CHAR(1);                            
 end-ds;  // Qdb_Mbrd0100_T     
 
 dcl-s rtnLen type(size_t);
 dcl-s pMbrD  type(ptr);
 dcl-ds mbrDesc type( Qdb_Mbrd0100_T );
 dcl-s length type(*INT);
 dcl-s smallSize type(*int2);

The definitions of the fields RTNLEN, PMBRD, and MBRDESC are all based on other fields.

There could also be pre-defined types, to make things in routines consistent. For example *INT4, *INT2, *UINT2, *UINT4, etc. I suppose if TYPE(*CHAR) is specified, then LEN(nn) would be required to.