fork download
copy 
  1. *-----------------------------------------------------------------
  2.        PROCEDURE DIVISION.                                              
  3.       *-----------------------------------------------------------------
  4.  
  5.            MOVE FUNCTION CURRENT-DATE TO WS-DATA-CORRENTE               
  6.            STRING                                                       
  7.                  'IPIRANGA, '          DELIMITED BY SIZE                
  8.                  WS-DIA                DELIMITED BY SIZE                
  9.                  ' de '                DELIMITED BY SIZE                
  10.                  NOME-MES ( WS-MES )   DELIMITED BY SPACES              
  11.                  ' de '                DELIMITED BY SIZE                
  12.                  WS-ANO-INTEIRO        DELIMITED BY SIZE                
  13.                  '.'                   DELIMITED BY SIZE                
  14.                  INTO WS-DATA-EXTENSO                                   
  15.            END-STRING                                                                               
  16.            DISPLAY 'Data do dia ...... : ' WS-DATA-EXTENSO              
  17.            GOBACK.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cob:16: Warning: File not terminated by a newline
prog.cob:1: Error: syntax error, unexpected '-', expecting PROGRAM_ID
stdout
copy 
Standard output is empty
https://ideone.com/1flai
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!