Loading multi occurrence data structure

        
In the routine below I'm loading a multiple occurrence
data structure from a data area, both are 800 char total.
This first code segment doesn't seem like the best way to
handle the data. Can't I fill the entire DS 'GRID' from
the DTAARA 'NETACC' with one function rather than 7 lines 
of calcs?  Any suggestions?

The dtaara has 16 sets of repeating data, each set is 5, 
10 char fields, total size 800 char.


E                    SET        16 50              
IHOLD        DS                            800     
IGRID        DS                         16         
I                                        1  10 SRV 
I                                       11  20 ACT 
I                                       21  30 USR1 
I                                       31  40 USR2 
I                                       41  50 USR3 
C                     MOVEL'TEST'    TEST   10     
 * MOVE DTAARA NETACC INTO DATA STRUCT GRID               
C           *NAMVAR   DEFN NETACC    HOLD          
C                     IN   HOLD                    
C                     MOVEAHOLD      SET          
 *                  
C           1         DO   16        X       30    
C           X         OCUR GRID                    
C                     MOVE SET,X     GRID          
C                     ENDDO                               
 * READ DATA STRUCTURE UNTIL MATCH        
C           1         DO   16        X    
C           X         OCUR GRID           
C           TEST      IFEQ SRV            
C                     LEAVE               
C                     ENDIF               
C                     ENDDO               
 *                                        
C                     MOVE *ON       *INLR

---
  Douglas Hart - Sr. Consulting Technical Analyst
  ITT Fluid Technology / Goulds Pumps
  240 Fall Street
  Seneca Falls, New York  13148
  (315)568-7568 Voice   (315)568-7129 FAX
  mailto:dah6696@goulds1.com 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---