Re: Loading multi occurrence data structure

What if you defined an array of 16 elements, each element 50 long? Then you 
could do a run-time load of your array from your data structure HOLD.  The 
method I would use in this case though I suspect is to have an array  10 
characters long by 16 elements for the value of SRV, and also an alternating 
array of 40 characters by 16 elements.  Then a simple data  structure would 
give individual values for the four fields needed when a match is/isn't made.

In <c=US%a=_%p=Goulds_Pumps%l=GOULDS/EPD/004206D8@exchange-server.goulds1.com>, 
on 10/14/98 
   at 09:28 AM, Hart Doug <dah6696@Goulds1.com> said:

>       
>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
>+---


-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

+---
| 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
+---