Existe una utilidad llamada CALLERID en HELP400. Este es el fuente. **************************************************************** * CallerID - Identify Calling Program * * From: - Give Your Trigger Programs +Caller ID, * * Autor: - Lloyd Deviney * ****************************************************************
* System API error code D Qusec DS D QusBPrv 1 4B 0 D QusBAvl 5 8B 0 D Qusei 9 15 D Quserved 16 16 * Type definition for the RCVM0200 format D RCVM0200 DS 120 D Program 111 120 **************************************************************** * Standalone Field Definitions * **************************************************************** * Program message parameters D Pm_MsgId S 7 Inz(*BLANKS) D Pm_MsgF S 20 Inz(*BLANKS) D Pm_MsgDta S 12 Inz(+Who are you?+) D Pm_Length S 9B 0 D Pm_MType S 10 Inz(+*INFO+) D Pm_MKey S 4 Inz(*BLANKS) D Pm_CSEntry S 10 Inz(+*+) D Pm_Counter S 9B 0 Inz(4) D Pm_Format S 8 Inz(+RCVM0200+) D Pm_Wait S 9B 0 Inz(0) D Pm_Action S 10 Inz(+*REMOVE+) **************************************************************** * Parameter Lists * **************************************************************** C *Entry PList C Parm Caller 10 **************************************************************** * Main Program * **************************************************************** * Set error code structure not to use exceptions C Z-Add 16 QusBPrv * Set length of message data C Z-Add 12 Pm_Length * Send program message C Call +QMHSNDPM+ C Parm Pm_MsgId C Parm Pm_MsgF C Parm Pm_MsgDta C Parm Pm_Length C Parm Pm_MType C Parm Pm_CSEntry C Parm Pm_Counter C Parm Pm_MKey C Parm Qusec * Check for errors C If QusBAvl > 0 C Exsr *PSSR C EndIf * Clear return data structure C Clear RCVM0200 * Set length of message information C Z-Add 120 Pm_Length * Receive program message C Call +QMHRCVPM+ C Parm RCVM0200 C Parm Pm_Length C Parm Pm_Format C Parm Pm_CSEntry C Parm Pm_Counter C Parm Pm_MType C Parm Pm_MKey C Parm Pm_Wait C Parm Pm_Action C Parm Qusec * Check for errors C If QusBAvl > 0 C Exsr *PSSR C EndIf C Move Program Caller C Return **************************************************************** * *PSSR - Error Handling Subroutine * **************************************************************** C *PSSR Begsr C Return C Endsr -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Raul Segura Torres Sent: Monday, November 05, 2007 12:42 AM To: Alvaro Mato; forum.help400 Subject: Re: informacion de datos de programa llamador Hola, Álvaro. Puedes hacerlo mediante la combinación de las llamadas a las API's QMHSNDPM y QMHRCVPM, enviando un mensaje al programa llamador y recibiéndolo después; la 2ª API devuelve los datos del "programa" que recibe el mensaje... Un Saludo. "Alvaro Mato" <[EMAIL PROTECTED] m.uy> Para Enviado por: "forum.help400" forum.help400-bou <[email protected]> [EMAIL PROTECTED] cc os.es Asunto informacion de datos de programa 02/11/2007 22:36 llamador Por favor, responda a Alvaro Mato <[EMAIL PROTECTED] m.uy>; Por favor, responda a "forum.help400" <[EMAIL PROTECTED] stas.combios.es> Estimados: necesitaría saber dentro de un RPGLE cual es el nombre del CL que lo invocó. Si existe la posibilidad sin tener la necesidad de pasarle un parámetro desde fuera, les agradezco me lo hagan saber. Pensé que podría estar en la DS - PSDS pero no lo encontré. Saludos Alvaro Mato -------Mensaje original------- De: Nildo Talavera Johnson Fecha: 02/11/2007 04:26:30 p.m. Para: forum.help400 Asunto: Redireccionar Cola de Impresión Amigos : Tengo un usuario cuyos trabajos de impresión están direccionados a "COLAX", quisiera redireccionar dichos trabajos a "COLAY" pero de manera permanente , tengo derechos de usuario y contraseña para hacerlo así como el client access para emular sesión. Cual es la secuencia de comandos a utilizar. Muchas Gracias Saludos __________________________________________________ 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 (Embedded image moved to file: pic21948.gif)Emoticones gratis para su correo electrónico - ¡Por IncrediMail! ¡Haga clic aquí! __________________________________________________ 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
