anyone know what this is doing

[jamief]

~
                                                                          
d bigstring       s           4096                                        
                                                                          
d dqdata          ds                  qualified  inz                      
d  WholeTomato                4096                                        
d   OneSlice                    96    overlay(wholeTomato:1)              
d   DataString                  40    dim(100) overlay(WholeTomato:*next) 
d    pro#                        7  0 overlay(dataString)                 
d    counter                     3  0 overlay(dataString:*next)           
d    itemqty                     7  0 overlay(dataString:*next)           
d    heat                       12    overlay(dataString:*next)           
d    labelqty                    4  0 overlay(dataString:*next)           
                                                                          
 /free                                                                    
                                                                          
    bigstring = *all'01245';                                              
    dqdata.wholetomato = bigstring;                                       
    *inlr = *on;                                                          
 /end-free 

[FaStOnE]

Re: anyone know what this is doing

Predicting the National Debt in the year 2038?

[Red]

Re: anyone know what this is doing

Well, short of the obvious that it is filling 2 large string variables with 01245, I really don't

But you already knew that so I guess I'm no help

[FaStOnE]

Re: anyone know what this is doing

Honestly,

I would say it's demonstrating an Overlay of Dimensioned Array values over a huge @#%@#%@#% string.

[soup_dog]

Re: anyone know what this is doing

I find it hard to believe that this code is doing anything productive. Looks more like someone is trying to figure out how overlays and arrays work.