¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas

Documentos
Recuperar CL del programa de arranque

Para recuperar el CL del programa de arranque IPL, lo primero es saber como se llama.
Inicialmente es el programa QSTRUP que encontrarás en la biblioteca QSYS.
Para tener mayor seguridad visualiza el valor del sistema QSTRUPPGM y recupera el nombre del programa de arranque,
Para recuperarlo debes hacerlo de igual modo que recuperarías cualquier CL:

RTVCLSRC PGM(QSYS/QSTRUP) SRCFILE(QGPL/QCLSRC)

Ten la precaución de antes de modificar el cl guardar una copia del fuente suministrado por IBM que se llame por ejemplo QSTRUPIBM.
Si no estás seguro NO CAMBIES NADA, estudia detenidamente el CL y lo que quieres hacer
Una vez recuperado, deberá tener el aspecto del fuente que te mostramos:

PGM
DCL VAR(&STRWTRS); TYPE(*CHAR) LEN(1)
DCL VAR(&CTLSBSD); TYPE(*CHAR) LEN(20)
DCL VAR(&CPYR); TYPE(*CHAR) LEN(90) VALUE('+
5769-SS1 (C) COPYRIGHT IBM CORP 1980, 1997. +
MATERIAL BAJO LICENCIA - PROGRAMA PROPIEDAD DE IBM') QSYS/STRSBS SBSD(QSPL)
MONMSG MSGID(CPF0000)
QSYS/STRSBS SBSD(QSERVER)
MONMSG MSGID(CPF0000)
QSYS/RLSJOBQ JOBQ(QGPL/QS36MRT)
MONMSG MSGID(CPF0000)
QSYS/RLSJOBQ JOBQ(QGPL/QS36EVOKE)
MONMSG MSGID(CPF0000)
QSYS/STRCLNUP
MONMSG MSGID(CPF0000)
QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD);
IF ((&CTLSBSD *NE 'QCTL QSYS ') +
*AND (&CTLSBSD *NE 'QCTL QGPL ')) GOTO DONE
QSYS/STRSBS SBSD(QINTER)
MONMSG MSGID(CPF0000)
QSYS/STRSBS SBSD(QBATCH)
MONMSG MSGID(CPF0000)
QSYS/STRSBS SBSD(QCMN)
MONMSG MSGID(CPF0000)
DONE:
QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR)
RTNVAR(&STRWTRS);
IF (&STRWTRS = '0') GOTO NOWTRS
CALL PGM(QSYS/QWCSWTRS)
MONMSG MSGID(CPF0000)
NOWTRS:
RETURN
CHGVAR VAR(&CPYR); VALUE(&CPYR);
/* Necesario para incluir variable */
/* CPYR en programa. */
ENDPGM

Para cambiar el nombre del programa inicial de arranque debes modificar el valor del sistema QSTRUPPGM e indicar el nombre del programa nuevo de arranque y la biblioteca donde se ubica.


Información extraida del manual:
SC10-3121-01 AS/400 Tareas básicas de operación, administración y manejo de problemas del sistema

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 
Subir a la parte superior de la web

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049