At 17:15 10/06/2004, you wrote:


>Hola Foreros, saludos a todos.

>

>Quisiera saber si es posible limitar el acceso de una sesion o usuario a la

>pantalla de Peticion de Sistema en esta pantalla aparecen la s siguientes

>opciones:

>

>Peticion de Sistema

>

>1.- Visualizar Inicion de sision para Trabajo alternativo

>2.- Finalizar Peticion Anterior

>3.- Visualizar Trabajo Actual

>4.- Visualizar Mensajes

>5.- Enviar un Mensaje

>etc...



Hola.



Se publicó hace un tiempo una utilidad que permitía bloquear o autorizar el acceso a 
todo el menú de Petición Sistema, usuario a usuario, pero no encuentro el artículo en 
concreto accesible en abierto.



La referencia es la siguiente:



/*Program . . : CBX107 and CBX107O                            */

/*Description : Set profile exit program command              */

/*Author  . . : Carsten Flensburg                             */

/*Published . : Club Tech iSeries Programming Tips Newsletter */

/*Date  . . . : September 4, 2003                             */

/*                                                            */

/*Program function:  SETPRFEXIT command processing program  /*

/*                                                 */

/*  Program summary                                                  */

/*  ---------------                                                  */

/*                                                                   */

/*  Work management APIs:                                            */

/*    QWTSETPX       Set profile exit   Sets for a user profile      */

/*                   program            the exit program to call     */

/*                                      defined by the specified     */

/*                                      format and the values of     */

/*                                      the exit flags.              */

/*                                                                   */

/*    QWTRTVPX       Retrieve profile   Retrieves the values of      */

/*                   exit program       the exit flags currently     */

/*                                      set for the user profile     */

/*                                      and the exit point format    */

/*                                      specified.                   */

/*                                                                   */

/*  Programmer's notes:                                              */

/*    Currently supported by the profile exit APIs are the           */

/*    preattention and presystem request exit points                 */

/*    QIBM_QWT_PREATTNPGMS respectively QIBM_QWT_SYSREQPGMS.         */

/*    Both are managed through either the WRKREGINF facility         */

/*    or the ADDEXITPGM and RMVEXITPGM commands.                     */

/*                                                                   */

/*-------------------------------------------------------------------*/ 



A mí me funciona, pero ya digo que no tengo el artículo completo ni lo he encontrado a 
primera vista accesible en la web. (Si alguien lo encuentra que diga donde)




_____________________________________________________
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]

Responder a