fork download 
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. PROG1.
  3. DATA DIVISION.
  4. WORKING-STORAGE SECTION.
  5. 01 A PIC x(10).
  6. 01 B PIC x(7).
  7. PROCEDURE DIVISION.
  8.        MOVE 'PRIMARY' TO A.
  9.        MOVE 'PRIMARY' TO B.
  10.        IF A = B
  11.        DISPLAY 'IT WORKS'
  12.        DISPLAY A
  13.        DISPLAY B
  14.        ELSE
  15.        DISPLAY 'ITS NOT WORKING'
  16.        END-IF.
  17.        STOP RUN.
  18.  
  19.  
  20.  
Success #stdin #stdout 0.02s 3992KB
comments (?)
stdin 
Standard input is empty
stdout 
IT WORKS
PRIMARY   
PRIMARY
https://ideone.com/IfwpA
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!