Ａ−ＶＸのジョブ制御言語（JCL）

２　ジョブ制御言語のコマンド

Ａ−ＶＸのジョブ制御言語（JCL）のコマンドは、９種類（８つのコマンド文とコメント行）しかありません。

基本JCL文	名前	機能
/RUN	RUN文	ＬＭ名、ＪＳ名、ＰＭ名を指定することにより目的のジョブを起動します。
/>	ステップ終了文	ジョブステップの終わりやデータの終了を示すために使用します。
/:	流れ制御文	ジョブ制御変数やセンススイッチの状態など、条件によって処理を分岐させるために使用します。
//	ディスプレイ文	画面にメッセージ（コメント）を表示するために使用します。
/*	コメント文	プリンタにメッセージ（コメント）を出力するために使用します。
/PAUSE	一時停止文	画面にメッセージ（コメント）を表示して一時停止します。
/SET	制御変数設定文	ジョブ制御変数、ジョブの属性およびセンススイッチの状態を変更します。
/ASSIGN	アサイン文	ＭＳＤファイル名およびＭＳＤファイルの割り当てを変更します。
*	コメント	先頭１文字が”*”で始まる行はコメント行とし、処理を行いません。

コマンドは以下のような形式になっています。

[ラベル]/コマンド [パラメータリスト];

・スラッシュ記号（/）及びセミコロン（;）は必ず記述します。
・コマンドの後には１つのブランクを記述します。
・ラベルは６文字以内の英数字。
・１行に記述できるJCL文は75桁です。
・日本語では記述できません。（パラメータリストの中は「コメント」は日本語可能）

２．１　ＲＵＮ文（/RUN）

ロードモジュール（ＬＭ）名、ジョブストリーム（ＪＳ）名、パラメータメンバ（ＰＭ）名を指定することにより、目的のＬＭ、ＪＳ、ＰＭを実行する働きがあります。ジョブステップの開始を示す文でもあります。

書式

[ラベル]/RUN name [,MOD={LAN/ITOS}] [,(P0,P1,P2,P3,P4,P5,P6,P7,P8,P9)] [,RESTART] [,PRI=nn] [,SIZ=nn] [,SIU=CRD[nnn]] [,FIL=ファイル名] [,DEV=装置名] [,TYP={LM/JS/PM}] [,ATTACH={MANUAL/AUTO}] [,{SSWn={ON/OFF}/ALL[SSW]=a1a2a3a4a5a6a7a8}] [,SKIP] [,EXC=nnnn] [,DEBUG];

パラメータは必要なもののみ書けばいいです。
例えば、ＭＳＤ００１のＵＳＥＲＬＭＬにあるＰＲＧ０１という名前のＬＭを実行する時は

/RUN PRG01,DEV=MSD001,FIL=USERLML;

となります。
他のパラメータを使用したい場合はこちらを参照。または「システム管理説明書」などを見てください。

/RUNの次にはnameを書かなければなりませんが、それ以降のパラメータの順番は決まっていません。以下のように、DEVとFILの順番を逆に書くこともできます。

/RUN PRG01,FIL=USERLML,DEV=MSD001;

ＲＵＮ文を書いた場合、セットで必ずステップ終了文も書きます。（/>）

２．２　ステップ終了文（/>）

ジョブステップの終わりを示す働きがあります。
この文にはラベルを付けることができません。

書式

/> ;

下図のようにステップ終了文はジョブステップの終了を示します。

ステップ終了文を使用した例です。
ＲＵＮ文とステップ終了文の組み合わせて、３つのジョブステップで構成されているジョブです。

/RUN PRG01; 100_20_ /> ; /RUN #LBM; MDE=END_ /> ; /RUN #MENUM; ACT=END_ /> ; /RUN #LBM; MDE=END_ /> ;

ＲＵＮ文とステップ終了文は必ずセットになります。またジョブ制御のジョブステップのしるしにも使います。したがって１つのジョブストリームでＲＵＮ文とステップ終了文は同じ数以上あることになります。

ＲＵＮ文と対応しないステップ終了文の例
一時停止文とステップ終了文の組み合わせて１ジョブステップ、ＲＵＮ文とステップ終了文の組み合わせで２ジョブステップの合計３ジョブステップで構成されているジョブです。
一時停止文（/PAUSE）でプログラム放棄コマンドを行った際に、PRG1のジョブを実行せずにジョブを終了させます。

// ジョブを実行しますか。 ; // 実行しない場合は業務放棄かプログラム放棄を ; // 行ってください。 ; /PAUSE ; /> ; /: ABORT JUMP=ENDJOB; /RUN PRG1; /> ; /RUN PRG2; /> ;

上のジョブとよく似ていますが、少し違うパターンです。ステップ終了文の書き方が違うとジョブステップの構成が変わることに注目してください。
下のように一時停止文（/PAUSE）の下にステップ終了文がない場合、一時停止文からPRG1のＲＵＮ文の次のステップ終了文までが１ジョブステップ、PRG2のＲＵＮ文とステップ終了文で１ジョブステップの合計２ジョブステップのジョブとなります。
プログラム放棄コマンドを実行するとPRG2から実行されます。

// ジョブを実行しますか。 ; // 実行しない場合は業務放棄を行ってください。 ; // プログラム放棄を行うとPRG2から実行します。 ; /PAUSE ; /: ABORT JUMP=ENDJOB; /RUN PRG1; /> ; /RUN PRG2; /> ;

もしかしたら何か条件があるのかもしれませんが、ステップ終了文のみ、特別に最後の「;」を省略できることがあるようです。

/>

２．３　流れ制御文（/:）

ジョブ制御変数やセンススイッチの状態、システム日付、直前のジョブステップの正常終了／異常終了の状態によって、指定された文までスキップする働きがあります。

書式
形式１：ジョブ制御変数による流れ制御

[ラベル]/: JRCODE [GE/LT/EQ] ccc [JUMP=ENDJOB/JUMP=ラベル/BJUMP=ラベル];

形式２：ジョブステップ実行結果による流れ制御

[ラベル]/: ABORT/NORMAL [JUMP=ENDJOB/JUMP=ラベル/BJUMP=ラベル];

形式３：センススイッチによる流れ制御

[ラベル]/: SSWn=ON/SSWn=OFF/ALL [SSW]=a1a2a3a4a5a6a7a8 [JUMP=ENDJOB/JUMP=ラベル/BJUMP=ラベル];

形式４：ジョブ実行日付による流れ制御

[ラベル]/: YY/MM/DD [GE/LT/EQ] cc [JUMP=ENDJOB/JUMP=ラベル/BJUMP=ラベル];

各パラメータの説明

JRCODE	ジョブ制御変数（JRCODE）をテストすることを示します。
ccc	ジョブ制御変数（JRCODE）と比較する値です。０から２５５の値の範囲で指定します。
YY MM DD	システム日付をテストすることを示します。 ここではYYは年、MMは月、DDは日を示します。和暦か西暦かはシステム生成時に選択します。
cc	システム日付と比較する値です。
GE	ジョブ制御変数またはシステム日付が、比較値より大きいか等しいときはジャンプします。＜規定値＞
LT	ジョブ制御変数またはシステム日付が、比較値より小さいときにジャンプします。
EQ	ジョブ制御変数またはシステム日付が、比較値に等しいときにジャンプします。
ABORT	直前のステップが異常終了しているときジャンプします。
NORMAL	直前のステップが正常終了しているときジャンプします
SSWn	センススイッチｎがＯＮまたはＯＦＦのときジャンプします。
ALL	センススイッチ全体がa1a2a3a4a5a6a7a8で示される状態のときジャンプします。
[SSW]	anの値は次の通りです。 an=1：センススイッチnはＯＮです。 an=0：センススイッチnはＯＦＦです。 an=X：センススイッチnは比較対象としません。
JUMP	条件が満足した時の前方向のジャンプ先を指定します。
BJUMP	条件が満足した時の後方向のジャンプ先を指定します。
ENDJOB	ジョブストリーム（JS）の終了として処理を行うことを示します。＜規定値＞

[　]の中は省略できます。省略した場合は、JUMP=ENDJOBと書いた場合と同じになります。

例えば、

/: ABORT ;

は、

/: ABORT JUMP=ENDJOB;

と同じです。

形式１の例。
PRG01、PRG02は正常終了した場合は、JRCODEに0の値を入れて終了するような仕組みになっている。PRG01終了後にJRCODEの値をチェックしてメッセージを表示する。

/RUN PRG01,FIL=TESTLML,DEV=MSD000; /> ; /: JRCODE GE 1 JUMP=ERMSG; /RUN PRG02,FIL=TESTLML,DEV=MSD000; /> ; /: JRCODE EQ 0 JUMP=ENDJOB; ERMSG/PAUSE ERROR;

形式１の例その２＆形式２の例。
PRG01がアボートで終了したらPRG02を実行してジョブ終了。PRG01が正常終了ならばPRG03を実行します。
６行目について補足すると、JRCODEが0以上かチェックし、0以上ならジョブ終了しています。JRCODEは0から255の範囲の値を取ることができるので、この文は無条件ジャンプとなり、必ずジョブ終了となります。

/RUN PRG01,FIL=TESTLML,DEV=MSD000; /> ; /: NORMAL JUMP=LLL; /RUN PRG02; /> ; /: JRCODE GE 0 JUMP=ENDJOB; LLL/RUN PRG03; /> ;

形式２の例のその２。
PRG01というプログラムが正常終了した場合は、ラベルLLLにジャンプします。ジャンプする位置より後にジャンプするのでBJUMPを使用しています。私としては、昔痛い思いをしたので、BJUMPはあまり使用したくないです。

LLL/RUN PRG01,FIL=TESTLML,DEV=MSD000; _1_1000_ /> ; /: NORMAL BJUMP=LLL;

形式２の例のその３。
PRG01やPRG02がアボート終了した場合、次のジョブステップは実行せずジョブを終了させます。

/SET SKIP; /RUN PRG01,FIL=USERJSL2; /> ; /: ABORT JUMP=ENDJOB; /RUN PRG02,FIL=USERJSL2; /> ; /: ABORT JUMP=ENDJOB; /RUN PRG03,FIL=USERJSL2; /> ;

形式３の例その１。
PRG01実行後、センススイッチの１番がＯＦＦだったらPRG02を実行せずにPRG03だけ実行します。ＯＮならPRG02を実行した後にPRG03を実行します。

/SET SKIP; /RUN PRG01,FIL=USERJSL2; /> ; /: SSW1=OFF JUMP=AAA; /RUN PRG02,FIL=USERJSL2; /> ; AAA/RUN PRG03; /> ;

形式３の例その２。
PRG01実行後、センススイッチの１番がＯＮ、２番がＯＮ、３番がＯＦＦ、４番がＯＦＦの時、PRG02は実行せずにPRG03だけ実行します。センススイッチの５番以降はＯＮ、ＯＦＦのどちらでもＪＳの動きには影響しません。

/SET SKIP; /RUN PRG01,FIL=USERJSL2; /> ; /: ALL=1100XXXX JUMP=AAA; /RUN PRG02,FIL=USERJSL2; /> ; AAA/RUN PRG03; /> ;

流れ制御文でBJUMP機能を使用する場合に、次のJCL文のみでジョブを記述すると、システムでデッドロックになります。

• 流れ制御文（/:）
• ディスプレイ文（//）
• コメント文（/*）
• 一時停止文（/PAUSE）
• 制御変数設定文（/SET）

システムが無限ループに陥り落ちるので厳禁な記述の例
流れ制御文とディスプレイ文と一時停止文のみで構成されており、上の注意事項の組み合わせに該当。
これを実行するとシステムを落とさないといけなくなるので、絶対に実行してはだめです。

L1// 無限ループでシステム落ちますの例 ; /PAUSE 絶対にこのように書いたらだめです ; /: NORMAL BJUMP=L1;

２．４　ディスプレイ文（//）

ディスプレイ情報をステーション上（ディスプレイ画面上）に表示します。

画面が見えている状態（表画面）か、見えていない状態（裏画面）かで動きが変わります。
表画面の場合は画面に表示した後、停止したりはせず、すぐに次の行のジョブ制御文を実行します。一方裏画面の場合は、（文字が表示できないので）ディスプレイ文の文字が表示されるまで待ちます。そして表画面になると画面に文字が表示されて、次の行のジョブ制御文を実行します。なので、ずっと表画面で動くことが前提のバッチの場合はよいのですが、裏画面で動く可能性があるバッチの場合は使用に気をつける必要があります。

すぐに次の行のジョブ制御文を実行するので、例えば次のジョブ制御文でアプリケーションを起動する（アプリケーション内で画面をクリアしたり上書きしたりする）と消えてしまうこともあります。

１行目から２４行の範囲で表示し、２４行を超えるとスクロールアップして表示します。ディスプレイ情報の最大長は英数字で80文字です。（日本語だと半分の40文字。）

書式

[ラベル]// [ディスプレイ情報];

ディスプレイ文の例

// ＊＊＊＊＊＊＊＊＊＊＊＊＊; // ＊プログラムを実行します＊; // ＊＊＊＊＊＊＊＊＊＊＊＊＊; // 中止する場合は業務放棄を行ってください。; /PAUSE プログラムを実行する場合は再開キーを押してください。; /RUN PRG01,FIL=USERLML,DEV=MSD002; /> ;

上記のJSの実行結果（５行目のPAUSE文で一時停止中）

ディスプレイ文を使用すると、次のジョブステップのための最初のディスプレイ文の検出時、前のジョブステップの画面がクリアされ１行目からディスプレイ文の内容が表示されます。したがって前のジョブステップの画面を後ろのジョブステップに引き継ぐことはできません。
ディスプレイ文、一時停止文を使用した後、次に起動されるプログラムのLM属性が前に起動されたプログラムのLM属性と異なる場合（ANK→日本語、日本語→ANK）は画面クリア処理を行うため、ディスプレイ情報は消去されます。

２．５　コメント文（/*）

コメント情報をステーション対応プリンタに出力します。ディスプレイ文が画面に表示するのに対して、コメント文はプリンタに出力するという違いがあるだけで、規則はディスプレイ文と同じ。ただし表画面、裏画面のいずれであっても（プリンタの異常がなければ）待ち合わせは発生しません。

ここで注意することは、どのプリンタに出力するか指定することができないということです。
ＪＳを実行する度にプリンタに出力するとは思えないので、業務ではあまり使用しないかもしれません。ＪＳのデバッグ中に、ＪＳ中のあちこちにコメント文を書き込んで、どこを通ったかのチェックをするために使用できるかもしれません。（デバッグとはいえ紙が無駄なので、やはり次の一時停止文を使用した方が良いのですが。）

コメント文でワークステーション対応プリンタがノットレディの場合はエラーメッセージが表示されます。その場合は、リセットキーを押すとプリンタの印字をスキップして、次のステップの処理を行います。

コメント文とは別にコメント行というものがあるので、間違えないようにしてください。

書式

[ラベル]/* [コメント情報];

コメント文の例

/* PRG01を起動します; /RUN PRG01,FIL=USERJSL2; /> ;

２．６　一時停止文（/PAUSE）

ディスプレイ情報をステーション上（ディスプレイ画面上）に表示した後、一時停止状態になります。ジョブを先に進めるには、再開コマンドを実行します。再開コマンドを実行しない限り、永久に停止したままです。

一時停止文でジョブが停止している状態で、受け付けられるのは以下のコマンドとなります。

• 画面接続コマンド
• 再開コマンド
• プログラム放棄コマンド
• 業務放棄コマンド
• 拡張システムコマンド
• 日付／時刻の表示／変更コマンド
• メッセージ送信コマンド
• メッセージ受信コマンド

書式

[ラベル]/PAUSE [ディスプレイ情報] ;

ＰＡＵＳＥ文の例

/RUN PRG01,FIL=USERJSL2; /> ; /PAUSE PRG01の実行を終了しました;

上記のJS実行結果

一時停止文のステップでプログラム放棄コマンドが実行されると、次のステップ終了文まで読み飛ばされます。
下のように記述した場合、プログラム放棄コマンドを実行するとPRG01の直後のステップ終了文（/>）まで読み飛ばされるので、PRG2から実行されます。

// ジョブを実行しますか。 ; // 実行しない場合は業務放棄を行ってください。 ; // プログラム放棄を行うとPRG2から実行します。 ; /PAUSE ; /: ABORT JUMP=ENDJOB; /RUN PRG1; /> ; /RUN PRG2; /> ;

以下の例でのように一時停止文（/PAUSE）の下にステップ終了文（/>）があると、一時停止文でプログラム放棄コマンドを行うとPRG1のジョブを実行せずにジョブを終了させます。

// ジョブを実行しますか。 ; // 実行しない場合は業務放棄かプログラム放棄を ; // 行ってください。 ; /PAUSE ; /> ; /: ABORT JUMP=ENDJOB; /RUN PRG1; /> ; /RUN PRG2; /> ;

２．７　制御変数設定文（/SET）

ジョブ制御変数に値を設定やセンススイッチの状態変更、RUNコマンドにより起動されたジョブの画面接続属性または置換パラメータを指定できます。また、SKIP設定後に実行されるジョブステップが異常終了すると、それ以降のジョブステップはＪＳの最後まで読み飛ばされます。

書式
形式１：ジョブ制御変数の変更

[ラベル]/SET JRCODE=ccc;

形式２：センススイッチの変更

[ラベル]/SET {SSWn={ON/OFF}/ALL[SSW]=a1a2a3a4a5a6a7a8};

形式３：異常終了時のＪＳ終了指定

[ラベル]/SET SKIP;

形式４：？

[ラベル]/SET ATTACH={AUTO/MANUAL};

形式５：置換パラメータの設定

[ラベル]/SET &n=xx....x;

JRCODE	ジョブ制御変数（JRCODE）に値をセットすることを示します。
ccc	ジョブ制御変数（JRCODE）にセットする値を指定します。指定できる値は０から２５５の範囲です。
SSWn	センススイッチnの状態をＯＮあるいはＯＦＦにします。
[SSW]	anの値は次の通りです。 an=1：センススイッチnをＯＮにします。 an=0：センススイッチnをＯＦＦにします。 an=X：センススイッチnを元の状態に保ちます。
SKIP	SKIP設定後に実行されるジョブステップが異常終了すると、それ以降のジョブステップはJSの最後まで全て読み飛ばされます。
ATTACH	RUNコマンドにより起動されたジョブの画面接続属性を指定します。 MANUAL・・・ １度画面から切り離されると、画面に接続されて実行中のジョブが終了しても、自動的に画面に接続されません。画面に接続するには、操作者が画面接続コマンドを入力する必要があります。 AUTO・・・ 当ジョブが画面から切り離されて実行中に、画面に接続されて実行中のジョブが自動的に画面に接続されます。
&n	n番目の置換パラメータに値をセットすることを示します。nの範囲は０から９です。
xx.....x	置換パラメータにセットする値を最大１７桁で指定します。

形式１の例。
４行目に制御変数設定文を記述しています。ここではJRCODEに100を入れています。ちなみにＪＳ開始時点でJRCODEは０に初期化されます。

/RUN PRG01,FIL=USERLML2; /> ; /: JRCODE EQ 0 JUMP=AAA; /SET JRCODE=100; /RUN PRG02,FIL=USERLML2; /> ; /: JRCODE EQ 255 JUMP=AAA; /RUN PRG03,FIL=USERLML2; /> ; AAA/RUN PRG04,FIL=USERLML; /> ;

形式２の例。
１行目はセンススイッチ１番をＯＮにしています。４行目はセンススイッチ４番をＯＦＦにしています。７行目の/SETはセンススイッチ１番をＯＦＦ、２番をＯＮ、３番をＯＦＦ、４番をＯＮ、７番をＯＦＦ、８番をＯＮにしています。５番と６番は状態を変更しません。

/SET SSW1=ON; /RUN PRG01,FIL=USERLML2; /> ; /SET SSW2=OFF; /RUN PRG02,FIL=USERLML2; /> ; /SET ALL=0101xx01; /RUN PRG03,FIL=USERLML2; /> ;

形式３の例。
１行目に制御変数設定文を記述しています。PRG01、PRG02、PRG03で異常終了した場合に、以降の処理は行わずにＪＳは終了します。例えばPRG01が異常終了した場合、PRG02とPRG03は実行されません。ジョブステップ毎に「/: ABORT JUMP=ENDJOB;」を付けるのと同じ動きをします。

/SET SKIP; /RUN PRG01,FIL=USERJSL2; /> ; /RUN PRG02,FIL=USERJSL2; /> ; /RUN PRG03,FIL=USERJSL2; /> ;

２．８　アサイン文（/ASSIGN）

プログラム上で指定したファイル名や装置アドレスを変更したい場合に使用します。

書式
形式１：特定のファイルだけ変更

[ラベル]/ASSIGN OEFN=ff...f[,OEDEV=MSD[nnn]][,DEV=MSD[nnn]][,VOL=vvvv],EFN=ff...f;

形式２：形式１で変更した状態を解除

[ラベル]/ASSIGN OEFN=ff...f[,ODEV=MSD[nnn]],RESOURCE=RELEASE;

形式３：特定の（磁気ディスク）装置だけ変更

[ラベル]/ASSIGN ODEV=MSD[nnn],DEV=MSD[nnn][,VOL=vvvvv];

形式４：形式３で変更した状態を解除

[ラベル]/ASSIGN ODEV=MSD[nnn],RESOURCE=RELEASE;

メインフレーム系のＯＳではアサイン文は必ず書かなければならないようですが、Ａ−ＶＸのアサイン文は必須ではありません。必要無ければ書く必要はありません。どうも「外部ファイル名−内部ファイル名」の関係が、あまり明確ではないようで、アサイン文が無くても用は足ります。アサイン文を１つ１つ丁寧に書いている人はメインフレーム系ＯＳを知っているＳＥ、アサイン文を書かない人は、それ以外の人ということがよくわかりますね・・・。私は書かない人です。

どのような場合に使用するかというと、
例えばファイルにアクセスするＣＯＢＯＬのプログラムがあり、ＣＯＢＯＬのソース内に装置アドレスやファイル名が直に書き込まれているとします。そのＣＯＢＯＬプログラムは、「ＭＳＤ００１」に有る「Ａ」というファイル名のファイルにアクセスしています。
ところが、「Ａ」ファイルがオーバフローしそうになってしまったので、１個磁気ディスクを増やして「ＭＳＤ００２」を作り、そこにもっと大きなサイズの「Ａ」ファイルを作ることにしました。ところが、ＣＯＢＯＬソース内にＭＳＤ００１と直書きしているので、普通ならばソース内のその部分を全て「ＭＳＤ００１」から「ＭＳＤ００２」と書き直す必要があります。いくつのソースがあるのかわかりませんが、全てのソースを書き直して、再コンパイル・リンクしなければなりません。これは結構大変です。
そこでアサイン文が登場します。/RUNでＣＯＢＯＬプログラムを起動する前に/ASSIGN文を書き加えてあげればいい訳です。

形式３と形式４の例。
PRG01の中でMSD001はMSD002と変換されて実行されます。

/ASSIGN ODEV=MSD001,DEV=MSD002; /RUN PRG01; /> ; /ASSIGN ODEV=MSD001,RESOURCE=RELEASE;

アサイン文については「システム管理説明書」に詳細な説明が書いてあるので、ここはこのくらいの説明にしておきます。（システム管理説明書の後ろのほうにある付録のページにも注意事項が書いてあるので読む必要があります。）

２．９　コメント（*）

ＪＳＬ中にコメントを書きます。行の先頭に「*」を記述するとこの行は実行されません。

書式

* [コメント]

例。

************************* * TEST JSL NAME:JS01 * ************************* * PRG01 /RUN PRG01; /> ; * PRG02 /RUN PRG02; /> ;