fork download
  1. IDENTIFICATION DIVISION.
  2.  
  3. PROGRAM-ID. TESTE-TREINAMENTO.
  4.  
  5.  
  6. *=========================================================================*
  7. * C P M B R A X I S - S I S T E M A S *
  8. *=========================================================================*
  9. ENVIRONMENT DIVISION.
  10.  
  11. DATA DIVISION.
  12.  
  13. WORKING-STORAGE SECTION.
  14.  
  15. 01 GRUPO.
  16. 05 VARIAVEL1 PIC 9(04) VALUE 0.
  17.  
  18.  
  19.  
  20. PROCEDURE SECTION.
  21.  
  22. ACCEPT VARIAVEL1
  23. DISPLAY VARIAVEL1
  24.  
  25. STOP-RUN.
  26.  
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
TESTE
compilation info
prog.cob:25: Warning: File not terminated by a newline
prog.cob:6: Error: syntax error, unexpected '*', expecting $end
stdout
Standard output is empty