title: COBOL read/store in table
body: <p>The goal of this exercise is to read and store an input file into a table then validate certain fields within the input and output any error records. I need to read and store each policy group so that there are just 5 records stored in the table at a time instead of the entire file. </p>
  
  <p>So I need to read in a policy group which is 5 records, do the processing, then read the next 5 records, etc until the end of the file.. </p>
  
  <pre><code>This is the input file.
  10A 011111          2005062520060625                                    
  20A 011111000861038                                                     
  32A 011111                            79372                             
  60A 0111112020                                             6          4 
  94A 011111     080 1                                                    
  10A 02222          2005082520060825                                    
  20A 022221000187062                                                     
  32A 022221                            05038                             
  60A 0222212003                                             6          4 
  94A 022221     090 1                                                    
  ....
  </code></pre>
  
  <p>I was able to load the first 5 records into a table by having my table OCCUR 5 TIMES but I don't know how I would continue that. My code is below. (I wrote it just to see if it was working correctly, but it prints the header line with the first 4 records, instead of just the first 5)
      01  TABLES.                                             </p>
  
  <pre><code>05  T1-RECORD-TABLE.                                
      10  T1-ENTRY                OCCURS 5 TIMES      
                                  INDEXED BY T1-INDEX.
  
          15  RECORD-TYPE-10      PIC X(80).          
          15  RECORD-TYPE-20      PIC X(80).          
          15  RECORD-TYPE-32      PIC X(80).          
          15  RECORD-TYPE-60      PIC X(80).          
          15  RECORD-TYPE-94      PIC X(80).          
  
   copy trnrec10.
   COPY TRNREC20.
   COPY TRNREC32.
   COPY TRNREC60.
   COPY TRNREC94.
  .....
  
  Z200-READ-FILES.                               
      READ DISK-IN INTO T1-ENTRY(T1-INDEX)       
          AT END MOVE 'YES' TO END-OF-FILE-SW.   
  
      WRITE PRINT-RECORD FROM T1-ENTRY(T1-INDEX).
  </code></pre>
  
  <p>I don't want a step by step for this (though that'd be nice :P) bc I know WHAT I need to do I just don't know HOW to do it bc my textbook and course note are useless to me. I've been stuck on this for a while and nothing I try works.</p>