|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
19.11.サブシステムを作成するサンプルCLP | |||||||||
新しくサブシステムを作るときの雛型です。名前は、宣言の値を変更して作ってください。 クラスは、QBATCHにしましたが、対話型環境では、QINTERか、同等のユーザー定義クラスに変更してください。 ジョブ待ち行列は5個、MAXACTは省略値で１です。自動開始や事前実行は入れていません。必要にあわせて修正してください。 PGM DCL &SBSD *CHAR 10 'TESTSBS'
DCL &SBSDL *CHAR 10 'QGPL'
DCL &JOBQ1 *CHAR 10 'TESTJOBQ1'
DCL &JOBQ2 *CHAR 10 'TESTJOBQ2'
DCL &JOBQ3 *CHAR 10 'TESTJOBQ3'
DCL &JOBQ4 *CHAR 10 'TESTJOBQ4'
DCL &JOBQ5 *CHAR 10 'TESTJOBQ5'
DCL &JOBQL *CHAR 10 'QGPL'
DCL &CLS *CHAR 10 'QBATCH' /* 対話型 = QINTER */
DCL &CLSL *CHAR 10 'QGPL'
CRTSBSD &SBSDL/&SBSD POOLS((1 *BASE)) TEXT('TEST SBSD')
CRTJOBQ &JOBQL/&JOBQ1 TEXT('JOBQ1')
CRTJOBQ &JOBQL/&JOBQ2 TEXT('JOBQ2')
CRTJOBQ &JOBQL/&JOBQ3 TEXT('JOBQ3')
CRTJOBQ &JOBQL/&JOBQ4 TEXT('JOBQ4')
CRTJOBQ &JOBQL/&JOBQ5 TEXT('JOBQ5')
ADDRTGE &SBSDL/&SBSD SEQNBR(9999) CMPVAL(*ANY) +
PGM(QCMD) CLS(&CLSL/&CLS) MAXACT(1)
ADDJOBQE &SBSDL/&SBSD &JOBQL/&JOBQ1 SEQNBR(10)
ADDJOBQE &SBSDL/&SBSD &JOBQL/&JOBQ2 SEQNBR(20)
ADDJOBQE &SBSDL/&SBSD &JOBQL/&JOBQ3 SEQNBR(30)
ADDJOBQE &SBSDL/&SBSD &JOBQL/&JOBQ4 SEQNBR(40)
ADDJOBQE &SBSDL/&SBSD &JOBQL/&JOBQ5 SEQNBR(50)
RETURN ENDPGM
2001-1-1 |
|
You are at K's tips-n-kicks of AS/400
|
|
|||
|
|
