Isom
A continuación, se explica cómo crear un subsistema, un trabajo y un perfil de usuario para que los trabajos enviados se ejecuten en el nuevo subsistema.
Crear descripción de trabajo: CRTJOBD JOBD (ATLANTIS / ATLANTIS) JOBQ (ATLANTIS / ATLANTIS)
TEXT ('descripción de trabajo predeterminada de dimensional Insight')
INLLIBL (QTEMP QGPL ATLANTIS)
Cree un perfil de usuario o modifique el perfil de usuario existente para usar jobd
CRTUSRPRF USRPRF (ATLANTIS) PASS ) PWDEXP (* YES)
USRCLS (* PGMR) CURLIB (ATLANTIS)
TEXT ('Perfil predeterminado de Dimensional Insight') JOBD (ATLANTIS)
Crear un subsistema: aquí es donde se ejecutará el trabajo de inicio automático.
Código: CRTSBSD SBSD (ATLANTIS / ATLANTIS) POOLS ((1 * BASE))
TEXT ('subsistema dimensional Insight')
Cree una cola de trabajos para alimentar el subsistema creado anteriormente.
Código: CRTJOBQ JOBQ (ATLANTIS / ATLANTIS)
TEXT ('Cola de trabajos de
percepción dimensional')
Ahora agregamos una entrada de cola de trabajos para adjuntar el subsistema y la cola de trabajos.
Código: ADDJOBQE SBSD (ATLANTIS / ATLANTIS)
JOBQ (ATLANTIS / ATLANTIS) MAXACT (* NOMAX)
Agregue una entrada de ruta para que nuestros trabajos se ejecuten. (Tomé prestado QBATCH -CLASS)
ADDRTGE SBSD (ATLANTIS) SEQNBR (9999)
CMPVAL (* ANY) PGM (QSYS / QCMD) CLS (QBATCH)
Ahora tenemos nuestro subsistema Para iniciar un subsistema automáticamente, debe agregarlo al programa de inicio. Para encontrarlo, utilice el comando WRKSYSVAL QSTRUPPGM
Mostrar valor del
sistema Valor del
sistema. . . . . : QSTRUPPGM
Descripción . . . . : Programa de
inicio Programa de inicio. . . . . . : Nombre de QSTRUP, * NINGUNA
biblioteca. . . . . . . . . : Nombre de QSYS
Como en este ejemplo, el programa de inicio es QSTRUP en la biblioteca QSYS. Este es un programa CLP. Debe utilizar el comando RTVCLSRC para obtener el origen. Luego, simplemente agregue a la fuente STRSBS ATLANTIS / ATLANTISMONSMONSMG CPF0000 y vuelva a compilar el programa en la biblioteca QSYS. Ahora, cuando se realice la IPL de la caja, el subsistema se iniciará automáticamente.
Hacer que diveline se ejecute en el subsistema ATLANTIS
SBMJOB CMD (CALL PGM (ATLANTIS / DVLNSVR) PARM (ATLANTIS '')) JOB (DIVER) JOBD (ATLANTIS / ATLANTIS) JOBQ (atlantis / ATLANTIS) USER (ATLANTIS)