Isom
Voici comment créer un sous-système, un jobd et un profil utilisateur afin que les travaux soumis s'exécutent dans le nouveau sous-système.
Créer une description de poste : CRTJOBD JOBD(ATLANTIS/ATLANTIS) JOBQ(ATLANTIS/ATLANTIS)
TEXT('dimensional Insight job description par défaut')
INLLIBL(QTEMP QGPL ATLANTIS)
Créer un profil utilisateur ou modifier le profil utilisateur existant pour utiliser jobd
CRTUSRPRF USRPRF(ATLANTIS) PASSWORD(ATLANTIS) ) PWDEXP(*YES)
USRCLS(*PGMR) CURLIB(ATLANTIS)
TEXT('Dimensional Insight profil par défaut') JOBD(ATLANTIS)
Créez un sous-système - c'est là que le travail de démarrage automatique s'exécutera.
Code : CRTSBSD SBSD(ATLANTIS/ATLANTIS) POOLS((1 *BASE))
TEXTE('sous-système Insight dimensionnel')
Créez une file d'attente de travaux pour alimenter le sous-système créé ci-dessus.
Code:CRTJOBQ JOBQ(ATLANTIS/ATLANTIS)
TEXTE('File d'attente de travaux d'analyse
dimensionnelle')
Maintenant, nous ajoutons une entrée de file d'attente pour attacher le sous-système et la file d'attente.
Code : ADDJOBQE SBSD(ATLANTIS/ATLANTIS)
JOBQ(ATLANTIS/ATLANTIS) MAXACT(*NOMAX)
Ajoutez une entrée de routage pour que nos travaux s'exécutent. (J'ai emprunté QBATCH -CLASS)
ADDRTGE SBSD(ATLANTIS) SEQNBR(9999)
CMPVAL(*ANY) PGM(QSYS/QCMD) CLS(QBATCH)
Maintenant, nous avons notre sous- systèmePour
démarrer un sous-système automatiquement, vous devez l'ajouter au programme de démarrage. Pour le trouver, utilisez commandWRKSYSVAL QSTRUPPGM
Afficher la valeur du
système Valeur du
système . . . . . : QSTRUPPGM
La description . . . . . : Programme de
démarrage Programme de démarrage . . . . . . : Nom QSTRUP, *NONE
Bibliothèque . . . . . . . . . : Nom QSYS
Comme dans cet exemple, le programme de démarrage est QSTRUP dans la bibliothèque QSYS. Il s'agit d'un programme CLP. Vous devez utiliser la commande RTVCLSRC pour obtenir la source. Ensuite, ajoutez simplement à la source STRSBS ATLANTIS/ATLANTISMONSMG CPF0000 et recompilez le programme dans la bibliothèque QSYS. Maintenant, lorsque la boîte est activée, le sous-système démarre automatiquement.
Exécuter diveline dans le sous-système ATLANTIS
SBMJOB CMD(CALL PGM(ATLANTIS/DVLNSVR) PARM(ATLANTIS ' ' )) JOB(DIVER) JOBD(ATLANTIS/ATLANTIS) JOBQ(atlantis/ATLANTIS) USER(ATLANTIS)