title: COBOL Data Validation for capital letter?
body: <p>I'm in my second quarter of college and taking "Advanced COBOL" we just received an assignment that requires us to code in some validation procedures for different data. I have everything done except on small validation procedure. </p>
  
  <p>There is a field called "PART-NUMBER" that is 8 bytes long. The first 5 columns must be a number. The 6th column must be a capital letter and the last 2 columns must be in the range of 01-68 or 78-99. The only problem I have is figuring out how to validate that the 6th column is capital. </p>
  
  <p>Here is the code I am using:
  From working storage:</p>
  
  <pre><code>01 DETAIL-LINE.                                         
  05 PART-NUMBER.                                     
      10 PART-FIRST-FIVE-DL        PIC X(5).          
      10 PART-LETTER-DL            PIC X.             
          88 CAPITAL-LETTER        VALUE 'A' THRU 'Z'.
      10 PART-LAST-TWO-DL          PIC XX.
  </code></pre>
  
  <p>From 300-VALIDATE-PART-NUMBER</p>
  
  <pre><code>EVALUATE PART-LETTER-DL ALPHABETIC               
     WHEN TRUE EVALUATE CAPITAL-LETTER               
        WHEN FALSE MOVE 'YES' TO RECORD-ERROR-SWITCH
        MOVE 'PART NUMBER' TO FIELD-NAME            
        MOVE PART-NO-IN TO FIELD-VALUE              
        MOVE 'YES' TO PART-NO-ERROR                 
     END-EVALUATE                                    
     WHEN FALSE MOVE 'YES' TO RECORD-ERROR-SWITCH    
     MOVE 'PART NUMBER' TO FIELD-NAME                
     MOVE PART-NO-IN TO FIELD-VALUE                  
     MOVE 'YES' TO PART-NO-ERROR                     
  END-EVALUATE 
  </code></pre>
  
  <p>I know I'm probably not doing this in a very efficient way but for now I just need to get it to work. I've read the whole chapter on data validation from the book and this is sort of a last minute error (program is due tomorrow) so the teacher is unavailable. I would greatly appreciate any help I can get with this. I'm really lost on how I'm supposed to validate capital letters. The method I'm using now reports an error if anything other than A or Z is in the 6th column of the part number.                                    </p>