IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
         
         
        *=========================================================================* 
        *                 C P M  B R A X I S - S I S T E M A S                    *
        *=========================================================================*                        
        ENVIRONMENT                     DIVISION.
        
        DATA                            DIVISION.
        
        WORKING-STORAGE                 SECTION.
        
	01 GRUPO.
	   05 VARIAVEL1		PIC 9(04) VALUE 0.
	   
	   
	   
        PROCEDURE 			   SECTION.
        
        ACCEPT VARIAVEL1
        DISPLAY VARIAVEL1
        
        STOP-RUN.