RE: CL para cambiar los Owner en una Biblioteca

[Fabian Augusto Lopez Zavaleta]

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