RE: NRR en subficheros.

Ing. Alfonso Quintanar Monroy Wed, 16 Nov 2005 16:18:43 -0800

Compañeros, estoy haciendo una prueba con el código enviado pero me marca error, anexo mi ejemplo para que me indiquen en que estoy equivocado, de antemano muchas gracias.

Pantalla

A DSPSIZ(24 80 *DS3)

A R SD1 SFL

A NUMERO 5 0O 3 7

A R SC1 SFLCTL(SD1)

A SFLPAG(0018)

A CA12(12 'Salir')

A 20 SFLDSP

A 21 SFLDSPCTL

A 22 SFLCLR

A 23 SFLEND(*MORE)

A SFLSIZ(&SFLTOP)

A 2 7'numero'

A DSPATR(HI)

A DSPATR(UL)

A SFLTOP 5S 0P

A R F

A 23 2'F12='

A DSPATR(HI)

A 23 7'Salir'

Programa

FPRUSFLfm cf e workstn sfile(sd1:sfltop)

c eval *in22 = *on

c write sc1

c eval *in22 = *off

c z-add 0 numero

c z-add 1 sfltop

c dow numero < 12345

c add 1 numero

c Write sd1

c add 1 sfltop

c enddo

c write f

c exfmt sc1

c Eval *inlr = *on

De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Machado Nicolás Guillermo
Enviado el: Miércoles, 16 de Noviembre de 2005 12:42 p.m.
Para: [email protected]
Asunto: RE: NRR en subficheros.

Con esto se pueden cargar mas de 9999 registrso en un subfichero ??

Desde mis comienzos en RPG este fue siempre el limite, si ahora me entero que lo podia evitar.....

cuantos programas al cuete !!!

From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Carlos Augusto Correa García
Sent: Miércoles, 16 de Noviembre de 2005 03:22 p.m.
To: [email protected]
Subject: Re: NRR en subficheros.

Una ayuda :
Define tu subfile con tamaño variable :
A                                      SFLSIZ(&SFLTOP)
donde &SFLTOP es una variable del tamaño que tuquieres, Por ejemplo de (5,0)
A            SFLTOP         5S 0P
Y en tu programa cada vez que esribas un registro del subfile incrementas la variable SFLTOP.
Por ejemplo en RPGLE :
C              WRITE     DATA01
C                   ADD       1             SFLTOP
No te olvides de inicializar la variable SFLTOP en 1
C                   MOVE      1             SFLTOP

________________________
Carlos Augusto Correa García
CMAC PIURA S.A.C.

[EMAIL PROTECTED] escribió:

A mí se me ocurre que cargando sólo los registros que caben en la pantalla e ir paginando. Tendrás que controlar en qué registro del fichero te quedaste para cuando se pagine poner a 0 el nrr y partir de aquí para llenarlo otra vez.

[EMAIL PROTECTED]
Enviado por: [EMAIL PROTECTED] 16/11/05 16:16

Por favor, responda a
[email protected]

Para	<[email protected]>
cc
Asunto	NRR en subficheros.

Buenas tardes a todos:

Tengo un problemilla que seguramente tendreis solucionado de alguna manera muchos de vosotros.

Mi problema es el siguiente:
Tengo un subfichero en el que tengo que cargar más de 9999 registros y aunque este problema lo tengo solucionado en la carga de otros subficheros, este que voy a hacer ahora no lo puedo tratar de la misma forma.

El problema es que tengo que saber coger todo el historial de un artículo para saber el stock que tiene a día de hoy, y este artículo tiene más de 9999 movimientos, por lo que al cargarlo en el subfichero me dice que el campo se queda pequeño, porque ya sabeis que el campo que controla el contador de registros en el subfichero es de 4.0

Mi pregunta es la siguiente. ¿Se puede utilizar otro campo en el subfichero de una longitud superior a 4.0?

Espero haberme explicado. Muchas Gracias anticipadas.

RE: NRR en subficheros.

Responder a