このページはＣＯＢＯＬを知っている人あるいは、ＲＰＧプログラマーを対象として、
ＡＳ／４００でのＣＯＢＯＬを紹介しようとするものです。
ＣＯＢＯＬを初歩から解説するものではありません。
ここで紹介するＣＯＢＯＬはＩＬＥ−ＣＯＢＯＬです。

全般

ＡＳ／４００のＣＯＢＯＬは一般のＣＯＢＯＬとほとんど同じ仕様です。大きく異なるのは、
外部記述を利用する部分だけといってよいでしょう。
ＡＳ／４００はデータベース・ファイル、画面ファイル、印刷ファイルにそれぞれ多くの情報を持っており、
ＣＯＢＯＬでは、これらの情報を取り込み、コンパイルすることができるようになっています。
この部分が他のＣＯＢＯＬと大きく異なる点です。これは同時にＡＳ／４００ＣＯＢＯＬの特長でもあります。


４つのＤＩＶＩＳＩＯＮ

一般のＣＯＢＯＬと同じく、
ＩＤＥＮＴＩＦＩＣＡＴＩＯＮ、 ＥＮＶＩＲＯＮＭＥＮＮＴＯ、 ＤＡＴＡ、 ＰＲＯＣＥＤＵＲＥ
です。


引用符（シングルクォーテーション）

ＡＳ／４００に限らず、ＩＢＭ系では、引用符はシングルクォーテーションが、主流ですが
ＣＯＢＯＬの世界ではダブル・クォーテーションのようです。シングルクォーテーション
を使用してすると、コンパイル時に次のような重大度１０の注意を受けます。

「リテラルの区切り文字が正しくない。リテラルは受け入れられます。」

これはエラーではありません。 コンパイル時のオプションでシングル・クォーテーションを
パラメータで指定するか、ＣＯＢＯＬソースのの先頭行に、ＰＲＯＣＥＳＳ ステートメントを
おくことによって、引用符の変更指示ができます。
コンパイルのときは、次のようにＯＰＴＩＯＮパラメータで＊ＡＰＯＳＴを与えます。

ＣＲＴＢＮＤＣＢＬ ＰＧＭ（ＷＲＫＬＩＢ／ＬＭ４２０Ｂ） − ＳＲＣＦＩＬＥ（ＷＲＫＬＩＢ／ＱＣＢＬＬＥＳＲＣ） − ＯＰＴＩＯＮ（＊ＡＰＯＳＴ）

注：行の最後の−（ハイフン）は行の継続を表わします。実際には継続なしで入力できます。

ＰＲＯＣＥＳＳステートメントのときは、ＣＯＢＯＬソースの先頭行に８桁目から、

ＰＲＯＣＥＳＳ  ＡＰＯＳＴ

と入力します。


プログラムＩＤ

ほとんど意味をもちません。ソースファイルのメンバー名が実質のプログラムＩＤになります。
メンバー名とプログラムＩＤが異なるとき、重大度１０のエラーメッセージがでますが、
コンパイルは通ります。 （コンパイラーは重大度２０まではオブジェクトを作成します。）


ＳＯＵＣＥ−ＣＯＭＰＵＴＥＲ．／ＯＢＪＥＣＴ−ＣＯＭＰＵＴＥＲ．

どんな型式でもＯＫのようです。（補足、無しでもOKでした）


ＳＰＥＣＩＡＬ　　ＮＡＭＥＳ．

外部の環境名とプログラム内部の簡略名を関連づけます。
環境名には、次のようなものがあります。（すべてではありません。）

環境名	取得方法、セット方法	内容
Ｉ−Ｏ−ＦＥＥＤＢＡＣＫ	ＡＣＣＥＰＴ	入出力の結果の情報
ＯＰＥＮ−ＦＥＥＤ−ＢＡＣＫ	ＡＣＣＥＰＴ	ＯＰＥＮ直後のファイル情報
ＣＯＮＳＯＬＥ，ＳＹＳＴＥＭ−ＣＯＮＳＯＬＥ	ＡＣＣＥＰＴ，ＤＩＳＰＬＡＹ	システム捜査員とのメッセージのやりとり
ＬＯＣＡＬ−ＤＡＴＡ、ＤＡＴＡ−ＡＲＥＡ	ＡＣＣＥＰＴ，ＤＩＳＰＬＡＹ	プログラム間をわたるデータのやりとり

ローカル・データ・エリアとユーザー・データ・エリア

ファイルのほかにプログラム間で情報の授受をするためのエリア（オブジェクト）として、データ・エリアがあります。
データ・エリアはレコード１件だけからなるファイルをイメージしてください。
ファイルはＲＥＡＤ／ＷＲＩＴＥで入出力を行いますが、データ・エリアはＡＣＣＥＰＴ／ＤＩＳＰＬＡＹで入出力を行います。
データ・エリアはＡＳ／４００のシステムでサポートしているもので、ＣＯＢＯＬに特有なものではありません。


ローカル・データ・エリア

ローカル・データ・エリアはジョブ毎に自動的に１個作成される１０２４バイトのエリアです。
ジョブが終わると自動的に削除されます。
ローカル・データをＣＯＢＯＬで使用するにはプログラムではＳＰＥＣＩＡＬ　ＮＡＭＥＳ段落で定義をして使用します。


ユーザー・データ・エリア

ユーザー・データ・エリアはＣＲＴＤＴＡＡＲＡコマンドで作成されるデータ・エリアで、ＤＬＴＤＴＡＡＲＡコマンドで
削除するまで存続します。エリア名はファイル名と同様に命名でき、同一ライブラリー中では重複できません。
重複しなければいくつでも作成できます。
ユーザー・データ・エリアはＣＯＢＯＬ／４００ではサポートされていません。
ユーザー・データ・エリアをＣＯＢＯＬで使用するにはプログラムではＳＰＥＣＩＡＬ　ＮＡＭＥＳ段落で定義をして使用します。

以下にローカル・データ・エリアとユーザー・データ・エリアの例を示します。
ここではユーザー・データ・エリアは「ＵＳＲＵＤＡ」の名前で以下のように定義されているものとします。

ＣＲＴＤＴＡＡＲＡ　ＤＴＡＡＲＡ（ＷＲＫＬＩＢ／ＵＳＲＵＤＡ）　ＴＹＰＥ（＊ＣＨＡＲ）　ＬＥＮ（３０）

PROCESS APOST GRAPHIC IDENTIFICATION DIVISION. PROGRAM-ID. T1ARA. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-AS400. OBJECT-COMPUTER. IBM-AS400. SPECIAL-NAMES. LOCAL-DATA IS L-ARA DATA-AREA IS U-ARA. DATA DIVISION. *--------------------------------------------------------------- WORKING-STORAGE SECTION. * ローカル・データ・エリア 01 L-ARA-W. 03 L-FLD01 PIC X(10) VALUE SPACE. 03 L-FLD02 PIC X(05) VALUE SPACE. * ユーザー・データ・エリア 01 U-ARA-W. 03 U-FLD01 PIC X(10) VALUE SPACE. 03 U-FLD02 PIC X(05) VALUE SPACE. 03 U-FLD03 PIC X(15) VALUE SPACE. *--------------------------------------------------------------- PROCEDURE DIVISION. TTT-MAIN. ACCEPT L-ARA-W FROM L-ARA. ACCEPT U-ARA-W FROM U-ARA FOR 'USRUDA'. * ローカル・データ・エリア MOVE '1111122222' TO L-FLD01. MOVE '33333' TO L-FLD02. * ユーザー・データ・エリア MOVE '4444455555' TO U-FLD01. MOVE '66666' TO U-FLD02. MOVE '777778888899999' TO U-FLD03. DISPLAY L-ARA-W UPON L-ARA. DISPLAY U-ARA-W UPON U-ARA FOR 'USRUDA' GOBACK.

ＳＥＬＥＣＴ文

ＳＥＬＥＣＴ文では外部ファイル名は、原則として外部の実体名と一致させます。
実体としては、データベースファイル、 印刷ファイル、画面ファイルなどがあります。

ＳＥＬＥＣＴ   ＦＩＬＥ１  ＡＳＳＩＧＮ  ＴＯ  装置−外部ファイル名

例えば、ＦＩＬＥ１が外部の物理ファイルのＭ４２０であるときは、次のようになります

ＳＥＬＥＣＴ ＦＩＬＥ１ ＥＢ１０ ＡＳＳＩＧＮ ＴＯ ＤＡＴＡＢＡＳＥ−Ｍ４２０

外部ファイル名と実体名が異なるときは、ＣＬのＯＶＲＤＢＦ、ＯＶＲＤＳＰＦ、
ＯＶＲＰＲＴＦなどのコマンドで以下のように、一時変更できます。

ＯＶＲＤＢＦ ＦＩＬＥ（ファイル名） ＴＯＦＩＬＥ（ライブラリー／実体名）

例：
ＯＶＲＤＢＦ ＦＩＬＥ（Ｍ４２０） ＴＯＦＩＬＥ（ＷＲＫＬＩＢ／Ｍ４２０Ａ）

関連づけられる外部のファイルの種類と装置の関係は下図のとおりです。

関連づけられるファイル	装置
物理、論理ファイル	ＤＡＴＡＢＡＳＥ
外部記述の印刷ファイル	ＦＯＲＭＡＴＦＩＬＥ（注−１）
プログラム記述の印刷ファイル	ＰＲＩＮＴＥＲ（注−２）
画面ファイル	ＷＯＲＫＳＴＡＴＩＯＮ

注−１：外部記述の印刷ファイルを使用するときは、下図のようになります。

SELECT FILE1 ASSIGN FORMATFILE-LM420P ORGANIZATION SEQUENTIAL.

注−２：プログラム記述の場合は、通常のＣＯＢＯＬの様式でＦＤ項目を記述します。


外部記述のキー

外部記述のデータベースファイルのキーをレコードキーに使用するときは、予約語の
ＥＸＴＥＲＮＡＬＬＹ−ＤＥＳＣＲＩＢＥＤ−ＫＥＹを使用します。

      ＲＥＣＯＲＤ  ＫＥＹ  ＥＸＴＥＲＮＡＬＬＹ−ＤＥＳＣＲＩＢＥＤ−ＫＥＹ

データベースファイルのＳＥＬＥＣＴ文のサンプルを下図に示します。

*印刷対象ファイル 得意先マスター SELECT FILE2 ASSIGN DATABASE-M420L02 ACCESS MODE SEQUENTIAL RECORD KEY EXTERNALLY-DESCRIBED-KEY WITH DUPLICATES ORGANIZATION INDEXED.

印刷ファイルの場合

印刷ファイルの外部記述を使用する場合は、ＦＯＲＭＡＴＦＩＬＥが必要です。（下図参照）
このとき、ＷＲＩＴＥにＡＤＶＡＮＣＩＮＧ句は使用できません。

* 印刷ファイル ↓外部記述のとき SELECT FILE1 ASSIGN FORMATFILE-LM420P ORGANIZATION SEQUENTIAL.

重複キー


論理ファイルの場合は、重複キーありのケースが多いですが、このような場合は、ＳＥＬＥＣＴに、
ＷＩＴＨ   ＤＵＰＬＩＣＡＴＥＳが必要です。
これを忘れると、コンパイルはとおりますが、ＯＰＥＮのときにファイル状況「９５」のエラーになります。
（注：ＷＩＴＨ ＤＵＰＬＩＣＡＴＥＳはＡＳ／４００に特有のものという訳ではありません。）


ファイルステータス

ファイル・ステータスは一般のＣＯＢＯＬと同様に使用できます。
ＷＯＲＫＩＮＧ−ＳＴＯＲＡＧＥ ＳＥＣＴＩＯＮに、ステータス用の２桁の文字列変数を
用意して使用します。
ただし、ここでは、ＲＰＧプログラマーに馴染みの深い、（あるいはＡＳ／４００らしい）
標識を使った方法をとりあげることにします。


ＦＤ項目におけるＬＡＢＥＬ ＲＥＣＯＲＤ，ＢＬＯＣＫ ＣＯＮＴＡＩＮＳ

ＦＤ項目におけるＬＡＢＥＬ ＲＥＣＯＲＤ，ＢＬＯＣＫ ＣＯＮＴＡＩＮＳは、ＡＳ／４００では
意味を持ちません。ＡＳ／４００では、主記憶装置と外部記憶装置との間のデータ
転送は、全てシステムがページングの一環としてコントロールを持っているからです。

FD LPFL LABEL RECORD IS STANDARD BLOCK CONTAINS 0 RECORDS

ＢＬＯＣＫ ＣＯＮＴＡＩＮＳ ０ ＲＥＣＯＲＤＳは、重大度２０のメッセージが表示されます。
コンパイルは行われます。


ＦＤ項目での外部ファイル情報のＣＯＰＹ

一般のＣＯＢＯＬと同様に、ＣＯＰＹが使用できます。
特に指定しなければ、ＣＯＰＹのソース・ファイル名はＱＬＢＬＳＲＣが想定されます。
ＤＤＳで記述された外部情報を、ＣＯＰＹして利用するためには、以下のように予約語の、
ＤＤＳ−ＡＬＬ−ＦＯＲＭＡＴＳを使用します。

   ＣＯＰＹ  ＤＤＳ−ＡＬＬ−ＦＯＲＭＡＴＳ   ＯＦ  外部ファイル名

例：ＦＤ項目でファイルＭ４２０の外部記述を利用する場合は、下図のようになります。

FD FILE1. 01 FILE1R. COPY DDS-ALL-FORMATS OF M420.

これによって、コンパイルのときファイルＭ４２０の様式が、ＰＩＣＴＵＲＥ定義として展開されます。
０１レベルのレコード名（上の例ではＦＩＬＥ２Ｒ）は自由につけられます。
外部記述の印刷ファイルの情報をＣＯＰＹする場合も同様で、下図のようになります。

ＦＤ ＦＩＬＥ２． ０１ ＦＩＬＥ２Ｒ． ＣＯＰＹ ＤＤＳ−ＡＬＬ−ＦＯＲＭＡＴＳ ＯＦ ＬＭ４２０Ｐ．

注意すべきは、印刷ファイルＬＭ４２０Ｐが見出しと明細のように、様式を複数もつ場合で、
このとき、それらの様式は同じ場所（アドレス）に、ＲＥＤＥＦＩＮＥされて定義されます。
即ち、明細にデータをセットすると、見出しの内容がこわされるなどの現象がでてくるので、
そのための対策が必要になります。画面ファイルの場合も同様です。

従来のＣＯＰＹ

これは一般のＣＯＢＯＬと同じです。コピーメンバーの省略時のソースファイルはＱＬＢＬＳＲＣです。
もし、そこでメンバーがみつからないときは、ＣＯＢＯＬプログラムの入っているソースファイルを探しにいきます。

ＣＯＰＹ命令は、ＰＲＯＣＥＤＵＲＥ　ＤＩＶＩＳＩＯＮでも使用できます。


ＷＯＲＫＩＮＧ−ＳＴＯＲＡＧＥ ＳＥＣＴＩＯＮ．

通常のＣＯＢＯＬと同様です。ここでも従来型のＣＯＰＹ句のほかに、外部記述のＣＯＰＹが使用できます。


標識

ＣＯＢＯＬでの標識は、長さ１のビット列として定義します。（下図参照）
ＲＰＧでの標識＊ＩＮｎｎ（ｎｎは０１〜９９）は、ＣＯＢＯＬではＩＮｎｎのようになります。

* プログラムで使用する標識（及び定数）を定義します。 01 CONST. 03 Z-ON PIC 1 VALUE B'1'. 03 Z-OFF PIC 1 VALUE B'0'. 03 IN99 PIC 1 VALUE B'0'.

ビット列の定数、Ｂ’１’，Ｂ’０’はコーディングのとき、キーストロークが面倒なので、
上例のように変数（例：Ｚ−ＯＮ，Ｚ−ＯＦＦ）の形で定義しておくのが便利です。
先のＣＯＰＹ句で取得した場合の標識も ＩＮｎｎの形で定義されます。（下図参照）

20 002600 FD FILE1. 21 002700 01 FILE1R. 002800 COPY DDS-ALL-FORMATS OF LM420P. 22 +000001 05 LM420P-RECORD PIC X(95). +000002* I-O FORMAT:HDR01 FROM FILE LM420P OF LIBRARY +000003* 見出部様式 +000004* 05 HDR01 REDEFINES LM420P-RECORD. +000005* INPUT FORMAT:DTL01 FROM FILE LM420P OF LIBRARY +000006* 明細部様式 +000007* 05 DTL01-I REDEFINES LM420P-RECORD. +000008* OUTPUT FORMAT:DTL01 FROM FILE LM420P OF LIBRARY +000009* 明細部様式 23 +000010 05 DTL01-O REDEFINES LM420P-RECORD. 24 +000011 06 DTL01-O-INDIC. 25 +000012 07 IN11 PIC 1 INDIC 11. 26 +000013 06 P1TKNO PIC X(5).

漢字データ

漢字データは２バイトで１文字を表わし、ＩＢＭ系では、１６進数の０Ｅ，０Ｆのシフト
コードで区切られた文字列です。
国産系ではこのシフトコード（０Ｅ，０Ｆ）がそれぞれ２バイトになっている場合がある
ので、互換性において注意が必要です。また、パソコン系では、２バイトの先頭の１ビットが
オンかオフで漢字であるかどうかを区別しています。
従って、パソコンから変換するようなときは、データベースや画面、印刷帳票などのレイ
アウトの桁ずれなどに注意が必要です。

国産機にみられる２バイト文字の記述「ＮＣ」は、ＡＳ／４００では「Ｎ」となります。

       01  AAA.                                                
           03  AAAA      PIC  NC(05)    VALUE  NC' あいうえお '.  

                                              ↓

       01  AAA.                                                
           03  AAAA      PIC  N(05)     VALUE   N' あいうえお '.  

同様に「ＮＡ」も「Ｎ」となります。

                   MOVE    NA"2"       TO      HD-12  
                          ↓
                   MOVE     N" ２ "    TO      HD-12  

算術数値の有効桁数

ＩＬＥ−ＣＯＢＯＬでは１８桁が最大です。つまり、

０１　　ＰＩＣ　　Ｓ９（ｎ）Ｖ９（ｄ）　ＣＯＭＰ−３．

のとき、ｎ＋ｄの最大が１８桁です。

Ｓ９（１９）とすると、ＳＥＵの段階で文法チェックのエラーに
なります。（ＲＰＧでも最大３１桁です）
注：同じＩＬＥ−ＣＯＢＯＬであっても、ＯＳのバージョンによっては最大有効桁数が３１の場合もあります。


倍精度浮動小数点数

ＦＯＲＴＲＡＮでのＲＥＡＬ＊４相当のＣＯＭＰ−１，ＲＥＡＬ＊８相当のＣＯＭＰ−２が使用できます。

ＳＣＲＥＥＮ ＳＥＣＴＩＯＮ

ＡＳ／４００のＣＯＢＯＬではＳＣＲＥＥＮ ＳＥＣＴＩＯＮは使用できません。
特にパソコン系からのＣＯＢＯＬプログラムを変換するときは、大幅なワークロードの見積ちがいが
発生する可能性があります。要注意です。


ＬＩＮＫＡＧＥ ＳＥＣＴＩＯＮ

一般ＣＯＢＯＬと同じです。


二次ＥＮＴＲＹ

ＡＳ／４００のＣＯＢＯＬでは、二次ＥＮＴＲＹは使用できません。解決策として、二次ＥＮＴＲＹ用として、
プログラムを呼び出すだけの小さなプログラムを、ＣＬ、または、ＣＯＢＯＬで作成しておけばよいでしょう。
下図はＣＬの例です。このＣＬを二次ＥＮＴＲＹ名で作成します。

ＰＧＭ ＣＡＬＬ ＰＧＭ（プログラム名） ＥＮＤＰＧＭ

呼出のパラメータがある場合は、そのためのＰＡＲＭパラメータや、変数名定義のＤＣＬの
記述も必要です。


段落

ＳＥＣＴＩＯＮとして定義していなくても、段落から次の段落の前までを、ひとつの内部
サブルーチンのように、使用できます。これはＡＳ／４００−ＣＯＢＯＬに特有なものと
いうわけではありません。（これはＲＰＧプログラマー向けの説明です。）


繰返し処理

ＰＥＲＦＯＲＭ   ＸＸＸ  ＵＮＴＩＬ   Ａ ＝ Ｂ．の形のとき、ＵＮＴＩＬの語句があっても、
実際はＷＨＩＬＥの場合と同様にチェックされます。すなわち、ＵＮＴＩＬの場合は繰返し
が最低１回は実行されますが、ＣＯＢＯＬの場合は条件が合わないと１度も実行される
ことはありません。なまじ、ＵＮＴＩＬとあるだけに紛らわしいわけです。
明示的にコーディングすれば、勘違いをさけられます。

明示的にＵＮＴＩＬ型の繰返しにするためには、

PERFORM SUB-MAIN WITH TEST AFTER UNTIL IN99 = Z-ON.

のように、ＷＩＴＨ ＴＥＳＴ ＡＦＴＥＲを使用します。

参考：
PERFORM SUB-MAIN WITH TEST BEFORE UNTIL IN99 = Z-ON.


読取の位置づけ

データベース読取の位置づけはＳＴＡＲＴ命令で行います。
ＲＰＧでのＳＥＴＬＬ，ＳＥＴＧＴに相当します。


ＳＴＡＲＴ命令でファイルが０件データの場合、状況コード２３のエラーになります。
ＩＮＶＡＬＩＤ ＫＥＹをつければこのエラー発生はさけられます。（下図参照）

START FILE2 KEY NOT LESS THAN EXTERNALLY-DESCRIBED-KEY INVALID KEY MOVE Z-ON TO IN99. * ↑０件のときは INVALID KEY

ＲＥＡＤ−ＥＱＵＡＬ

指定されたキーと同じ値のキーを持つレコードを読みとりする、ＲＰＧのＲＥＡＤＥもどきの処
理を実現するためには、内部ルーチンの形にしておくのが便利です。（下図参照）
このとき、標識はシステムでなく、プログラムでＯＮ／ＯＦＦする必要があります。

* 指定キーと同一キーを持つレコードを読取りする。 (READ-EQ) SB-READ-EQ. IF IN99 = Z-OFF READ FILE2 NEXT RECORD AT END MOVE Z-ON TO IN99 END-READ IF TKSLNO NOT = W-SLNO MOVE Z-ON TO IN99 END-IF END-IF.

外部記述の印刷ファイルに出力

外部記述の印刷ファイルに出力するときは、ＦＯＲＭＡＴ句でどの様式による出力を行う
かを指定します。
このとき、その様式の記述がたとえ何行分であっても、１回の出力（ＷＲＩＴＥ）で印刷
されます。

明細部の出力の例

WRITE   FILE1R   FORMAT   'DTL01'.

見出し部の出力の例

WRITE   FILE1R   FORMAT   'HDR01'.

フィールド印刷の標識制御

条件に応じてのとき、＊＊のようなマークの印刷するようなとき、それを標識で制御して
いるような場合に、注意しないとその定数項目をオフしたとき、それに付属のＳＰＡＣＥＡ（１）の
ような改行制御も、同時にオフとしてしまうことになります。

A P1URGK 11S 0 +8TEXT(' 売上実績額 ') A EDTCDE(K) A 11 +2 '**' A SPACEA(1) IF TKURJS > 10000 MOVE Z-ON TO IN11 ELSE MOVE Z-OFF TO IN11 END-IF.

この例では、実績額が１０，０００円を超えた場合に、標識１１をオンにして’＊＊’を
印刷させています（下図参照）。１０，０００円を超えない場合は標識１１はオフになり、
’＊＊’の印刷はしません。が、同時に、付属のＳＰＡＣＥＡ（１）も有効でなくなるので、
改行がおかしくなります。
このようなときは、’＊＊’またはブランクを変数に入れて印刷するようにするか、ブラ
ンクを印刷するような、ダミーのフィールドにＳＰＡＣＥＡ（１）を付属させるなどの工夫が必要です。

..8....+....9....+....0....+....1....+....2....+....3.. 0/04/24 15:11:51 PAGE. 0001 ＴＥＬ 担当営業 売上実績 MK 03-3333-1122 3333 212,000 ** 03-3333-1166 3333 16,000 ** ↑ ＊＊にＳＰＡＣＥＡ（１）が付属しています。 ＊＊が標識で無効になるとＳＰＡＣＥＡ（１）も無効になります。 この結果、改行が意図どおりに行われなくなります。

印刷制御の考慮事項 プログラムの中で、「タイトルを１行印刷したなら、何行改行して、項目を見出しを2行にわたって印刷して、 さらに仕切りの線をひいてとか、明細は３行で1明細にして」、のようなレイアウトに関する処理は、プログラムの 本質的な部分からはずれるだけでなく、このための制御によってプログラムが複雑になりがちです。 印刷ファイルはレイアウトの情報をできるだけ、プログラムから印刷ファイルに移すものです。 印刷ファイルを使用すると、多少印刷出力のレイアウトに変更があっても、プログラムロジックの修正が殆ど 必要なく、プログラムのリコンパイルだけですむことが多いので、プログラム作成の効率がアップします。 プログラムの移植の場合は別として、新規にプログラムを作成する場合は、印刷ファイルをできるだけ使用する のが得策です。 また、ＲＬＵというユーティリティを使用すると、印刷設計レイアウトも簡単に作成できるので、設計文書の作成も 楽になります。ＲＬＵはＰＤＭのメンバーの処理で、１９番のオプションを使用すると呼び出しできます。

ファイルの編成とアクセス

ファイルの編成とＳＥＬＥＣＴ文での指定の方法は次のとおりです。

	順次ファイル	相対ファイル	索引付ファイル
例	印刷ファイル ＴＡＰＥ	キーの無いＰＦ	キーのあるＰＦ、ＬＦ
ＤＤＳでのキー指定	なし	ない	あり
ＯＲＧＡＮＡＩＺＡＴＩＯＮ	ＳＥＱＵＥＮＴＩＡＬ	ＲＥＬＡＴＩＶＥ	ＩＮＥＸＥＤ
ＡＣＣＥＳＳ ＭＯＤＥ	ＳＥＱＵＥＮＴＩＡＬ	ＲＡＮＤＯＭ ＤＹＮＡＭＩＣ	ＲＡＮＤＯＭ ＤＹＮＡＭＩＣ
ＲＥＣＯＲＤ ＫＥＹ	−−	−−	キー名

注：索引付ファイルのＯＲＧＡＮＩＺＡＴＩＯＮ， ＡＣＣＥＳＳ ＭＯＤＥを共に
ＳＥＱＵＥＮＴＩＡＬとするとＲＲＮ順に読めてきます。

索引付ファイルの更新の例：
得意先マスター（Ｍ４２０）を更新しています。

SELECT FILE1 ASSIGN DATABASE-M420 ACCESS MODE RANDOM RECORD KEY TKTKNO ORGANIZATION INDEXED. 中略 * ファイル更新処理 SB-0000. * キーに値をセットして読み込みします。 MOVE S1TKNO OF FMT01-I TO TKTKNO. MOVE X-OFF TO IN99. READ FILE1 RECORD INVALID KEY MOVE X-ON TO IN99. * 削除処理でなければ、編集処理をします。 IF W-MOD NOT = 04 MOVE S1NMKJ OF FMT02-I TO TKTKNO MOVE S1NMKN OF FMT02-I TO TKNMKJ MOVE S1TEL OF FMT02-I TO TKTEL MOVE S1SLNO OF FMT02-I TO TKSLNO END-IF. * 読めていれば、置換え、そうでなければレコード追加、 * 更新モードでなければ削除を行います。 IF IN99 = X-OFF IF W-MOD = 02 REWRITE FILE1R ELSE DELETE FILE1 END-IF ELSE WRITE FILE1R END-IF.

プロシージャー呼出し

ＩＬＥの特長であるバインドのための呼出がプロシージャー呼出として機能が追加されています。
バインド予定のプロシージャーを次のように呼出します。

CALL LINKAGE TYPE IS PROCEDURE 'TESTCB1' USING A B C D.


数学関数

ＩＬＥ−ＣＯＢＯＬでは、ＳＩＮ，ＣＯＳ，ＴＡＮなど簡単な数学関数が使用できます。


可変長レコードの操作

ＡＳ／４００では基本的にはレコードは固定長ですが、可変長レコードを扱うときは、
ＦＤのところで、VARYINGの記述をし、可変長レコードと定義します。

FD ファイル名 RECORD IS VARYING IN SIZE FROM 最小サイズ TO 最大サイズ DEPENDING ON レコード長の識別名.

レコード長の識別名は、WORKING-STORAGE SECTIONで定義しておきます。

レコード出力プログラムのサンプルを紹介します。

IDENTIFICATION DIVISION. PROGRAM-ID. CBL401. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-I5. OBJECT-COMPUTER. IBM-I5. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT SYS010 ASSIGN TO DISK-FILE1 ACCESS MODE SEQUENTIAL FILE STATUS FILE-STS. DATA DIVISION. FILE SECTION. FD SYS010 RECORD IS VARYING IN SIZE FROM 10 TO 80 DEPENDING ON REC-LEN. 01 REC1. 03 FILLER PIC X(10). 01 REC9. 03 FILLER PIC X(80). WORKING-STORAGE SECTION. 01 FILE-STS PIC X(2). 77 REC-LEN PIC 9(5). 01 WRK. 03 WRK10 PIC X(10). 03 WRK20 PIC X(20). 03 WRK30 PIC X(30). PROCEDURE DIVISION. AA. OPEN OUTPUT SYS010. MOVE 'AAAAAAAAAA' TO REC9. MOVE 10 TO REC-LEN. WRITE REC9. MOVE 'BBBBBBBBBBBBBBBBBBBB' TO REC9. MOVE 20 TO REC-LEN. WRITE REC9. MOVE 'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC' TO REC9. MOVE 30 TO REC-LEN. WRITE REC9. CLOSE SYS010. GOBACK.

可変長の読み取り

出力の場合と同様に定義し、読み取りします。
ＦＤで記述したフィールドに長さ情報がセットされます。

IDENTIFICATION DIVISION. PROGRAM-ID. CBL402. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-I5. OBJECT-COMPUTER. IBM-I5. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT SYS010 ASSIGN TO DISK-FILE1 ACCESS MODE SEQUENTIAL FILE STATUS FILE-STS. DATA DIVISION. FILE SECTION. FD SYS010 RECORD IS VARYING IN SIZE FROM 10 TO 80 DEPENDING ON REC-LEN. 01 REC1. 03 FILLER PIC X(10). 01 REC9. 03 FILLER PIC X(80). WORKING-STORAGE SECTION. 01 FILE-STS PIC X(2). 77 REC-LEN PIC 9(5). 01 WRK. 03 WRK-LEN PIC 9(5). 03 WRK40 PIC X(40). PROCEDURE DIVISION. AA. OPEN INPUT SYS010. READ SYS010. MOVE REC-LEN TO WRK-LEN. MOVE REC9 TO WRK40. DISPLAY WRK. READ SYS010. MOVE REC-LEN TO WRK-LEN. MOVE REC9 TO WRK40. DISPLAY WRK. READ SYS010. MOVE REC-LEN TO WRK-LEN. MOVE REC9 TO WRK40. DISPLAY WRK. CLOSE SYS010. GOBACK.

次ページ

目 次

（Ｃ）ＣＯＰＹＲＩＧＨＴ ＩＳＨＩＯＫＡ ＫＡＴＳＵＨＩＤＥ ２０００−２００８