COBXX903

IDENTIFICATION DIVISION.
       PROGRAM-ID. COBXX902.
       AUTHOR. PROGRAMADOR.
       INSTALLATION. HOST-OS/390.
       DATE-WRITTEN. 17/03/2008.
       DATE-COMPILED. 17/03/2008.
       
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
         DECIMAL-POINT IS COMMA.
        
       DATA DIVISION.
       WORKING-STORAGE SECTION.
            01 TOTAL.
            	05 NUMERO		PIC	9(2)	VALUE 1.
        	    05 FILLER		PIC	X(3)	VALUE ' X '.
         	    05 INDICE		PIC	9(2)	VALUE 1.
        	    05 FILLER		PIC	X(3)	VALUE ' = '.
         	    05 RESULTADO 	PIC	9(2) 	VALUE 0.
    
       PROCEDURE DIVISION.
        	PERFORM 2000-PROCESO
       		THRU 2000-PROCESO-EXIT
        		UNTIL NUMERO = 10.
        	
       STOP RUN.
        
       2000-PROCESO.
            PERFORM 2100-PROCESO
       		THRU 2100-PROCESO-EXIT
        		UNTIL INDICE = 10.
            
            ADD 1 TO NUMERO.
            MOVE 1 TO INDICE.
            DISPLAY "***********************".
            
       2000-PROCESO-EXIT.
            EXIT.
            
       2100-PROCESO.
            
            MULTIPLY INDICE BY NUMERO GIVING RESULTADO.
            DISPLAY TOTAL.
            ADD 1 TO INDICE.
            
       2100-PROCESO-EXIT.
            EXIT.