Caramba, lo que me sorprende es que te funcionara antes. Hasta donde yo sabía, para poder utilizar la nomenclatura ds.campo, ds tenía que estar definida como qualified.
En cuanto a cómo hacer que te recupere los datos en la ds, veo dos opciones: - Cuando haces las operaciones de archivo incluyes la ds como parámetro. Esto te hará tener que hacer más cambios en el programa (al menos tendrías que cambiar todas las operaciones con el fichero). - Te defines una ds auxiliar, sin el qualified, también como extname(fichero), y con ayuda de un puntero haces que ocupe la misma posición de memoria que dsfichero. Así los campos no cualificados en ds del fichero compartirán valor con los campos de dsfichero. Esta solución te evitará tener que hacer cambios en todas las operaciones con el fichero. Yo la uso con bastante frecuencia. Saludos. Fernando. El mar, 30 ene 2024 a las 17:46, Juan García (<homeryb...@gmail.com>) escribió: > Buenas > > Tengo varios programas compilados en V7R1M0 con estructuras de datos > creados de la siguiente manera: > > D DSFICHERO E DS ExtName(FICHERO) > > Al hacer el chain, se cargan los campos del fichero (lo he comprobado > mediante un debug) y los de la DS > > Chain FLD01 FICHERO; > If Not %Found(FICHERO); > DSFICHERO.FLD01 = 06566; > DSFICHERO.FLD02 = 'Dato erroneo'; > WRITE RFICHERO; > ENDIF; > *inLR = *ON; > > He tenido que modificar uno de estos programas y ahora no compila (En > V7R4M0) muestra el error: > > *RNF7591 Un operando de una expresión de nombre cualificado no es válido*. > > Este error se refiere a los campos de la estructura de datos > DSFICHERO.FLD01 o DSFICHERO.FLD02 > Si se incluye la palabra clave QUALIFIED a la estructura de datos si > compila, pero no se carga la DS ni los campos del fichero, ¿sabéis si esto > ha sido un cambio de IBM? > > Un saludo > > > ____________________________________________________ > Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) > Forum.Help400 � Publicaciones Help400, S.L.
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
