Podrias utilizar MOVEA (en formato fijo) o %SUBARR en Free.
Saludos!!
From: [email protected]
To: [email protected]
Subject: FW: mover todo un arreglo a un registro
Date: Wed, 29 Jul 2009 07:55:00 -0500
Foro
tengo un registroo con 40 campos de 10 characteres
tengo que llenarlo leyendo una tabla de medios de publicidad
por cada registro que leo de la tabla de TMEDI , nesesito gravarlo en el campo1
del archivo TPLAMED
el segundo registro de TMEDI al Campo 2 de TPLAMED
son 40 medios de publicidad
hices este arreglo para guardarlos en una tabla , hata aqui no hay problema ,
pero cuando ya tengo la
tabla llena y la,empiezo a leer para grabar mi regitro de 4o campos tengo que
hacer un if pr cada indice para mover el campo (segun indice ) al numero de
campo que le corresponde
pregunta , en cobol me acuerdo que exostia algo asi como el REDEFINES en donde
el arreglo que estoy deficiendo lo pueda leer completo y moverlo en un solo
paso al registro de TPLAMED
como lo puedo hacer en RPGILE
tendran algun ejemplo
Gracias
FLMEDI1 IF E K DISK
F*TPLAMED O E K DISK
D*
D @TABLA S 10 Dim(40) Inz
D @Indx S 5 0 Inz
C* ====================================
C*| B L O Q U E P R I N C I P A L D E L P R O G R A M A |
C* =====================================
C *LOVAL SETLL TMEDIF
C READ TMEDIF 68
C DOW NOT %EOF <----------.
C EVAL @Indx = @Indx + 1
C Eval @TABLA(@Indx) = MEDNOM
C READ TMEDIF 68 |
C ENDDO
esto es lo que quiero evitar
c DO 40 @index
C IF @INDEX = 1
C Eval MEDIO_1 = @TABLA(@Indx)
C ENDIF
C IF @INDEX = 2
C Eval MEDIO_2 = @TABLA(@Indx)
C ENDIF
C IF @INDEX = 3
C .
C .
C .
C .
C .
C .
C .
C .
C .
C .
C .
IF @INDEX = 40
C Eval MEDIO_40 = @TABLA(@Indx)
C ENDIF
Saludos
Juan Gutierrez Ruiz
.
__,_._,___
Únete a la celebración de Messenger y sigue siendo parte de esta historia
_________________________________________________________________
Connect to the next generation of MSN Messenger
http://imagine-msn.com/messenger/launch80/default.aspx?locale=en-us&source=wlmailtagline
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
