IDENTIFICATION DIVISION.
	PROGRAM-ID. SAMPLE.

	ENVIRONMENT DIVISION.

	DATA DIVISION.
	
	
	WORKING-STORAGE SECTION.
	01	  REGISTRO-MOVIMENTO.
		  05 MATRICULA-FUNCIONARIO		PIC X(05).
		  05 NOME-FUNCIONARIO		PIC X(5).
		  05 TIPO-REGISTRO			PIC X(01).
		  05 CIA-SUCURSAL-RAMO		PIC X(04).
		  05 VALOR-DESPESA			PIC 9(04)V99.
		  05 n				PIC 99 VALUE 0.
		  05 FILLER			PIC X(15).	
		  	  		  
	PROCEDURE DIVISION.
	
	DISPLAY "  *==================================================*".
	DISPLAY "  *               TESTE COBOL                        *".
	DISPLAY "  *==================================================*".
	DISPLAY "  *MATRICULA   ||NOME   ||TIPO    ||EMPRESA           ".
	
	ACCEPT NOME-FUNCIONARIO.
	
		PERFORM UNTIL N GREATER 80
			DISPLAY MATRICULA-FUNCIONARIO	
			DISPLAY "  *" N "MAT       ||"NOME-FUNCIONARIO N"||  "TIPO-REGISTRO"      ||"CIA-SUCURSAL-RAMO"                *"
			ADD 1 TO N		
		
		END-PERFORM.
		STOP RUN.