Saludos
Amigos del foro, a continuaci�n envio un peque�o Programa CLP realizado por mi
persona, que realiza lo que esta comentando el compa�ero Jesus Olague.
Espero que ayude.
Leonardo Villalobos
Banco Occidental de Descuento.
Maracaibo Venezuela.
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Enviado el: mi�rcoles, 03 de diciembre de 2003 01:05 p.m
Para: [EMAIL PROTECTED]
Asunto: Re: QSECOFR
Si no mal recuerdo, por el foro se comento hace algun tiempo sobre la forma de
'transferir' un trabajo a un usuario distinto sin necesidad de conocer su contrase�a,
probablemente si buscas en la web del foro esos mensajes puedas 'switchear' tu trabajo
a QSECOFR, y con su autoridad habilitar el otro usuario o cambiar su contrase�a.
Saludos.
Jes�s Humberto Olague Alcal�
L�der de Proyectos
Envases y Tapas Modelo, S.A. de C.V.
e-mail: [EMAIL PROTECTED]
Tel: (478) 985 4100 Ext. 247
Fax: (478) 985 4100 Ext. 249
"alex martinez"
<[EMAIL PROTECTED]> Para: <[EMAIL PROTECTED]>
Enviado por: cc:
forum.help400-request@ Asunto: Re: QSECOFR
combios.es
03/12/2003 09:45 a.m.
Por favor, responda a
forum.help400
Hola:
Esto no funciona (error CPF2217) si no tienes autorizacion sobre el perfil de usuario
QSECOFR. La ayuda del mandato CHGOBJOWN explica las autorizaciones necesarias.
SAlu2
----- Original Message -----
From: "Pinedo Pedro" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, December 03, 2003 11:31 AM
Subject: Re: QSECOFR
Prueba a hacer lo siguiente:
Crea un cl para cambiar la contrase�a de qsecorf o habilitarlo.
Cambia el propietario a qsecofr
Cambia el programa para que utilice autorizacion adoptada *owner Ejecutalo.
Pedro Pinedo Hernandez
Analista-Programador
Amcor Flexibles Tobepal Logro�o
Departamento de Inform�tica / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 20 75 43
26006 Logro�o
Spain
[EMAIL PROTECTED]
(quitar nospam del dominio, para enviar)
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
--------------------------------------------------------------------------
" Este mensaje es confidencial. Si usted no es el destinatario de este
mensaje, le suplicamos se lo notifique al remitente mediante un correo electr�nico y
que borre el presente mensaje y sus anexos de su computadora sin retener copia de los
mismos. No debe copiar este mensaje o usarlo para cualquier prop�sito ni divulgar su
contenido. Muchas gracias.
This e-mail is confidential and may also be privileged. If you are not the intended
recipient please immediately advise the sender by reply e-mail and delete this message
and its attachments from your computer without retaining a copy. You should not copy
it or use it for any purpose nor disclose its contents to any other person. Thank
you. "
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
PGM
/* Variables para Manejo de Errores */
DCL &msgid *CHAR 7
DCL &msgf *CHAR 10
DCL &msgflib *CHAR 10
DCL &msgdta *CHAR 100
/* Variables Para Inf. de Arch. de Salvar */
DCL &Phandle1 *CHAR 12
DCL &Phandle2 *CHAR 12
DCL &Usrprf *CHAR 10
/* ========================================================================= */
/* Ejecuta Rutina de Manejo de Error */
/* ========================================================================= */
MONMSG (Cpf0000 Mch0000) EXEC(Goto Error)
RTVJOBA USER(&Usrprf)
/* ========================================================================= */
/* Creal el "Profile Handle" para ejecutar el Trabajo */
/* ========================================================================= */
CALL Qsygetph (&Usrprf '*NOPWD ' &Phandle1 X'00000000')
CALL Qsygetph ('QSECOFR ' '*NOPWD ' &Phandle2 X'00000000')
CALL Qwtsetp (&Phandle2 X'FFFFFFFF')
CHGUSRPRF USRPRF(Qsecofr) Password(Qsecofr)
CALL Qwtsetp (&Phandle1 X'FFFFFFFF')
CALL Qsyrlsph (&Phandle1)
CALL Qsyrlsph (&Phandle2)
RETURN
/* ========================================================================= */
/* Rutina de Error */
/* ========================================================================= */
ERROR: +
CALL Qwtsetp (&Phandle1 X'FFFFFFFF')
CALL Qsyrlsph (&Phandle1)
CALL Qsyrlsph (&Phandle2)
RCVMSG MSGTYPE(*Last) +
MSGDTA(&msgdta) +
MSGID(&msgid) +
MSGF(&msgf) +
SNDMSGFLIB(&msgflib)
/* ========================================================================= */
/* Evita un Ciclo */
/* ========================================================================= */
MONMSG CPF0000
SNDPGMMSG MSGID(&msgid) +
MSGF(&msgflib/&msgf) +
MSGDTA(&msgdta) +
MSGTYPE(*Escape)
/* ========================================================================= */
/* Evita un Ciclo */
/* ========================================================================= */
MONMSG CPF0000
ENDPGM
