fork(2) download 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. IDEONE.
  3.  
  4.        DATA DIVISION.
  5.        WORKING-STORAGE SECTION.
  6.        01 FILLER                       PIC X.
  7.                 88 HUNGRY              VALUE "Y".
  8.                 88 NOT-HUNGRY          VALUE "N".
  9.  
  10.        PROCEDURE DIVISION.
  11.        MAIN-PARA.
  12.            SET HUNGRY TO TRUE
  13.            PERFORM PRINT-PARA
  14.            SET NOT-HUNGRY TO TRUE
  15.            PERFORM PRINT-PARA
  16.            GOBACK
  17.            .
  18.  
  19.        PRINT-PARA.
  20.            IF HUNGRY THEN
  21.                DISPLAY "HUNGRY!"
  22.            END-IF
  23.            IF NOT-HUNGRY THEN
  24.                DISPLAY "NOT HUNGRY!"
  25.            END-IF
  26.            .
  27.  
Success #stdin #stdout 0s 5336KB
comments (?)
stdin 
Standard input is empty
stdout 
HUNGRY!
NOT HUNGRY!
https://ideone.com/BI04sx
language:
Cobol (gnucobol 2.2.0)
created:
8 years ago
visibility:
secret

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!