Isom
So erstellen Sie ein Subsystem, jobd und ein Benutzerprofil, damit übergebene Jobs im neuen Subsystem ausgeführt werden.
Stellenbeschreibung erstellen:CRTJOBD JOBD(ATLANTIS/ATLANTIS) JOBQ(ATLANTIS/ATLANTIS)
TEXT('dimensional Insight default job description')
INLLIBL(QTEMP QGPL ATLANTIS)
Benutzerprofil erstellen oder vorhandenes Benutzerprofil ändern, um jobd zu verwenden
CRTUSRPRF USRPRF(ATLANTIS) PASSWORD(ATLANTIS) ) PWDEXP(*YES)
USRCLS(*PGMR) CURLIB(ATLANTIS)
TEXT('Dimensional Insight Standardprofil') JOBD(ATLANTIS)
Erstellen Sie ein Subsystem - hier wird der Autostart-Job ausgeführt.
Code:CRTSBSD SBSD(ATLANTIS/ATLANTIS) POOLS((1 *BASE))
TEXT('Dimensional Insight Subsystem')
Erstellen Sie eine Auftragswarteschlange, um das oben erstellte Subsystem zu speisen.
Code:CRTJOBQ JOBQ(ATLANTIS/ATLANTIS)
TEXT('Dimensional Insight Job Queue')
Jetzt fügen wir einen Jobqueue-Eintrag hinzu, um das Subsystem und die Jobqueue anzuhängen.
Code: ADDJOBQE SBSD(ATLANTIS/ATLANTIS)
JOBQ(ATLANTIS/ATLANTIS) MAXACT(*NOMAX)
Fügen Sie einen Routing-Eintrag hinzu, damit unsere Jobs ausgeführt werden. (Ich habe QBATCH -CLASS ausgeliehen)
ADDRTGE SBSD(ATLANTIS) SEQNBR(9999)
CMPVAL(*ANY) PGM(QSYS/QCMD) CLS(QBATCH)
Jetzt haben wir unser SubsystemUm ein Subsystem automatisch zu starten, müssen Sie dies zum Startprogramm hinzufügen. Verwenden Sie dazu den Befehl WRKSYSVAL QSTRUPPGM Systemwert
anzeigen Systemwert
. . . . . : QSTRUPPGM
Beschreibung . . . . . : Startprogramm
Startprogramm . . . . . . : QSTRUP-Name, *NONE
Bibliothek . . . . . . . . . : QSYS Name
Wie in diesem Beispiel ist das Startprogramm QSTRUP in der Bibliothek QSYS. Dies ist ein CLP-Programm. Sie müssen den Befehl RTVCLSRC verwenden, um die Quelle abzurufen. Fügen Sie dann einfach der Quelle STRSBS ATLANTIS/ATLANTISMONSMG CPF0000 hinzu und kompilieren Sie das Programm wieder in die Bibliothek QSYS.
Diveline im Subsystem ATLANTIS
ausführen lassen SBMJOB CMD(CALL PGM(ATLANTIS/DVLNSVR) PARM(ATLANTIS ' )) JOB(DIVER) JOBD(ATLANTIS/ATLANTIS) JOBQ(atlantis/ATLANTIS) USER(ATLANTIS)