fork download
copy 
  1. 01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
  2. 01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
  3. 01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
  4. 01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
  5. 01 VAR1-DISP              PIC 9(4).                
  6. 01 WS-IN                  PIC X(1) VALUE 'C'.      
  7. 01 WS-ASCII-HEX.                                   
  8.    05 SUB1                PIC S9(4) COMP.          
  9.    05 FILLER REDEFINES    SUB1.                    
  10.       07 FILLER           PIC X(1).                
  11.       07 SUB1-HEX         PIC X(1).                
  12. 01 WS-AN                  PIC X(26) VALUE          
  13. 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.                      
  14. 01 WS-HEX-HEADER.                                  
  15.    05 WS-ICC-HEX-BYTES       PIC X(128) VALUE SPACE
  16.  
  17.    05 WS-ICC-VALUE REDEFINES WS-ICC-HEX-BYTES.     
  18.  
  19.       10  VAR1               PIC S9(04) COMP.      
  20.        10  FILLER             PIC X(126).                  
  21. PROCEDURE DIVISION.                                        
  22.     EVALUATE WS-IN                                         
  23.     WHEN '1' THRU '9'                                      
  24.          DISPLAY 'NUMERIC'                                 
  25.     WHEN 'A' THRU 'Z'                                      
  26.          DISPLAY 'ALPHA'                                   
  27.     WHEN OTHER                                             
  28.          DISPLAY 'INVALID'                                 
  29.     END-EVALUATE                                           
  30.     MOVE ZERO TO SUB1                                      
  31.     INSPECT WS-AN TALLYING SUB1 FOR CHARACTERS BEFORE 'A'. 
  32.     DISPLAY SUB1                                           
  33.     ADD 65 TO SUB1                                         
  34.     DISPLAY SUB1                                           
  35.     DISPLAY SUB1-HEX
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cbl:     1: error: syntax error, on or before '01'
stdout
copy 
Standard output is empty
https://ideone.com/a6PcE
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!