martes, 2 de diciembre de 2008

Cambiar inicio de sesión

Como cambiar la pantalla de inicio de sesión del AS400.

Primero hemos de tener en cuenta que:
  • El inicio de sesión se asocia a un subsistema, por tanto podemos tener, para algunos subsistemas, diferentes pantallas de inicio de sesión.
  • No es buena idea cambiar la pantalla del subsistema QCTL.
  • También deberíamos crear la nueva pantalla en una biblioteca del sistema, como la QGPL, para evitar problemas en caso de restaurar el sistema.
Una vez tengamos claro los puntos anteriores, podemos continuar con el procedimiento:
  1. Crearemos la nueva pantalla tomando como base la del fuente ubicado en QGPL/QDDSSRC.QDSIGNON, la podemos copiar como MYSIGNON.
  2. CPYSRCF FROMFILE(QGPL/QDDSSRC) TOFILE(QGPL/QDDSSRC) FROMMBR(QDSIGNON) TOMBR(MYSIGNON)
  3. Editar el nuevo archivo de pantalla (tipo DSPF) con el PDM, o el SDA.
  4. Si lo que queremos es añadir un texto tipo ASCII Art, puede que nos sea más fácil añadirla con el SDA.
  5. Hemos de respetar todos los campos, si no queremos mostrarlos, los podemos configurar como ocultos, con la columna Use = H o con las palabras clave DSPATR(PR) y DSPATR(ND).
  6. Lo más habitual es solo dejar los campos de entrada Usuario (USERID) y Contraseña (PASSWRD) y de salida con el nombre del Sistema, Subsistema y dispositivo (SYSNAME, SBSNAME, DEVNAME).
  7. Una vez creada la nueva pantalla de inicio de sesión, podemos probarla creando un subsistema especial, ¿como hacerlo? ver la entrada publicada "Asignar prioridad automáticamente" para crear un subsistema SPECIAL.
  8. CHGSBSD SBSD(QGPL/SPECIAL) SGNDSPF(QGPL/MYSIGNON)
  9. Una vez comprobado el nuevo inicio de sesión funciona correctamente, ya podemos cambiar la configuración del subsistema QINTER:
  10. CHGSBSD SBSD(QINTER) SGNDSPF(QGPL/MYSIGNON)
  11. Una vez hecho esto debemos reiniciar el subsistema QINTER, si tenemos usuarios conectados deberemos buscar el momento adecuado para hacerlo.
  12. Esto deberíamos hacerlo desde la consola del sistema:
  13. ENDSBS SBS(QINTER) OPTION(*IMMED)
  14. y a continuación:
  15. STRSBS SBSD(QINTER)
  16. Y ya tenemos nuestra nueva pantalla de signon.

Publicar un comentario