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