fork download 
  1. 	IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. SAMPLE.
  3.  
  4. 	ENVIRONMENT DIVISION.
  5.  
  6. 	DATA DIVISION.
  7.  
  8.  
  9. 	WORKING-STORAGE SECTION.
  10. 	01	  REGISTRO-MOVIMENTO.
  11. 		  05 MATRICULA-FUNCIONARIO		PIC X(05).
  12. 		  05 NOME-FUNCIONARIO		PIC X(5).
  13. 		  05 TIPO-REGISTRO			PIC X(01).
  14. 		  05 CIA-SUCURSAL-RAMO		PIC X(04).
  15. 		  05 VALOR-DESPESA			PIC 9(04)V99.
  16. 		  05 n				PIC 99 VALUE 0.
  17. 		  05 FILLER			PIC X(15).	
  18.  
  19. 	PROCEDURE DIVISION.
  20.  
  21. 	DISPLAY "  *==================================================*".
  22. 	DISPLAY "  *               TESTE COBOL                        *".
  23. 	DISPLAY "  *==================================================*".
  24. 	DISPLAY "  *MATRICULA   ||NOME   ||TIPO    ||EMPRESA           ".
  25.  
  26. 	ACCEPT NOME-FUNCIONARIO.
  27.  
  28. 		PERFORM UNTIL N GREATER 80
  29. 			DISPLAY MATRICULA-FUNCIONARIO	
  30. 			DISPLAY "  *" N "MAT       ||"NOME-FUNCIONARIO N"||  "TIPO-REGISTRO"      ||"CIA-SUCURSAL-RAMO"                *"
  31. 			ADD 1 TO N		
  32.  
  33. 		END-PERFORM.
  34. 		STOP RUN.
Not running #stdin #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/86qM7
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!