Respecto a tu pregunta Fernando, se que falta en la definición de la DS,
d Ds_Lista        Ds                                                      
d  Dm_Lista                           dim(10)overlay(Ds_Lista:*next)      
d   L_Campo01                         like(Campo01)overlay(Dm_Lista:*next)
d   L_Campo02                         like(Campo02)overlay(Dm_Lista:*next)

El anterior fue un ejemplo, pero también se probo con DS y ocurr(10) y no, 
genero PCLM, pero cuando se hizo el siguiente laboratorio, permite generar el 
pcml y utilizar el servicio desde un cliente.

d  Ds_Lista     Ds                        
d   L_Campo01                         dim(10) like(Campo01)
                                               overlay(Ds_Lista:*next)
d   L_Campo02                         dim(10) like(Campo02)
                                               overlay(Ds_Lista:*next)

Gracias por tu tiempo Fernando.
  ----- Original Message ----- 
  From: Fernando Pérez 
  To: forum.help400 
  Sent: Monday, November 24, 2008 3:23 AM
  Subject: Re: Error al generar PCML de un pgm


  Por el mensaje que te da, el problema es que en tu DS  Dm_Lista ocupa la 
misma posición de memoria que los otros dos campos, y eso no le hace gracia al 
PCML, supongo que porque java, php, o quien sea que vaya a llamar al programa 
no van a poder replicar ese comportamiento. Tendrás que prescindir de campos de 
DS que se solapen si quieres usar pcml.

  Puedes prescindir del solapado de campos en la DS definiendo dm_lista como un 
campo dentro del programa de la siguiente forma: 

  D @Dm_lista       S               *   Inz(%Addr(Ds_Lista))  
  D Dm_Lista        S                   Based(@Dm_Lista) dim(10) (... Por 
cierto, ¿en tu ejemplo no falta algo en la definición de dm_lista?)      



  Saludos.

  Fernando Pérez  

  Cerámica Saloni. Dpto. Auditoría y Organización



  Jaime Villa Torres escribió: 
    Señores, tengo el siguiente, problema, es posible que me den una luz.

    en los parámetro de entrada del programa, existe la siguiente sentencia.
    pDsLista                            LikeDs(Ds_Lista)                      
lista registros

    d Ds_Lista        Ds                                                      
    d  Dm_Lista                           dim(10)overlay(Ds_Lista:*next)      
    d   L_Campo01                         like(Campo01)overlay(Dm_Lista:*next)
    d   L_Campo02                         like(Campo02)overlay(Dm_Lista:*next)

    cuando compilo el programa sin generar el pcml, todo esta ok, incluso, 
tengo un programa rpg de pruebas para llamar es programa del problema, y 
también funciona correctamente,  pero al compilarlo para generar el pcml, me 
esta dando el siguiente error.
                            <!-- Error: Subfields must not overlap -->
        
     <struct name="DS_LISTA">
          <data name="DM_LISTA" type="char" length="10" count="10" 
usage="inherit" />
          <data name="L_CAMPO01" type="char" length="5" count="10" 
usage="inherit" />
          <!-- Error: Subfields must not overlap -->
          <data name="L_CAMPO02" type="char" length="5" count="10" 
usage="inherit" />
          <!-- Error: Subfields must not overlap -->

    realmente no entiendo,  mis conocimientos en pcml, nulos....
----------------------------------------------------------------------------
__________________________________________________
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