Re: NRR en subficheros.

Thu, 17 Nov 2005 02:45:51 -0800 



Hasta donde yo sé, no importa de que tamaño definas el campo, pero el NRR
de un subfichero no puede ser mayor que 9.999.


Saludos,
                  ---------------------------
                    Santiago Martí
                       Dusen, S.A.
                  ---------------------------


                                                                           
             [EMAIL PROTECTED]                                             
             .es                                                           
             Enviado por:                                             Para 
             forum.help400-adm         [email protected]            
             [EMAIL PROTECTED]                                              cc 
                                                                           
                                                                    Asunto 
             17/11/2005 10:39          Re: NRR en subficheros.             
                                                                           
                                                                           
                Por favor,                                                 
                responda a                                                 
             [EMAIL PROTECTED]                                             
                  bios.es                                                  
                                                                           
                                                                           





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


















__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400






















					Responder a