title: Check a variable to make certain that it is all numbers?
body: <p>How can I check Work-Trig to make sure that it is all digits?</p>
  
  <p>code:</p>
  
  <p>Work-Trig is -->  20140101</p>
  
  <pre><code>CHECK-TRIG.                          
      IF WORK-TRIG IS NUMERIC THEN     
         MOVE "FALSE" TO ERR-TRIG      
      ELSE                             
         MOVE "TRUE" TO ERR-TRIG       
      END-IF.                          
      DISPLAY 'ERR-TRIG' ERR-TRIG.     
  X-CHECK. EXIT.  
  
  01  WORK-TRIG.                               
   05 TRIG-YEAR  PIC X(08) VALUE SPACES.    
   05 TRIG-MONTH PIC X(01) VALUE SPACES.    
   05 TRIG-DAY   PIC X(01) VALUE SPACES.    
   05 FILLER     PIC X(70) VALUE SPACES.    
  </code></pre>