IDENTIFICATION DIVISION. 
PROGRAM-ID. SAMPLE.      
ENVIRONMENT DIVISION.    
DATA DIVISION.           
WORKING-STORAGE SECTION. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
01 VAR1-DISP              PIC 9(4).                
01 WS-IN                  PIC X(1) VALUE 'C'.      
01 WS-ASCII-HEX.                                   
   05 SUB1                PIC S9(4) COMP.          
   05 FILLER REDEFINES    SUB1.                    
      07 FILLER           PIC X(1).                
      07 SUB1-HEX         PIC X(1).                
01 WS-AN                  PIC X(26) VALUE          
'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.                      
   
PROCEDURE DIVISION.                                        
                                            
    MOVE ZERO TO SUB1                                      
    INSPECT WS-AN TALLYING SUB1 FOR CHARACTERS BEFORE WS-IN. 
    DISPLAY SUB1                                           
    ADD 65 TO SUB1                                         
    DISPLAY SUB1                                           
    ADD 2900 TO SUB1
    DISPLAY SUB1
    DISPLAY SUB1-HEX.
    STOP RUN.