fork download
copy 
  1. IDENTIFICATION DIVISION. 
  2. PROGRAM-ID. SAMPLE.      
  3. ENVIRONMENT DIVISION.    
  4. DATA DIVISION.           
  5. WORKING-STORAGE SECTION. 
  6. 01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
  7. 01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
  8. 01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
  9. 01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
  10. 01 VAR1-DISP              PIC 9(4).                
  11. 01 WS-IN                  PIC X(1) VALUE 'C'.      
  12. 01 WS-ASCII-HEX.                                   
  13.    05 SUB1                PIC S9(4) COMP.          
  14.    05 FILLER REDEFINES    SUB1.                    
  15.       07 FILLER           PIC X(1).                
  16.       07 SUB1-HEX         PIC X(1).                
  17. 01 WS-AN                  PIC X(26) VALUE          
  18. 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.                      
  19.  
  20. PROCEDURE DIVISION.                                        
  21.  
  22.     MOVE ZERO TO SUB1                                      
  23.     INSPECT WS-AN TALLYING SUB1 FOR CHARACTERS BEFORE WS-IN. 
  24.     DISPLAY SUB1                                           
  25.     ADD 65 TO SUB1                                         
  26.     DISPLAY SUB1                                           
  27.     ADD 2900 TO SUB1
  28.     DISPLAY SUB1
  29.     DISPLAY SUB1-HEX.
  30.     STOP RUN.
Success #stdin #stdout 0.01s 3992KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 0002
 0067
 2967
https://ideone.com/pAxSV
language:
COBOL 85 (tinycobol-0.65.9)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!