Al ver la posibilidad de tener subficheros con más de 9999, he
consultado el manual DDS Reference, y allí indica que SFLSIZ no puede
tener tamaño mayor de 9999, tanto si le das valor constante como si le
asocias una variable.
Te recomiendo la carga página a página. Una vez has hecho la rutina en
un programa, el resto salen fácil, y a la larga da menos problemas que
la carga total o parcial.
[EMAIL PROTECTED] escribió:
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
--
Saludos.
Fernando Pérez
Cerámica Saloni. Dpto. Sistemas
|
begin:vcard
fn;quoted-printable:Fernando P=C3=A9rez
n;quoted-printable:P=C3=A9rez;Fernando
org:;Sistemas
email;internet:[EMAIL PROTECTED]
tel;work:Ext. 627
x-mozilla-html:TRUE
version:2.1
end:vcard
