IDENTIFICATION DIVISION.                                         
       PROGRAM-ID. VSAMDEM2.                                            
       ENVIRONMENT DIVISION.                                            
       INPUT-OUTPUT SECTION.                                            
       FILE-CONTROL.                                                    
           SELECT INFILE ASSIGN TO ENTRA                                
             ORGANIZATION IS INDEXED                                    
             ACCESS MODE IS RANDOM                                      
             RECORD IS FS-KEY                                           
             FILE STATUS IS WS-STATUS.                                  
      *                                                                 
           SELECT INCTA ASSIGN TO ENTRA                                 
             ORGANIZATION IS INDEXED                                    
             ACCESS MODE IS SEQUENTIAL                                  
             RECORD IS FS-KEY1                                          
             FILE STATUS IS WS-STATUS1.                                 
                                                                        
                                                                        
                                                                        
       DATA DIVISION.                                                   
       FILE SECTION.                                                    
       FD INFILE.                                                       
       01 FS-DATA.                                                      
           05 FS-KEY   PIC X(08).                                       
           05 FS-DESC  PIC X(44).                                       
           05 FS-OTRO  PIC X(80).                                       
       FD INCTA.                                                        
       01 FS-DATA1.                                                     
           05 FS-KEY1  PIC X(08).                                       
           05 FS-DESC1 PIC X(44).                                       
           05 FS-OTRO1 PIC X(80).                                       
                                                                        
                                                                        
       WORKING-STORAGE SECTION.                                         
                                                                        
       01 WS-DATA      PIC X(132).                                      
       01 WS-STATUS    PIC 9(02).                                       
       01 WS-STATUS1   PIC 9(02).                                       
                                                                        
       01 CONTADOR     PIC 9(08) VALUE ZEROS.                           
                                                                        
       PROCEDURE DIVISION.                                              
           DISPLAY "ACCEDIENDO AL ARCHIVO".                             
           OPEN I-O INFILE.                                             
           OPEN I-O INCTA.                                              
                                                                        
      *    DISPLAY WS-STATUS.                                           
      *    PERFORM 1000-READ.                                           
      *    PERFORM 2000-WRITE.                                          
      *    PERFORM 1100-CUENTA.                                         
      *    PERFORM 3000-UPDATE.                                         
           PERFORM 4000-BORRAR.                                         
                                                                        
           PERFORM 9000-FIN.                                            
           GOBACK.                                                      
                                                                        
       1000-READ.                                                       
           MOVE "00000001" TO FS-KEY.                                   
           READ INFILE INTO WS-DATA                                     
                KEY IS FS-KEY                                           
                INVALID KEY DISPLAY "INVALID KEY"                       
                NOT INVALID KEY                                         
                DISPLAY "ENCONTRADO"                                    
                DISPLAY FS-DESC                                         
                DISPLAY WS-DATA                                         
           END-READ.                                                    
                                                                        
           EXIT.                                                        
                                                                        
       1100-CUENTA.                                                     
           MOVE '00000001' TO FS-KEY1.                                  
           START INCTA KEY IS EQUAL TO FS-KEY1.                         
           PERFORM UNTIL WS-STATUS1 EQUAL '10'                          
               READ INCTA INTO WS-DATA                                  
                   IF WS-STATUS1 NOT EQUAL '00'                         
                      DISPLAY "FS CUENTA: " WS-STATUS1                  
                      MOVE '10' TO  WS-STATUS                           
                   END-IF                                               
                   IF WS-STATUS1 EQUAL '00'                             
                      DISPLAY "CONTADO"                                 
                      ADD 1 TO CONTADOR                                 
                   END-IF                                               
           END-PERFORM.                                                 
           DISPLAY "SE ENCONTRARON: " CONTADOR " CUENTAS."              
                                                                        
                                                                        
           EXIT.                                                        
                                                                        
       2000-WRITE.                                                      
           MOVE "00000002" TO FS-KEY.                                   
           MOVE "NORA ADRIANA" TO FS-DESC.                              
           WRITE FS-DATA                                                
              INVALID KEY DISPLAY "INVALID KEY"                         
              NOT INVALID KEY DISPLAY "REGISTRO INGRESADO"              
           END-WRITE.                                                   
                                                                        
      *     MOVE "00000003" TO FS-KEY.                                  
      *     MOVE "EMMA NICOLE" TO FS-DESC.                              
      *     WRITE FS-DATA                                               
      *        INVALID KEY DISPLAY "INVALID KEY"                        
      *        NOT INVALID KEY DISPLAY "REGISTRO INGRESADO"             
      *     END-WRITE.                                                  
                                                                        
           EXIT.                                                        
                                                                        
                                                                        
       3000-UPDATE.                                                     
           MOVE "00000002" TO FS-KEY.                                   
           MOVE "MICAELA AGUSTINA" TO FS-DESC.                          
           REWRITE FS-DATA                                              
               INVALID KEY DISPLAY "INVALID KEY"                        
               NOT INVALID KEY DISPLAY "REGISTRO INGRESADO"             
           END-REWRITE.                                                 
                                                                        
                                                                        
           EXIT.                                                        
                                                                        
       4000-BORRAR.                                                     
                                                                        
           MOVE "00000002" TO FS-KEY.                                   
           DELETE INFILE                                                
               INVALID KEY DISPLAY "INVALID KEY"                        
               NOT INVALID KEY DISPLAY "REGISTRO BORRADO"               
           END-DELETE.                                                  
                                                                        
                                                                        
           EXIT.                                                        
                                                                        
                                                                        
                                                                        
       9000-FIN.                                                        
                                                                        
           CLOSE INFILE.                                                
           CLOSE INCTA.                                                 
           DISPLAY "ARCH CERRADO".                                      
           EXIT.