has de utilizar la palabra clave overlay en los campos W1... y W9...:
 
D  W1CDTY                             LIKE(CNCDTY)             OVERLAY(FIRSTR)
D  W1CDTI                             LIKE(CNCDTI)             OVERLAY(FIRSTR:*next)
D  W1NOSS                             LIKE(CNNOSS)             OVERLAY(FIRSTR:*next)
(*next hace que el campo se situe tras el ï¿½ltimo que se ha superpuesto hasta el momento con FIRSTR)
 

Saludos.

Fernando P�rez.
Cer�mica Saloni. Dpto. Sistemas
<mailto:[EMAIL PROTECTED]>

-----Mensaje original-----
De: Jaime Villa Torres [mailto:[EMAIL PROTECTED]]
Enviado el: mi�rcoles, 19 de febrero de 2003 2:13
Para: [EMAIL PROTECTED]
Asunto: Problemas con DS

Tengo una DS de 500.
Esta esta dividida en varios campos, dos de ellos tienen de a 100 caracteres.
Pero se desea que en cada una de ellas se divida en campos que esten referenciados a una archivo. Les presento la posible solucion,  pero ocurre que el programa compila correctamente, pero todos los campos de like quedan en los ultimos caracteres de la DS o sea despues de la posicion 400, alguien de ustedes puede indicarme como poder realizar lo que pretendo y que funcione.
El requisito es no definir la posicion de los campos dentro de la DS sino referencialos a campos de un archivo.
D  FIRSTR               201    300                
D  W1CDTY                             LIKE(CNCDTY)
D  W1CDTI                              LIKE(CNCDTI)
D  W1NOSS                            LIKE(CNNOSS)
  *                        
D  LASTRC               301    400                
D  W9CDTY                             LIKE(CNCDTY)
D  W9CDTI                               LIKE(CNCDTI)
D  W9NOSS                             LIKE(CNNOSS)
                                
Gracias por su colaboraci�n
Saludos

Responder a