Re: CL para cambiar los Owner en una Biblioteca

[Marti Riera]

Hola,

Para no saber nada de AS400 bien complicadito es el programita, no?

Un saludo.

2008/1/23, Fabian Augusto Lopez Zavaleta <[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: forum.help400@listas.combios.es
> 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&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
>



-- 
Martí Riera

__________________________________________________
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