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
.
__,_._,___
_________________________________________________________________
Gracias Messenger por estos 10 años
www.aniversariomessenger.com.mx
____________________________________________________
© 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
