fork download
copy 
  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.
Success #stdin #stdout 0.01s 6164KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
  *==================================================*
  *               TESTE COBOL                        *
  *==================================================*
  *MATRICULA   ||NOME   ||TIPO    ||EMPRESA           
     
  *00MAT       ||00
     
  *01MAT       ||01
     
  *02MAT       ||02
     
  *03MAT       ||03
     
  *04MAT       ||04
     
  *05MAT       ||05
     
  *06MAT       ||06
     
  *07MAT       ||07
     
  *08MAT       ||08
     
  *09MAT       ||09
     
  *10MAT       ||10
     
  *11MAT       ||11
     
  *12MAT       ||12
     
  *13MAT       ||13
     
  *14MAT       ||14
     
  *15MAT       ||15
     
  *16MAT       ||16
     
  *17MAT       ||17
     
  *18MAT       ||18
     
  *19MAT       ||19
     
  *20MAT       ||20
     
  *21MAT       ||21
     
  *22MAT       ||22
     
  *23MAT       ||23
     
  *24MAT       ||24
     
  *25MAT       ||25
     
  *26MAT       ||26
     
  *27MAT       ||27
     
  *28MAT       ||28
     
  *29MAT       ||29
     
  *30MAT       ||30
     
  *31MAT       ||31
     
  *32MAT       ||32
     
  *33MAT       ||33
     
  *34MAT       ||34
     
  *35MAT       ||35
     
  *36MAT       ||36
     
  *37MAT       ||37
     
  *38MAT       ||38
     
  *39MAT       ||39
     
  *40MAT       ||40
     
  *41MAT       ||41
     
  *42MAT       ||42
     
  *43MAT       ||43
     
  *44MAT       ||44
     
  *45MAT       ||45
     
  *46MAT       ||46
     
  *47MAT       ||47
     
  *48MAT       ||48
     
  *49MAT       ||49
     
  *50MAT       ||50
     
  *51MAT       ||51
     
  *52MAT       ||52
     
  *53MAT       ||53
     
  *54MAT       ||54
     
  *55MAT       ||55
     
  *56MAT       ||56
     
  *57MAT       ||57
     
  *58MAT       ||58
     
  *59MAT       ||59
     
  *60MAT       ||60
     
  *61MAT       ||61
     
  *62MAT       ||62
     
  *63MAT       ||63
     
  *64MAT       ||64
     
  *65MAT       ||65
     
  *66MAT       ||66
     
  *67MAT       ||67
     
  *68MAT       ||68
     
  *69MAT       ||69
     
  *70MAT       ||70
     
  *71MAT       ||71
     
  *72MAT       ||72
     
  *73MAT       ||73
     
  *74MAT       ||74
     
  *75MAT       ||75
     
  *76MAT       ||76
     
  *77MAT       ||77
     
  *78MAT       ||78
     
  *79MAT       ||79
     
  *80MAT       ||80
https://ideone.com/fVIFR
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!