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