Hola Fabian,
Sera algo asi:
PGM PARM(&LIB &USER)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCLF FILE(QTEMP/LIB)
DSPOBJD OBJ(&LIB/*ALL) OBJTYPE(*ALL) +
OUTPUT(*OUTFILE) OUTFILE(QTEMP/LIB)
LEER: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO FIN)
CHGOBJOWN OBJ(&LIB/&ODOBNM) OBJTYPE(&ODOBTP) NEWOWN(&USER)
GOTO LEER
FIN: RETURN
ENDPGM
Saludos
2008/1/23, Fabian Augusto Lopez Zavaleta <[EMAIL PROTECTED]>:
>
> Ok pero no tengo idea como hacerlo, ¿Uds Tendran algo hecho? , desde ya
> muchas gracias.
>
>
>
> *From:* [EMAIL PROTECTED] [mailto:
> [EMAIL PROTECTED] *On Behalf Of *Sergio Bortolo
> *Sent:* miércoles, 23 de enero de 2008 09:41 a.m.
> *To:* forum.help400
> *Subject:* RE: CL para cambiar los Owner en una Biblioteca
>
>
>
> Fabian, si queres cambiar el propietario de todos los objetos de una
> biblioteca, lo que te combiene hacer primero es un DSPOBJD de la
> biblioteca con salida a un archivo y despues hace un CL que haga el
> CHGOBJOWN leyendo el archivo que generaste.
>
> Saludos.
>
> Sergio
>
>
>
> ------------------------------
>
> Date: Wed, 23 Jan 2008 09:56:39 -0300
> From: [EMAIL PROTECTED]
> To: [email protected]
> Subject: CL para cambiar los Owner en una Biblioteca
>
> Hola soy nuevo en AS400 y también en el foro estoy queriendo cambiar el
> Owner de los archivos contenidos en una biblioteca y no se cual es el
> comando, o si hay que hacer un CL, Gracias.
>
> La informacion contenida en el presente correo y en sus adjuntos -en su caso-
> es confidencial y de uso exclusivo para los destinatarios del mismo.
>
> Si Ud. recibe este correo por error tenga bien notificar al emisor y
> eliminarlo.
>
> Esta prohibido a las personas o entidades que no sean los destinatarios de
> este correo cualquier tipo de modificacion, copia, distribucion, divulgacion,
> retencion o uso de la informacion que contiene.
>
> El Banco y demas sociedades del Grupo Comafi no se responsabilizan por
> cualquier uso del correo electronico que fuera: abusivo, contrario a la
> moral, a las buenas costumbres o a la ley, o realizado fuera de las
> competencias laborales del autor del mail. Este no es un medio utilizado para
> contraer obligaciones contractuales, excepto que, previamente, asi se hubiera
> pactado por escrito.
>
>
> ------------------------------
>
> Express yourself instantly with MSN Messenger! MSN
> Messenger<http://clk.atdmt.com/AVE/go/onm00200471ave/direct/01/>
>
> La informacion contenida en el presente correo y en sus adjuntos -en su caso-
> es confidencial y de uso exclusivo para los destinatarios del mismo.
> Si Ud. recibe este correo por error tenga bien notificar al emisor y
> eliminarlo.
> Esta prohibido a las personas o entidades que no sean los destinatarios de
> este correo cualquier tipo de modificacion, copia, distribucion, divulgacion,
> retencion o uso de la informacion que contiene.
> El Banco y demas sociedades del Grupo Comafi no se responsabilizan por
> cualquier uso del correo electronico que fuera: abusivo, contrario a la
> moral, a las buenas costumbres o a la ley, o realizado fuera de las
> competencias laborales del autor del mail. Este no es un medio utilizado para
> contraer obligaciones contractuales, excepto que, previamente, asi se hubiera
> pactado por escrito.
>
>
> __________________________________________________
> Forum.HELP400 es un servicio m&#225;s de NEWS/400.
> &#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
>
--
Martí Riera
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#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