Re: Multiple Field Manipulation Ideas?

So when I read the table, there are records in it that are 61 fields
wide.  I need to take the data from all 60 of these fields (based on the
value of RecordType) and match up CodeA001, CodeB001 to populate another
table.

What's the easiest way to extract this data to migrate it to the new
table?  I mulled over a data area, throwing the files into an array,
throwing them into a temporary table, etc., but I'm not sure what's
best.  Fortunately, the tables used are static at 30 fields per code,
and are not expected to change, so I always know there are 30 fields for
CodeA and CodeB.

     FINPUTFILE IF   E             DISK    BLOCK(*YES)
     F                                     prefix('INPUT.')
     FOUTPUTFILEO    E             DISK
     F                                     prefix('OUTPUT.')

     D Input         E DS                  extname(INPUTFILE)
     D                                     qualified
     D Output        E DS                  extname(OUTPUTFILE)
     D                                     qualified

     D p_inputCodeA    s               *
     D p_inputCodeB    s               *

     D CodeA           s                   like(Input.CodeA001) dim(30)
     D                                     based(p_InputCodeA)
     D CodeB           s                   like(Input.CodeB001) dim(30)
     D                                     based(p_InputCodeB)

     D f               s             10I 0

      /free

          p_InputCodeA = %addr(Input.CodeA001);
          p_InputCodeB = %addr(Input.CodeB001);

          setll *start InputFile;
          read  InputFile;

          dow not %eof(InputFile);

               for f = 1 to %elem(CodeA);
                    Output.RecordType = Input.RecordType;
                    Output.CodeA      = CodeA(f);
                    Output.CodeB      = CodeB(f);
                    write OutputRec;
               endif;

               read  InputFile;
          enddo;

          *inlr = *on;

      /end-free