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.        DISPLAY A.
  13.        DISPLAY B.
  14.        IF A = B
  15.        DISPLAY 'IT WORKS'
  16.        DISPLAY A
  17.        DISPLAY B
  18.        ELSE
  19.        DISPLAY 'ITS NOT WORKING'
  20.        END-IF.
  21.        STOP RUN.
  22.  
  23.  
  24.  
Success #stdin #stdout 0.01s 3992KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 


ITS NOT WORKING
https://ideone.com/0v3qi
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!