汎用コンピュータＯＳの前提知識
一般にデータの集まりをファイルというが、ＭＶＳでは、それが物理的に格納されているものをデータセットといい、プログラムで記述するときは論理的なファイルをファイルという。
例えば、ディレクトリ「KEIRI」に存在するデータセット「D201005」をアクセスする場合、プログラムでその名称を指示したのでは、別のデータセット「D201005」をアクセスするときには、プログラムを修正しなければならない。それを回避するために、プログラムでは論理的な名称（ファイル名）、例えば「OLDFILE」としておき、実行時にＪＣＬで、OUTFILE と KEIRI.D201005 を関係づけるのである。
このような方法を採用することにより、データセットが磁気ディスクにあるのか磁気テープにあるのか、順編成ファイルなのか索引付ファイルなのかなどを、プログラマは知る必要がなくなるし、プログラムに影響を与えずに、運用の都合でデータセットの格納場所を変更することができる。
汎用コンピュータでは、データのもち方が標準化されていた。データが単純に入っていて、先頭から順にアクセスする順編成ファイル、データに格納場所のインデクスがついていて、直接にアクセスできる乱編成ファイル、その中間的な索引付順編成ファイルなどがあり、そして、そのアクセス方法をＯＳが管理していたのである（オープン系では、EXCELで作成したファイルを WORD で読むのは困難だが、汎用コンピュータでは、同じＯＳであれば言語間でのファイル互換は容易だった）。
区分編成ファイルとは、一つのファイルのなかに、いくつものファイルが入っているような編成法である。その個々のファイルをメンバーという。一般にプログラムは区分編成ファイルのメンバとするのが一般的だった。特に本番用の実行形式プログラムは重要であり、LOADLIB というような名称を付けて管理されていた。
ＪＣＬ
先月までのデータを累積したファイルに、今月のデータをカードから与えて更新し、今月までの累積ファイルを作り、それからレポートを作成する処理を例とする（これは説明のためのものであり、現実的には適切とはいえない）。
左上は「処理の流れ」を示す。ＪＣＬは黄色の部分を右のように記述する。これは紙カードにパンチされ、左下のような構成でコンピュータに入力される。
|
//GETSUJI JOB KEIRI,CLASS=J,MSGCLASS=J,MSGLEVEL(1,0) ［Ａ］ |
- ［Ａ］：この一連のジョブ名が「GETSUJI」、アカウント（会計情報）が「KEIRI」であることを示す。以降のパラメタは、ジョブの優先順位やメッセージの表示レベルなどの指定。時間打切りなど多様な指定ができる。
- ［Ｂ］と［Ｃ］：プログラムは、区分ファイル「HONBAN.LOADLIB」のメンバ「UPDATE」である。
- 「Ｄ」：プログラムで記述した論理的なファイル「OLDFILE」と、物理的なデータセット「KEIRI.D201005」を関連付けている。このデータセットの排他条件はSHR（共有可能）である。
- ［Ｅ」：ファイル「NEWFILE」と「KEIRI.D201006」の関連付け。このデータセットは新規作成であり、作成後はＯＳのデータ管理システムにカタログ（登録）する。その後のパラメタは、媒体指定、容量指定、編成指定など。
- ［Ｆ］と［Ｇ］：この間がカードからの入力データであることを示す。
- ［Ｈ］：COND=(4,LE,STEP01) とは、STEP01の結果（リターンコード）が４（軽度のエラー、警告レベル）以下のときだけ実行し、そうでないときは実行しないことを示す。リターンコードはＯＳが自動的につけるが、プログラムでも設定することができる。この機能を組み合わせることにより、後続処理を切り替えることができる。
- ［Ｉ］：このジョブのＪＣＬの最後であることを示す。
参照：ＩＢＭ「MVS JCL 解説書」
http://publibfp.dhe.ibm.com/epubs/pdf/c8865789.pdf
ＣＬＩＳＴ
ＣＬＩＳＴは、ＴＳＳ環境におけるＪＣＬだといえる。コンピュータへの指示コマンドをあらかじめＣＬＩＳＴファイルに記述しておき実行させるので、現在のパソコンでのマクロのようなものでもある。ＴＳＳ環境でユーザが定型的なアプリケーションを実行するときに、広く活用されていた。
例１：単純なプログラムの実行
ＣＯＢＯＬなどで作成した既存のプログラムを実行する例。このとき、対象となるデータセットの指定、プログラムへ単純なパラメータを渡すことができる。
あらかじめ、次のＣＬＩＳＴが作成されており、それが呼び出されたとする。
HAJIME: WHITENR 対象年月は（YYYYMM、打切りなら0）？ ［Ａ］
READ &YM ［Ｂ］
IF &YM=0 THEN EXIT ［Ｃ］
ALLOCATE FILE(INFILE) DATASET('KEIRI.D&YM') SHR ［Ｄ］
ALLOCATE FILE(SYSIN) DUMMY REUSE
ALLOCATE FILE(SYSOUT) DUMMY REUSE
WHITENR 選択する府県名は（例：東京）？
READ &FUKEN
CALL 'USERLIB(URIAGE)' '&FUKEN' ［Ｅ］
GOTO HAJIME ［Ｆ］
- ［Ａ］と［Ｂ］：WRITE あるいは WHITENR は画面への表示、READ はキーボードからの入力。
対象年月は（YYYYMM、打切りなら0）？ 201005
ならば、変数 &YM＝201005 となる。 - ［Ｃ］：IF THEN ELSE や DO WHILE などの制御命令が使える。 ここでは、０を入力すると打切り（EXIT）になり、そうでなければ次の行へ行く
- ［Ｄ］：ＣＬＩＳＴでは文字列の結合は簡単。「KEIRI.D&YM」は「KEIRI.D2001005」である。
ALLOCATE は、ＪＣＬのＤＤに相当。ファイル「INFILE」とデータセット「KEIRI.D2001005」が関連づけられる。 - ［Ｅ］：CALL はプログラムを呼び出して実行させる命令。ここでは区分編成ファイル「USERLIB」のメンバ「URIAGE」がプログラムであり、このプログラムでは、府県名がパラメタとして与えられることになっている。
- ［Ｆ］と［Ａ］：ＣＬＩＳＴは古い言語なので、GOTO命令がある。［Ａ］のラベル「HAJIME」に戻る。
例２：簡易言語としてのＣＬＩＳＴ
ＣＬＩＳＴは、計算命令、制御命令などをもっているので、ＣＬＩＳＴだけで簡単な処理を行うことができる。次のＣＬＩＳＴは、関数をユーザが与えて、計算結果を表示するものである。
WRITENR 変数を&Xとする計算式（例：2*(&X+1)-3）？
READ &SHIKI
READX:WHITENR Ｘの値？
READ &X
SET Y=&SHIKI
WHITE &Y
GOTO READX
式を「2*(&X+1)-3」とし、Ｘの値を５とすれば、「SET Y=&SHIKI」は「SET Y=2*(&X+1)-3」であり、&X=5であるから、Y=2*(5+1)-3＝9 となり、「9」が出力される。
このように、ＣＬＩＳＴでは実行中に命令の一部を変更できるのが特徴である。
例３：ＣＬＩＳＴでファイルを入出力する
入力ファイル「INFILE」のレコードは、次の項目を含んでいる。
年月：１桁目から６桁目まで
商品コード：７桁目から１３桁目まで
府県コード：１４桁目から１５桁目まで
このうち１つの項目［KOUMOKU」を指定して、その値［ATAI」を指定する。
「INFILE」のその項目の値「DATAVAL」が「ATAI」と一致するレコードを選択して、出力ファイル「OUTFILE」を作成する。例えば、
選択条件の項目（１：年月 ２：商品 ３：府県）？ 1
選択科目の値？ 201006
とすれば、年月（７桁目から１３桁目まで）が 201006 のレコードだけが選択される。
WHITENR 選択条件の項目（１：年月 ２：商品 ３：府県）？
READ &KOUMOKU
WHITENR 選択科目の値？
READ &ATAI
ALLOCATE FILE(INFILE) DATASET(KEIRI.D2001006) INPUT
ALLOCATE FILE(OUTFILE) DATASET(USER.WORKFILE) OUTPUT
OPENFILE INFILE INPUT
OPENFILE OUTFILE OUTPUT
GETFILE INFILE
SET RTNCODE = &LASTCC /* データがなくなると LASTCC=400 になる。*/
DO WHILE RTNCODE < 400
IF KOUMOKU=1 SET DATAVAL=&SUBSTR(1:6,&INFILE)
IF KOUMOKU=2 SET DATAVAL=&SUBSTR(7:13,&INFILE)
IF KOUMOKU=3 SET DATAVAL=&SUBSTR(14:15,&INFILE)
IF ATAI = DATAVAL +
DO
SET OUTFILE = &INFILE
PUT OUTFILE
END
GETFILE INFILE
SET RTNCODE = &LASTCC
END
CLOSEFILE INFILE
CLOSEFILE OUTFILE
このような機能を適切に組み合わせれば「テンプレートとなるプログラムを読み込み、対話的に修正して新規のプログラムを作成して、コンパイルして実行する」ＣＬＩＳＴを作成することは容易である。そのＣＬＩＳＴをユーザに公開すれば、ユーザは多様な情報を入手できるようになる。
このように、汎用コンピュータでもユーザが使いやすい環境を実現することができるし、実際に活用していたのである。
参照：ＩＢＭ［TSO/E CLIST」（CLISTの解説書）
http://publibfp.dhe.ibm.com/epubs/pdf/a8886275.pdf