Fernando, muchas gracias, esa es la solución, estaba enfrascado con WRKOBJPDM y QUSLOBJ
Jaime Villa T.
----- Mensaje original -----
Enviado: Lunes, 08 de Agosto de 2005 09:07 a.m.
Asunto: Re: WRKOBJPDM-Jesús Olague

Una forma de hacerlo:

DSPFD FILE(BIB/*ALL) TYPE(*BASATR) OUTPUT(*OUTFILE) OUTFILE(QTEMP/FD)

En el campo ADTDAT tendrás 'D' para una archivo de datos y 'S' para un archivo fuente.

Jesus Olague escribió:
Jaime. El formato OBJL0200 trae el atributo extendido del objeto a
partir de la posición 31 (32 en RPG OPM), no recuerdo si su valor es
diferente para archivos fisicos de datos y de fuentes, pero supongo
que si.

Saludos.

  

--
Saludos.

Fernando Pérez 

Cerámica Saloni. Dpto. Sistemas

Responder a