RE: Varying the length in a array

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

Ron,
If you're using RPG, you should be able to simply create what ever output
file size your end-user requires.  This code works whether FlatFile is 10
recl or 8000 recl:

FFlatFile  O    F32766        Disk                       
D Array           s          32766a   dim(10)            
D ArraySize       s              7  0                    
D Index           s              7  0                    
D OutputField     s          32766a                      
                                                         
C                   eval      ArraySize = %elem(Array)   
 * Create dummy data                                     
C     1             Do        ArraySize     Index        
C                   MoveL     Index         Array(Index) 
C                   EndDo                                
 * Write out the results                                 
C     1             Do        ArraySize     Index        
C                   MoveL     Array(Index)  OutputField  
C                   Except    WriteRec                   
C                   EndDo                                
                                                         
C                   eval      *InLR = *On                
                                                         
OFlatFile  E            WriteRec                         
O                       OutputField      32766

Buck Calabro
Aptis; Albany, NY

> -----Original Message-----
> From: Klein Ron 
> Sent: Friday, November 19, 1999 12:23 PM
> To:   'MIDRANGE-L (E-mail)
> Subject:      Varying the length in a array
> 
> Hi All,
> 
> Is it possible to vary the lengths of the elements in an array in ILE.
> What
> I am trying to accomplish is to be able to write out each element of an
> array to a flat file.  I want to do a CRTPF len(parm), and then take the
> data in my array and write each element as a record in that file.  The
> array
> has a length of somewhere around 2000 characters.  I will write each
> element
> that is not blank as the next record to the file.  When the elements are
> blank I will process my next record and write out the new data in the
> array.
> This software goes out to a lot of people and they do not all agree on
> what
> length they want the file generated as.
> 
> TIA
> Ron Klein
> 
+---
| 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
+---