0037.00
A
SFLCSRRRN(&LINEA)
<----------------------------------
0038.00 A N55 SFLDSP
0039.00 A N55 SFLDSPCTL
0040.00 A 55 SFLCLR
0041.00 A N55 SFLEND(*MORE)
0042.00 A 81 SFLMSGID(EMA0021 *LIBL/QUSERMSG 81)
0043.00 A 87 SFLMSGID(EMA8894 *LIBL/QUSERMSG 87 -
0046.00 A WPOSC 4S 0H SFLRCDNBR(CURSOR)
0047.00 A LINEA 5S 0H <-----------------------------
0038.00 A N55 SFLDSP
0039.00 A N55 SFLDSPCTL
0040.00 A 55 SFLCLR
0041.00 A N55 SFLEND(*MORE)
0042.00 A 81 SFLMSGID(EMA0021 *LIBL/QUSERMSG 81)
0043.00 A 87 SFLMSGID(EMA8894 *LIBL/QUSERMSG 87 -
0046.00 A WPOSC 4S 0H SFLRCDNBR(CURSOR)
0047.00 A LINEA 5S 0H <-----------------------------
CON ESTOS PARAMETROS TE MANTIENE EN EL REGISTRO QUE
SELECCIONAS CUANDO LA DAS LA OPCION 2 CAMBIO VA Y EJECUTA EL PROGRAMA DE CAMBIOS
REGRESA AL SUBFILE Y TE MANTEIENE EL CURSOR Y EL REGISTRO SLECCIONADO , SI TE
INTERESA TE ENVIO UN PROGRAMA RPG Y LA DDS EN TEXTO PARA QUE LO VEAS,
SALUDOS
----- Original Message -----
From: "Juan Ramón Garcia" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Monday, July 18, 2005 11:47 AM
Subject: Re: Programa
subficheros
>
> Yo lo que hago, independientemente de que cargue el sub-fichero pantalla a
> pantalla o todos los registros, es guardarme en memoria un dato que me
> identifique el registro que estaba visualizando (por ejemplo el nº de
> expediente, albarán, etc.), en la rutina de carga del subfichero si ese
> campo no está vacio lo comparo con el campo correspondiente del registro
> que estoy cargando y si coincide fuerzo ese nº de registro al campo que
> especifico en SFLRCDNBR(CURSOR), si cuando salgo de la rutina de carga el
> valor de ese campo es 0 le fuerzo 1 para evitar que de error.
>
> Un saludo.
> Juanra
>
>
> ----- Original Message -----
> From: Juan Antonio
> To: [email protected]
> Sent: Monday, July 18, 2005 5:18 PM
> Subject: Re: Programa subficheros
>
>
>
> Mi consulta iba encaminada a que cuando se recarga el subfichero, necesito,
> además de presentar los registros modificados en mi proceso y en el de
> otros usuarios que hubieran accedido, el dejar el cursor en el registro que
> había seleccionado y no perder este posicionamiento.
>
> Gracias.
>
>
> __________________________________________________
> 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
>
