Expand 16773104 limit (RNF0376) within data structures

With nested data structures, especially those involving multi-dimensional arrays, it is very easy to exceed the 16773104 limit.

Would be nice if this limit could be expanded.

For backwards compatibility, if required, could perhaps use a compiler keyword that could specify Teraspace usage.

(I did try searching for a similar RFE but could not find one - my apologies if this is a duplicate).

I'm on 7.3

In my case, I'm struggling with an ASN program, where a single ASN can contain hundreds of customer orders, each of which contains only 1 or 2 items per order.

At the same time, there can be a single ASN that contains 2 or 3 customer orders, which contains hundreds of customer items in hundreds of boxes. This can also be performed at the tare (pallet) level.

I've created nested data structures & am struggling to accommodate the above situation without using another method (such as temporary files).

I've had an example of an ASN that contained 1 customer order split into over 6000 boxes, each one needing its own UCC. This is why Order_Carton is defined as large as it is.

And I have also had a few examples of ASNs that cannot be processed using this program because there are over 500 customer orders (current max is 133), each with only 1 box.

Examples of data structures are as follows (there are others as well, such as nested ds that contain item information, weight, etc. For simplicity, not included below).

dcl-ds Order_Info_t qualified template;
Order like(s1_order);
Order_Pack_Qty like(s1_packqty);
Order_Case_Qty like(s1_packqty);
Order_Carton_Qty like(s1_packqty);
Order_Cartons like(s1_box);
Order_Carton_UCC like(s1_ucc) dim(6286); // Make sure this matches Box_Info dim
Order_Weight like(s1_weight);
Order_Pallets like(s1_pallet) dim(52);
Pallets like(s1_pallet);
end-ds;

dcl-ds Order_Summary qualified inz;
Orders like(s1_box);
Order_Info likeds(Order_Info_t) dim(133);
end-ds;

dcl-ds Order_Summary qualified inz;
Orders like(s1_box);
Order_Info likeds(Order_Info_t) dim(133);
end-ds;

dcl-ds Box_Info_t qualified template;
Box_Number like(s1_box);
Box_UCC like(s1_ucc);
Item_Count like(s1_box);
Item_Info likeds(Item_Info_t) dim(76); // > 76 = Max Memory Exceeded. Adjust Box_Info dim
Tracking like(s1_track);
Ship_to like(s1_ship2);
PO like(s1_po);
Pallet_Number like(s1_pallet);
end-ds;

dcl-ds Box_Detail qualified inz;
Boxes like(s1_box);
Box_Info likeds(Box_Info_t) dim(6286); // If IBM raises memory limit in future releases, adjust
end-ds;


(Please do not judge the complexity of the above data structures - this is a complex program :-) )

So in short, I'm hoping that the 16MB limit for (nested) data structures can be increased - and retrofitted to 7.3.