Hola:
Bueno, pues al final he descubierto el problema a base de debugeo, No tenía ningún error ni de codificación, ni por falta de autorizaciones, etc. El tema es que esta utilidad(GETLCKUSRC), aunque sirve para recuperar información de bloqueo de cualquier tipo de objetos, por defecto está pensada para bloqueos de base de datos, de tal forma que su parámetro MBR envía siempre por defecto el valor *FIRST, y de ahí surge el problema ya que la API QWCLOBJL(List Objetc Locks), en su parámetro de entrada "Member name" no puede llevar *FIRST si el objeto de que se trate no es una base de datos, como en mi caso que es un *PGM, sino que debe llevar *NONE o *ALL. En fin, que con una pequeña adaptación en esta utilizad, en mi caso lo hice en el CL, ya funciona perfectamente. Gracias por vuestra ayuda. Saludo2. ________________________________ De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de alex martinez Enviado el: viernes, 26 de septiembre de 2008 11:14 Para: forum.help400 Asunto: Re: RV: bloque de objetos Me inclino por pensar que hay un error previo (falta autorizaciones, por ejemplo) en alguno de los CALL a las APIs que hay unas lineas antes. Revisa el joblog del trabajo e incluso haz un debug paso del programa. El 26 de septiembre de 2008 10:56, Jesús Manuel Sanchez Montaña <[EMAIL PROTECTED]> escribió: Hola Alex: Si, la misma. Pues el problema es que me casca con el error MCH1210 "el valor receptor es demasiado pequeño para contener el resultado" en la línea 4800, que viene siendo esta: CHGVAR VAR(&NUM09) VALUE(%BIN(&STRPOS)) Y ya me dejado las pestañas repasando de arriba abajo tanto el CL como el CMD, y no consigo ver el error. Bueno, puede ser también porque ya estamos a viernes. Gracias. Saludo2. ________________________________ De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de alex martinez Enviado el: viernes, 26 de septiembre de 2008 10:31 Para: forum.help400 Asunto: Re: RV: bloque de objetos Hola: Si te refieres a ésta utilidad http://www.recursos-as400.com/como105.shtml por aqui la tengo y funciona ¿que problema tienes? Salu2 El 26 de septiembre de 2008 10:17, Jesús Manuel Sanchez Montaña <[EMAIL PROTECTED]> escribió: ________________________________ De: Jesús Manuel Sanchez Montaña Enviado el: jueves, 25 de septiembre de 2008 11:24 Para: '[EMAIL PROTECTED]' Asunto: bloque de objetos Hola a todos: Alguien ha utilizado la utilidad GETLCKUSRC que está en recursos400, para recuperar el usuario que está bloqueando un objeto, y le ha funcionado?. O también si alguien conoce otra que si funcione, será bienvenida. Gracias de antemano. Saludo2. __________________________________________________ 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 __________________________________________________ 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
__________________________________________________ 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
