IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
                                
        ENVIRONMENT                     DIVISION.
        
        DATA                            DIVISION.
        
        WORKING-STORAGE                 SECTION.
        
	01 GRUPO.
	   05 VARIAVEL1		PIC 9(04) VALUE 0.
	   
	   
	   
        PROCEDURE 			   DIVISION.
        
        ACCEPT VARIAVEL1
        DISPLAY VARIAVEL1
        
        STOP-RUN.