Para acceder a uno de subcampos, se puede realizar de la siguiente manera:

d Bkp140          DS                  
d DmBkp140                            Dim(1000)
d  VC                           10    overlay(DmBkp140:*next)
d  CD1                           1    overlay(DmBkp140:*next)
d  PR                            1S 0 overlay(DmBkp140:*next)
d  PF                           13S 2 overlay(DmBkp140:*next)
Espero sirva para la necesidad.
  ----- Original Message ----- 
  From: [EMAIL PROTECTED] 
  To: forum.help400 
  Sent: Friday, December 28, 2007 9:57 AM
  Subject: RE: Búsqueda en DS que es un Array (LOOKUP)



  Hola, 

  yo me encontré con un caso similar y después de buscar un poco llegué a la 
conclusión de que no se puede hacer :-( 

  La solución que adopté fue la que tu has propuesto, tener una serie paralela 
con el argumento de búsqueda. 

  Saludos 

  Cris




        "Jose Luis Garcia" <[EMAIL PROTECTED]> 
        Enviado por: [EMAIL PROTECTED] 
        19/12/2007 16:05 Por favor, responda a
              "forum.help400" <[email protected]> 


       Para "'forum.help400'" <[email protected]>  
              cc  
              Asunto RE: Búsqueda en DS que es un Array (LOOKUP) 

              

       



  Hola,

  Y que tal si pruebas con:

                  c   CD140    LOOKUP  VC(x)

  Saludos

  -----Mensaje original-----
  De: [EMAIL PROTECTED]
  [mailto:[EMAIL PROTECTED] nombre de Nicolas
  Machado
  Enviado el: miércoles, 19 de diciembre de 2007 13:52
  Para: forum.help400
  Asunto: Busqueda en DS que es un Array (LOOKUP)


  Buenos Dias.

  Queria consultarlos con esto:
  Tengo una DS definida asi:

  d Bkp140          DS                  Qualified Dim(1000)
  d  VC                           10
  d  CD1                           1
  d  PR                            1S 0
  d  PF                           13S 2

  Como veran es una DS en forma de arreglo, y accedo a los elemntos con:
    Bkp140(x).CD1 por ejemplo.

  El tema es q quiero hacer un Lookup, solo por el sub-campo VC.
  El LOOKUP no me permite poner:

  El seu ya me da error:
  c   CD140    LOOKUP  Bkp140(x).VC

  si cambio y pongo
  c   CD140    LOOKUP  Bkp140
  Me da error al compilar

  Pruebo con %LOOKUP en free format?
  O creo un array paralelo para el campo de busqueda ?

  Saludos
  Nicolas




  --
  .::.
  Nicolas Machado
  Metodo Argentina S.A.
  _____________________

  __________________________________________________
  Forum.HELP400 es un servicio m&amp;#225;s de NEWS/400.
  &amp;#169; 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



  --
  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.503 / Virus Database: 269.17.4/1189 - Release Date: 18/12/2007
  21:40


  __________________________________________________
  Forum.HELP400 es un servicio m&amp;#225;s de NEWS/400.
  &amp;#169; 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




------------------------------------------------------------------------------


  __________________________________________________
  Forum.HELP400 es un servicio m&amp;#225;s de NEWS/400.
  &amp;#169; 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
__________________________________________________
Forum.HELP400 es un servicio m&amp;#225;s de NEWS/400.
&amp;#169; 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

Responder a