000100 IDENTIFICATION DIVISION.                                       
000200 PROGRAM-ID. NUMTEST.                                             
000300                                                                
000400 ENVIRONMENT DIVISION.                                          
000500                                                                
000600 DATA DIVISION.                                                 
000700 WORKING-STORAGE SECTION.                                       
000800 01  MISC.                                                      
000900     05  INPUT-FLD-AS-X      PIC X(5).                          
001000     05  INPUT-FLD-AS-9  REDEFINES  INPUT-FLD-AS-X  PIC 9(3)V99.
001100         88  VALID-VALUES    VALUE 100 THRU 199.99.             
001200     05  OUTPUT-FLD-AS-Z     PIC ZZ9.99.                        
001300                                                                
001400 PROCEDURE DIVISION.                                            
001500                                                                
001600 READY-GO.                                                      
001700     MOVE '09H7F' TO INPUT-FLD-AS-X.                            
001800     PERFORM SHOW-IT.                                           
001900                                                                
002000     MOVE '12345' TO INPUT-FLD-AS-X.       
002100     PERFORM SHOW-IT.                      
002200                                           
002300     MOVE '13E79' TO INPUT-FLD-AS-X.       
002400     PERFORM SHOW-IT.                      
002500                                           
002600     MOVE '2C45F' TO INPUT-FLD-AS-X.       
002700     PERFORM SHOW-IT.                      
002800                                           
002900     STOP RUN.                             
003000                                           
003100 SHOW-IT.                                  
003200     DISPLAY 'INPUT IS ' INPUT-FLD-AS-X.   
003300                                           
003400     IF INPUT-FLD-AS-9 IS NUMERIC          
003500        DISPLAY 'NUMERIC'                  
003600     ELSE                                  
003700        DISPLAY 'NOT NUMERIC'              
003800     END-IF                                
003900                                           
004000     IF VALID-VALUES                         
004100        DISPLAY 'VALID VALUE'                
004200     ELSE                                    
004300        DISPLAY 'NOT VALID VALUE'            
004400     END-IF                                  
004500                                             
004600     IF INPUT-FLD-AS-9 < 100                 
004700        DISPLAY 'LESS THAN 100'              
004800     ELSE                                    
004900        IF INPUT-FLD-AS-9 > 199.99           
005000           DISPLAY 'GREATER THAN 199.99'     
005100        ELSE                                 
005200           DISPLAY 'BETWEEN 100 AND 199.99'  
005300        END-IF                               
005400     END-IF                                  
005500                                             
005600     MOVE INPUT-FLD-AS-9 TO OUTPUT-FLD-AS-Z  
005700                                             
005800     DISPLAY OUTPUT-FLD-AS-Z.                
005900