Si pero no lo hice yo!!, saludos.
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Marti Riera Sent: miércoles, 23 de enero de 2008 06:53 p.m. To: forum.help400 Subject: Re: CL para cambiar los Owner en una Biblioteca Hola, Para no saber nada de AS400 bien complicadito es el programita, no? Un saludo. 2008/1/23, Fabian Augusto Lopez Zavaleta < [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> >: Al final lo solucione con este programete .vbs gracias a todos. BatchMode SetLocale("es-ar") Set db = CreateObject("ADODB.connection") db.Open "Provider=IBMDA400.DataSource.1;Persist Security Info=False;Data Source=10.99.254.4;Default Collection=COMSIFLZ" CambiarInteractivo 'CambiarBiblioteca "*BIBLIOTECA", "*OBJETO", "*TIPO", "*PROPIETARIO" 'CambiarBiblioteca "addq", "*ALL", "*ALL", "OWNERCFI" 'CambiarBiblioteca "addqobj", "*ALL", "*ALL", "OWNERCFI" 'CambiarBiblioteca "zavaletaf", "*ALL", "*ALL", "OWNERCFI" 'CambiarObjeto "*BIBLIOTECA", "*OBJETO", "*TIPO", "*PROPIETARIO" Execute400 "CLRPFM FILE(COMSIFLZ/TMP00001)" db.Close MsgBox "Finalizado " & WScript.ScriptName '----------------------------------------------------------------------------- Sub CambiarInteractivo Biblioteca = ucase(InputBox("Biblioteca:")) If Biblioteca = "" Then Exit Sub Objeto = ucase(InputBox("Objeto:")) If Objeto = "" Then Exit Sub Tipo = ucase(InputBox("Tipo:")) If Tipo = "" Then Exit Sub Propietario = ucase(InputBox("Propietario:")) If Propietario = "" Then Exit Sub If MsgBox("Biblioteca: " & Biblioteca & vbCRLF & "Objeto: " & Objeto & vbCRLF & "Tipo: " & Tipo & vbCRLF & "Propietario: " & Propietario, vbOKCancel) <> vbOK Then Exit Sub CambiarBiblioteca Biblioteca, Objeto, Tipo, Propietario End Sub '----------------------------------------------------------------------------- Sub CambiarBiblioteca (ByVal Biblioteca, ByVal Objeto, ByVal Tipo, ByVal Propietario) WScript.Echo "Localizando Objetos de la Biblioteca " & Biblioteca ExecuteSQL "DELETE FROM COMSIFLZ.TMP00001" On Error Resume Next Execute400 "DSPOBJD OBJ(" & Biblioteca & "/" & Objeto & ") OBJTYPE(" & Tipo & ") OUTPUT(*OUTFILE) OUTFILE(COMSIFLZ/TMP00001)" On Error Goto 0 Set rs = db.Execute("SELECT ODOBNM, ODOBTP FROM TMP00001 ORDER BY ODOBNM") While not rs.EOF CambiarObjeto Biblioteca, rs("ODOBNM"), rs("ODOBTP"), Propietario rs.MoveNext Wend rs.Close End Sub '----------------------------------------------------------------------------- Sub CambiarObjeto (ByVal Biblioteca, ByVal Objeto, ByVal Tipo, ByVal Propietario) On Error Resume Next Execute400 "CHGOBJOWN OBJ(" & Biblioteca & "/" & Objeto & ") OBJTYPE(" & Tipo & ") NEWOWN(" & Propietario & ")" On Error Goto 0 End Sub '------------------------------------------------------------------------------------------ Sub ExecuteSQL(ByVal Cmd) Wscript.Echo Cmd & vbCRLF db.Execute Cmd End Sub '------------------------------------------------------------------------------------------ Sub Execute400(ByVal Cmd) Wscript.Echo Cmd & vbCRLF db.Execute "{{" & Cmd & "}}" End Sub '----------------------------------------------------------------------------- Sub BatchMode If Instr(UCase(WScript.FullName), "WSCRIPT.EXE") Then CreateObject("WScript.Shell").Run "cscript.exe " & WScript.ScriptName WScript.Quit End If End Sub 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 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
