VOS3のJCLで外部パラメータは可能か

質問

OS：VOS3のJSS3 JCLを組んでいます。
パラメータでキーを与えるとデータを１件抽出するJCLがあります。
この処理は１件しか相手にしないのですが、実施したいキーが１０００
件以上あります。１０００個のJCLを作る、あるいは１０００回書き換えて実行するのも非現実的です。かといってプログラムを作り直す
余力もありません。
１個のJCLで、外部からパラメータを書き換えて実行を繰り替えす方法を
模索していますがマニュアルにはそういった使い方はありません。
UNIXのシェル等ですといろいろ工夫はできるのですが、JSS3では
難しいのでしょうか？。
ご存知の方、あるいはアイデアをお持ちの方、ご助力願います。

回答No.3

notnot · ベストアンサー

＞大変失礼ですが、もう少しお付き合い願います。
いいですよ。メインフレームの情報をネットで得るのは難しいですからね。もし、mixiをおやりなら「汎用機」というコミュニティーがあります。

//P PROC から // PEND までが普通の言語で言う関数定義・サブルーチン定義にあたります。// EXEC P が関数・サブルーチン呼び出し。その次の行が//SYSIN DD * の実引数に当たります。全部あわせてJCLです。
実行は、#SUB です。

＞もし具体的な手法をお持ちでしたら、こちらもご教示願えれば幸いです。
例えば、COBOL(じゃなくてもいいですが)でJCLをSYSOUTに書き出すプログラムを書いて、
// EXEC PGM=MAKEJCL
//STEPLIB DD DSN=MYLIB.LOAD,DISP=SHR
//SYSIN DD *
キー１
キー２
キー３
・・・
//SYSOUT DD SYSOUT=(*,INTRDR)

(,INTRDR)というのがSUBMIT機能に当たります。まあ、一旦ファイルに書いて、ASPENで開いて確認後に#SUBしたほうがいいかも。
プログラムとしては、
0.ファイルオープン
1.SYSINから1行読む EOF なら4へ
2.DISPLAYかWRITEで1ジョブ分のJCLをSYSOUTに書き出す。途中に1で読んだデータを挿入
3.1へもどる
4.ファイルクローズ

私は、unixだとawkやperlを使うようなケースではPL/Iを使ってました。

お礼

回答ありがとうございます！。
ご教示いただいたサブルーチン方式で行ってみます。
大変勉強になりました。ご助力、有難うございます。

＃＃ちなみに・・。
ＪＣＬを作るＪＣＬって発想は好きです（私もUnix、Windows系では
awkを活用しています）。ところが、本番環境では簡単にプログラムを
つくるわけにもいかず、公共のユーティリティを駆使する必要があります。
（INTRDRの使用も厳禁なんですよ・・これが使えれば、awkで作って
ftpで直接実行！なんて荒業も使えるんですけどねぇ。）

回答No.2

notnot

コマンドプロシジャーじゃなくて、カタログドプロシジャ、ないし、ジョブストリームプロシジャです。

//P PROC
// EXEC PGM=ppppp
//STEPLIB DD DSN=qqqqqq,DISP=SHR
//OTHERDD DD DSN=rrrrrr,DISP=SHR
//SYSPRINT DD SYSOUT=*
//PARAM DD DDNAME=SYSIN
// PEND
//S001 EXEC P
hogehoge
//S002 EXEC P
sogesoge
//S003 EXEC P
horehore

こんな感じでできませんか？1JOBの最大STEP数には制限があったはずなので、1JOB1000STEPは確かだめなんでジョブはいくつかに分割する必要があります。

＞JCLを起動するJCLっていうのがあればいいのかなぁ。
そういう手も良く使いますね。

補足

回答ありがとうございます。
しばらく、マニュアル等で調べてみましたが、まだ理解しきれていません。
マシン上でのテストはできていませんが、追加質問させてください。
１．上記の例では「//P PROC 」から「P END」までがJCL部分。
以降の
//S001 EXEC P
hogehoge
がJCL名Pを個別に実行する部分と理解しました。また、hogehogeは、DDNAME=SYSIN
でJCLに渡されると認識してよいのでしょうか？。
たしかに、これでも対応は可能と考えます。（ちなみに、当該テキストイメージは
JCL格納用のLIMEに、JCLと同じように保存されていれば、これを開いて
#SUB
で実行できると思って良いでしょうか？（#EXECじゃないですよね）

＞そういう手も良く使いますね。
もし具体的な手法をお持ちでしたら、こちらもご教示願えれば幸いです。

大変失礼ですが、もう少しお付き合い願います。

回答No.1

notnot

「パラメータでキーを与える」とは、EXECのPARMですか？
それなら、プロシジャーにして、
// EXEC P,PARM='ABC001'
// EXEC P,PARM='ABC002'
のようにすればいいと思います。プロシジャーの意味がわからなければ、その「データを1件抽出するJCL」をここに書いてみてください。

補足

早速の回答ありがとうございます。
パラメータはDD文で与えます。
イメージ的には、
//EXCEC ABC
//PARAM DD *
hogehogehogehoge
/*
で、hogehoge...の部分がキーを記述する部分になります。
＃＃該当のツールが複数行のキーを受け付けてくれればいいのですが
＃＃ここが、１行しか記述できないんですよ。

ちなみに、使用している環境では「コマンドプロシジャ」は確か
許していなかったと思います。
JCLを起動するJCLっていうのがあればいいのかなぁ。