fork download
copy 
  1.         IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. PROG1.
  3. 	ENVIRONMENT DIVISION.
  4. 	DATA DIVISION.
  5. 	WORKING-STORAGE SECTION.    
  6.           01 A PIC 99 VALUE 0.        
  7.          PROCEDURE DIVISION.         
  8.                IF A IS POSITIVE        
  9.                 DISPLAY 'POS'        
  10.                ELSE                    
  11.                 DISPLAY 'NOT POS'    
  12.                END-IF                  
  13.                IF  A + 4 IS POSITIVE   
  14.                  DISPLAY 'POS' A      
  15.                ELSE                    
  16.                 DISPLAY 'NOT POS'    
  17.                END-IF                  
  18.              STOP RUN.     
  19.  
  20. 	    STOP RUN. 
  21.  
Success #stdin #stdout 0.01s 6160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
NOT POS
POS00
https://ideone.com/vLfax
language:
Cobol (gnucobol 2.2.0)
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!