Identification Division.
       Program-Id. hexconv.
       Data Division.
       Working-Storage Section.
        01 CH Pic X occurs 4. 
        01 NUM Pix S9(4) comp redefines CH. 
        01 NUM-High Pix S9(4) comp. 
        01 NUM-Low Pic S9(4) comp. 
        77 Num-Upper Pic S9(4). 
        01 Hex Pic X occurs 16 Value '0123456789ABCDEF'. 
       Linkage Section.
        77 ch-to-be-converted  pic X.
        77 Result Pic X(2). 
       Procedure Division using ch-to-be-converted
         returning result.
      *  hexadecimal conversion
         move zero to Num. 
         move ch-to-be-converted to CH(4). 
         Divide Num by 16 giving Num-High. 
         Multiply Num-High by 16 giving Num-Upper. 
         Subtract Num-Upper from Num. 
         Move Num to Num-Low. 
         add 1 to Num-High, Num-Low.
      *  
         String Hex(Num-High), Hex(Num-Low) into Result. 
       End-Program hexconv.