Re: NRR en subficheros.

[mmartinez]

Muchas gracias Carlos por tu ayuda, pero hay algo que no acaba de cuadrar y el programa da un error cuando el NRR llega a 10000 y no logro acertar porque es.

Te adjunto el error y el programa.

                                                                               
 ID de mensaje  . . . . :   CPF5021                                            
 Fecha de envío . . . . :   17/11/05      Hora de envío  . . . . :   10:21:19  
                                                                               
 Mensaje . . . . :   Número relativo de registro incorrecto o error de          
   selección de campo.                                                          
                                                                               
 Causa . . . . . :   El valor del número relativo de registro era menor que uno
   o mayor que el máximo permitido para la operación. Si está utilizando        
   selección de campo, el campo seleccionado no cabe en el área de pantalla    
   disponible.                                                                  
 Recuperación  . :   Para más información sobre el proceso de subarchivos,      
   consulte la publicación Application Display Programming, (SC41-5715).        
 Elecciones posibles de respuesta al mensaje. . . . . . . . . . . . . . :      
   I -- Se ignora la petición. Se devuelve el control al usuario.              
   C -- Se cancela la petición. Se envía el mensaje de escape CPF5104.          
                                                                          Final
 Respuesta  . :   C                                                            
 Pulse Intro para continuar.                                                    



0039.00      A          R CONTROL1                  SFLCTL(DATOS1)            
0040.00      A*%%TS  SD  20050923  120902  GEOFAL      REL-V5R1M0  5722-WDS    
0041.00      A                                      SFLPAG(0013)              
0042.00      A  45                                  PAGEUP(45 'Paginación arrib
0043.00      A  46                                  PAGEDOWN(46 'Paginación aba
0044.00      A                                      CF03(03 'Fin')            
0047.00      A                                      KEEP                      
0048.00      A                                      RTNCSRLOC(&DSPRGT &DSPCAM)
0049.00      A  04                                  CSRLOC(DSPFIL     DSPCOL)  
0051.00      A                                      OVERLAY                    
0052.00      A  41                                  SFLDSP                    
0053.00      A  40                                  SFLDSPCTL                  
0054.00      A  42                                  SFLCLR                    
0055.00      A N44                                  SFLEND(*MORE)              
0056.00      A                                      SFLSIZ(&NRR)              
0057.00      A            DSPRGT        10A  H                                
0058.00      A            DSPCAM        10A  H                                
0059.00      A            DSPFIL         3S 0H                                
0060.00      A            DSPCOL         3S 0H                                  
0061.00      A            NRR            5S 0P                                  
0062.00      A            DSPORDI        5S 0H                                  


                C                   EVAL      NCON1=0                      
0130.00 C     DSPARTI       SETLL     SOHISTK                                  
0132.00 C                   DO        *HIVAL                                    
0133.00 C     DSPARTI       READE     SOHISTK                                10
0134.00                                                                        
0135.00 C                   IF        *IN10                                    
0136.00 C                   LEAVE                                              
0137.00 C                   ENDIF                                              
0138.00                                                                        
0184.00 C                   IF        WFECPAR=0                                
0185.00 C                             OR WFECFIC>=WFECPAR AND WCONTAD>=DSPORDI  
0186.00 C                             OR WFECFIC>=WFECPAR AND WFECPAR<>WFECBUS  
0187.00 C                             OR WFECFIC>=WFECPAR AND DSPCODM<>0        
0188.00 C                             OR WFECFIC>=WFECPAR AND DSPCLIE<>0        
0190.00 C                   EVAL      NCON1=NCON1+1                            
0191.00                                                                        
0192.00 C                   EVAL      NRR=NRR+1                                
0193.00 C                   WRITE     DATOS1                                    
0195.00 C                   ENDIF                                              
0196.00 C                   ENDDO