09.CLIST入門⑨

ISPFの呼び出し

これまでの連載で、CLISTとはどういうものか、どんな機能があるのか、使うと何ができるのか、といったことのアウトラインを紹介してきました。しかし、自動化されようが、繰り返しの作業が楽になろうが、いかんせんコマンド・ベースの処理で、TSO端末での作業の大半をISPFでこなしている現在では、何となく物足りない、機能やしくみはわかったがあまり使いようがないな、と感じる人も多いと思います。
そこでこのシリーズの最終回である今回は、CLISTからISPFを呼び出す方法を解説します。ISPFを呼び出すことで、コマンド・ベースの処理とパネルを使う対話処理を組み合わせたり、対話型の反復処理を行ったり、応用範囲がさらに拡がります。

ISPFのダイアログおよびPDFの機能は、CLIST、REXX EXECあるいはアプリケーションプログラムから呼び出すことができます。コマンド形式とリンク形式の2種類の呼び出し方法があり、CLISTから呼び出す場合はコマンド形式を使用します。ISPFを呼び出すためのコマンドが「ISPEXEC」です。他のTSOコマンド同様にISPEXECコマンドをCLISTに記述するだけで、簡単にISPFおよびPDFの機能を実行させることができます。

ISPEXECによるISPFダイアログ・サービスの実行

ISPEXECのコマンド名に続いて、実行したいサービス名、必要なパラメーターの順に記述します。呼び出したサービスが終了（例えばPF3でパネルの処理を終了するなど）するとISPEXECコマンドのステートメントは終了し、次のステートメントの実行に移ります。
このサンプルは、PDFのエディターパネルを表示させるものです。表示されたパネルにDSNなどを入力すれば、データセットやメンバーの編集が行えます。
このようにPDFの機能パネルを単純に呼び出して実行させる場合は、ISPFのSELECTサービスを使い、PDFの機能プログラム名を指定して実行します。SELECTサービスにどのようなパラメーターを指定すればいいかは、PDFのパネル・ソースを見れば簡単にわかります。

単にエディターを呼び出すだけではあまり意味はないので、CLISTからの呼び出しの場合は、編集対象のDSNやメンバー名を与えて、エディターのDSN入力パネルを迂回するような使い方が一般的です。このような場合は、エディター・プログラムを直接呼ぶのではなく、ISPFのダイアログ・サービスを実行します。

エディターとブラウザーならば、ISREPDFコマンドによって直接に呼び出すこともできます。BROWSEオプションを付ければエディターではなく、ブラウザーでの表示になります。

目的の機能に対応したSELECTパラメーターの見つけ方

ISPF/PDFのプライマリー・オプション・パネルのソース・メンバーを見ます。パネル名やパネル・ライブラリー名がわからない場合、次のような手順で求めることができます。ISPF/PDFのプライマリー・オプション・パネルを表示します。コマンド欄に「PANELID」と入力すれば、パネルの左上部にパネル名が表示されます。「PANELID OFF」でパネル名表示は消えます。パネル・ライブラリーは、ISPFを実行するCLISTを参照します。

CLIST内で、ISPPLIBのDD名で発行しているALLOCコマンドを見つけます。そこに定義されたデータセットにパネル名と同じメンバーがあるか、DAパラメーター内での定義順に探します。

パネル・ソースの下の方に上のサンプルのような定義箇所があるはずです。クォーテーション記号で囲まれた部分がSELECTサービスで指定するパラメーターとなります。オプション2はエディターで、PGM呼び出しになっているのでこのまま利用できます。オプション3.nの場合、さらに別のパネルが入るので、次にそのパネルを見ます。オプション3.nならパネル名はISRUTILとなります。ISRUTILパネル・ソース内でSELECTサービスのパラメーターを見つけます。

DSLISTの実行

DSLISTユーティリティーは、LMDDISPサービスによって実行できます。最初にLMDINITサービスでDSLEVELもしくはVOLUME名を指定して初期化しておきます。その後にLMDDISPサービスを呼び出します。DSLEVELやVOLUME名を間違えるてもエラー・パネルなどは表示されず見た目は何も変化なしで終わってしまいます。そのような場合は、WRITEステートメントなどで&LASTCC変数の値を表示させれば正常終了なのかエラーなのか判別できるようになります。

PDSデータセット内のJCLメンバーをサブミットして、そのジョブの実行結果をISPFブラウザーにて表示する

以前にも紹介したものですが、PDSデータセット内のJCLメンバーをサブミットして、そのジョブの実行結果をISPFブラウザーにて表示するサンプルです。ジョブの完了は、STコマンドを発行してその返答メッセージで判定します。「ON OUTPUT QUEUE」となるまでループしてコマンドを発行しています。前回のCLIST入門（8）のコマンド・メッセージのトラップでも解説した&SYSOUTTRAPと&SYSOUTLINEを使っていますが、今回OUTPUTコマンドは、ジョブのSYSOUTをPSデータセットに書き出すために使い、SYSOUTの内容はISPFのBROWSEサービスによって表示します。OUTPUTコマンドでの表示では先に進むだけですが、ISPFブラウザーでなら後方へスクロールしたり、検索なども可能になり、ずっと実用的になります。

ISPFのサービスを組み合わせることで、コマンド・ベースだけではできなかった処理を組み込むことも可能になります。マニュアルなどを参考にしていろいろなサービスを試してみて下さい。ISPEXECで呼び出せるサービスの種類とパラメーターなどの詳細は、「z/OS 対話式システム生産性向上機能（ISPF）サービス・ガイド」に詳細が解説されています。