ＩＬＥ-ＲＰＧ（その１）
ＩＬＥ－ＲＰＧの最大の特長はバインドと呼ばれる、スタティック・リンク方式にあります。
この方式は、従来のダイナミック・リンク方式に比べ、リンクの際のオーバーヘッドが
軽減され、処理効率が大幅に向上します。
このページでは、従来のＲＰＧ（ＲＰＧ-Ⅲ）との相違点を中心に、
ＩＬＥ－ＲＰＧ（ＲＰＧ-Ⅳ）について紹介します。
サンプル
まず、ＲＰＧ－ⅢからＲＰＧ－Ⅳへ、ＣＶＴＲＰＧＳＲＣコマンドで変換をしたサンプルを紹介します。
ＲＰＧ－Ⅳ
H*--------------------------------------------------------------- H* ID : LM420 H* NAME :担当者別得意先一覧 H*--------------------------------------------------------------- H DATEDIT(*YMD-) F*--------------------------------------------------------------- F*得意先マスターファイル FM420 IF E K DISK F*得意先一覧 FLM420P O E PRINTER OFLIND(*IN30) C*--------------------------------------------------------------- C*初期処理 C SETON 30 C READ M420R 99 C*本処理 +----C *IN99 DOWEQ *OFF | C MOVEL TKCDNO P1TKCD 得意先№ | C MOVEL TKNMKJ P1NMKJ 得意先名 | C MOVEL TKNMKN P1NMKN 得意先カナ | C MOVEL TKTEL P1TEL ＴＥＬ | C MOVEL TKSLNO P1SLNO 担当営業№ | C MOVEL TKURJS P1URJS 売上実績額 |+---C *IN30 IFEQ *ON || C WRITE HDR01 || C SETOFF 30 |+---C ENDIF | C WRITE DTL01 | C* | C READ M420R 99 +----C ENDDO C*終了処理 C SETON LR C RETURN
ＲＰＧ－Ⅲ
**--------------------------------------------------------------- ** ID : LM420 ** NAME :担当者別得意先一覧 **--------------------------------------------------------------- H Y- F*--------------------------------------------------------------- F*得意先マスターファイル FM420 IF E K DISK F*得意先一覧 FLM420P O E 30 PRINTER C*--------------------------------------------------------------- C*初期処理 C SETON 30 C READ M420R 99 C*本処理 +----C *IN99 DOWEQ*OFF | C MOVELTKCDNO P1TKCD 得意先№ | C MOVELTKNMKJ P1NMKJ 得意先名 | C MOVELTKNMKN P1NMKN 得意先カナ | C MOVELTKTEL P1TEL ＴＥＬ | C MOVELTKSLNO P1SLNO 担当営業№ | C MOVELTKURJS P1URJS 売上実績額 |+---C *IN30 IFEQ *ON || C WRITEHDR01 || C SETOF 30 |+---C ENDIF | C WRITEDTL01 | C* | C READ M420R 99 +----C ENDDO C*終了処理 C SETON LR C RETRN
ソースレコード様式の相違点
ＲＰＧ-Ⅲでは１行８０バイトですが、ＲＰＧ-Ⅳでは１行１００バイトに拡張されています。
フィールド名の長さは、最大１４桁まで拡張されています。
各仕様書と仕様書コード
仕様書はファイル補足仕様書（Ｅ，Ｌ）が廃止され、定義仕様書（Ｄ）、プロシージャー仕様書（Ｐ）が
新しく設けられています。対応は次のとおりです。
ＲＰＧ－ＩＩＩ ＲＰＧ－ＩＶ Ｈ Ｈ Ｆ Ｆ Ｅ Ｄ，Ｉ Ｉ Ｄ，Ｉ Ｃ Ｃ Ｏ Ｏ なし Ｐ
制御仕様書（仕様書コード：Ｈ）
固定カラム様式からキーワード・パラメータ記述の様式に改定されています。
例えば、日付編集様式がＹＭＤで、その仕切り文字が／のとき、次のようになります。
H DATEDIT(*YMD/)
ファイル仕様書（仕様書コード：Ｆ）
カラム様式のレイアウトが、改定されています。
カラム 項目 6桁 仕様書コード（Ｆ） 7～16桁目 ファイル名
ファイル名は従来の８桁から１０桁に拡張されています。17桁 ファイル・タイプ
Ｉ ： 入力ファイル
Ｏ ： 出力ファイル
Ｕ ： 更新ファイル
Ｃ ： 入出力共用ファイル18桁 ブランク ：出力ファイル
Ｐ ： プライマリーファイル
Ｓ ： セカンダリーファイル
Ｒ ： レコードアクセスファイル
Ｔ ： 配列またはテーブルファイル
Ｆ ： 全手順ファイル22桁 ファイル形式
Ｆ ： プログラム記述ファイル
Ｅ ： 外部記述ファイル23～27桁 レコード長。プログラム記述の場合。 29～33桁 キーの長さ。プログラム記述の場合。 34桁目 レコード・アドレス・タイプ
ブランク 相対レコード番号（ＲＲＮ）を使用して処理。
Ｋ キー値を使用してファイルを処理。36～42桁 装置
ＰＲＩＮＴＥＲ
ＤＩＳＫ
ＷＯＲＫＳＴＮ
ＳＥＱ
定義仕様書（仕様書コード：Ｄ）
カラム 項目 7～21桁 変数名、配列名または構造名 24～25桁 定義タイプ（Ｃ、ＤＳ、ＰＩ，ＰＲ，Ｓ） 26～32桁 開始位置（ＦＲＯＭ） 32～39桁 終了位置（ＴＯ）または長さ 40桁 データタイプ 41～42桁 少数点以下の桁数 44～80桁 キーワードパラメータ
従来のファイル補足仕様で行っていた、配列／テーブルの定義や入力仕様書におけるデータ構造（ＤＳ）は
この部分で定義します。４４桁から後に、自由形式のパラメータ記述ができるようになっています。
データのタイプとしては、アドレスを扱うポインター変数が新しく登場しています。
配列
配列の定義は、定義タイプは’Ｓ’とし、キーワードパラメータＤＩＭで、要素数とともに定義します。
コンパイル時にデータをローディングするときは、パラメータＣＴＤＡＴＡを与えます。
レコードあたりのデータ件数は、パラメータＰＥＲＲＣＤで与えます。
以下に例を示します。
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. D LDAY S 2 0 DIM(12) CTDATA PERRCD(12)
この例は、コンパイル時配列で、名称はＬＤＡＹ、長さ２、少数点以下０のゾーン１０進数データタイプで、
要素数は１２です。データは１行あたり１２個となっています。
データ構造
データ構造は、定義タイプ’ＤＳ’で構造名を定義し、所属要素（データ構造サブフィールド）を
それに引き続く行で、定義タイプ、ブランクで定義します。
所属要素の位置取りは開始位置、終了位置を指定する方法と、その要素の長さを指定する方法の
２種類が可能です。
要素の長さを指定する場合は、「終了位置」に指定し、開始位置はブランクにします。
データタイプには次のようなものがあります。（一部のみ紹介です）
コード タイプ ブランク 文字列 Ｓ ゾーン１０進数 Ｐ パック１０進数 Ｂ ２進数 ＊ ポインター
初期値はキーワード・パラメータ ＩＮＺで与えます。
以下に例を示します。
...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 DFLD444 DS D FLD01 6 D FLD02 12 INZ('111111111122') D FLD03 4 D AAA01 1 D AAA22 5 D BBB11 5S 0
基底付きデータ構造
基底付きデータ構造は、基底として与えられたポインター（アドレス）によって、割当てられる場所が変わるデータ構造です。
アセンブラーのＤＳＥＣＴに相当します。
次に示すのは、基底付きの構造の例です。
...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 DBASED1 DS BASED(PTR) D CCC11 6 D CCC22 12
上の例で、ＰＴＲはアドレスの入るポインター変数です。関数％ＡＤＤＲによって基底アドレスの取得ができます。
ポインターはデータまたはデータ構造の有り場所を示すデータです。大きさは１６バイトです。
世間では６４ビットアドレスが最新ですが、ＡＳでは大分前から１２８ビットアドレスになっています。
このポインターは権限のないプログラムが操作するとオールゼロになるようです。（ウィルス対策か？）
基底付き変数をあやつって、システムの奥の院まで侵入なんてことはできないようです。
ＲＰＧ-Ⅳでは％ＡＤＤＲなどいくつかの新しい関数が使用できるようになっています。
独立変数
独立変数とは、構造に属していない単独の変数をいいます。ＣＯＢＯＬでいえば、７７項目に相当します。
定義タイプを’Ｓ’（スカラー）として、長さ、データタイプ、小数以下の桁数を指定して定義します。
初期値を与える場合は、キーワードＩＮＺで指定します。
以下に例を示します。いずれも５桁のパック１０進数を定義しています。
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 D I S 5P 0 INZ(0) D J S 5P 0 D K S 5P 0 D L S 5P 0 D M S 5P 0 D N S 5P 0
可変長変数
可変長変数は長さの変わる文字列のための変数です。
定義はVARYING属性をつけて、次の例のようにします。
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 D VAR1 S 20A VARYING D VAR2 S 30A VARYING
楽屋裏では、２バイトの長さ情報＋文字列の形でサポートしています。
可変長レコードのサポート
可変長レコードは、次のようにしてサポートできます。
１）可変長レコードのファイル定義
ＤＤＳでは定義できません。ＳＱＬのＣＲＥＡＴＥ ＴＡＢＬＥコマンドを使って定義します。
CREATE TABLE QTEMP/FILE1 (FLD01 VARCHAR (80 )
NOT NULL WITH DEFAULT)
この例では、１レコード１フィールドの可変長レコード（最大長８０バイト）のファイルが定義されます。
２）プログラムでは、最大長８０バイトの可変長フィールドを、１個だけからなる構造体を定義して
利用します。
以下に例を示します。
注：
１）ファイル仕様書ではレコード長を８０＋２（＝８２）バイトで記述していることに注意してください。
２）レコードの構造体は最大長８０バイトのＶＡＲＹＩＮＧ属性の１フィールドの構造を定義しています。
３）変数ＶＡＲ１にはＥＶＡＬ命令でセットしていることに注意してください。
ＭＯＶＥＬで値をセットすると、最初のＭＯＶＥＬでその長さが固定されてしまいます。
ＥＶＡＬであれば、長さの可変長属性が保たれます。
上記プログラムの実行結果は次のようになります。
先頭の２バイト（赤）が長さ情報となっていることに注意して下さい。
物理ファイル・メンバー表示
ファイル . . . : FILE1 ライブラリー . : QTEMP
メンバー . . . : FILE1 レコード . . . : 1
制御 . . . . . . 桁 . . . . . . : 1
検索 . . . . . .
* . . . + . . . . 1 . . . . + . . . . 2 . . . . + . . . . 3 . . . . . .
000AC1C1 C1C1C1C1 C1C1C1C1 40404040 40404040 40404040 40404040 40404040 40404040
0014C2C2 C2C2C2C2 C2C2C2C2 C2C2C2C2 C2C2C2C2 C2C24040 40404040 40404040 40404040
001EC3C3 C3C3C3C3 C3C3C3C3 C3C3C3C3 C3C3C3C3 C3C3C3C3 C3C3C3C3 C3C3C3C3 40404040
****** データの終わり ******
演算仕様書（仕様書コード：Ｃ）
様式の拡張
項目２の様式が２種類になっています。
ＲＰＧⅢからの拡張の様式
カラム様式の改訂に加え、さらに拡張様式で、「式」の記述ができるようになっています。
「式」とは評価（計算）をしたとき、最終的にある値を表わすものをいいます。
.....CL0N01FACTOR1+++++++OPCODE&EXTFACTOR2+++++++RESULT++++++++LEN++D+H C Z-ADD P@YMD W@YMD C W@YY DIV 04 W C MVR R
ＲＰＧⅣ項目２の拡張様式
項目２が拡張されて、式を記述できるようになっています。
.....CL0N01FACTOR1+++++++OPCODE&EXTEXTENDED-FACTOR2++++++++++++++++++++ C IF AA = BB OR CC > DD C EVAL A = B**2 + C
フィールド名は１４桁まで拡張されています。結果のフィールドも同様です。
添え字は、ＲＰＧ－IIIでは
変数名，Ｘ
の形でしたが、ＲＰＧ-IVでは
変数名（Ｘ）
の形になっています。
拡張された１４桁のうち、１０桁までは変数用にし、４桁分は添え字に使うことをおすすめします。
組込関数
式の記述に呼応して、各種の組込み関数が用意されています。
一部を紹介します。
関数名 機能 ％ＳＵＢＳＴ 文字列の切出し ％ＣＨＡＲ 文字列への変換 ％ＳＣＡＮ 文字列の検索 ％ＡＤＤＲ アドレスポインターの取得
命令
命令も拡張されています。いくつかを紹介します。
命令 機能 ＡＬＬＯＣ メモリーの獲得（汎用機でのＧＥＴＭＡＩＮマクロ相当） ＣＡＬＬＢ バインド済みプロシージャー呼び出し ＣＡＬＬＰ プロトタイププロシージャー／プログラムの呼び出し。 ＤＯＷ ＷＨＩＬＥ型の繰返し ＤＯＵ ＵＮＴＩＬ型の繰返し ＥＶＡＬ 式の評価と割付。ＣＯＢＯＬのＣＯＭＰＵＴＥ命令。
プロシージャーとサブ・プロシージャー
従来のＲＰＧでのプログラムが、プロシージャーとサブ・プロシージャーの２タイプに別れています。
プロシージャーは従来のプログラムに相当し、ＲＰＧサイクルや実行のために必要なメモリーなどの
資源を準備するためのコードが付加されています。
サブ・プロシージャーは、呼び出され専門のプログラムといえます。
サブ・プロシージャーにはＲＰＧ独特のサイクルの部分はありません。
プロシージャーの一般構造は次のようになります。
プロシージャー 制御仕様書 Ｈ ファイル仕様書 Ｆ 定義仕様書 Ｄ 入力仕様書 Ｉ 演算仕様書 サブ・プロシージャー プロシージャー仕様書の始め Ｐ 定義仕様書 Ｄ 演算仕様書 Ｃ プロシージャー仕様書の終り Ｐ データ コンパイル時配列へのローディングデータ 仕様書コードなし
プロシージャー仕様書の始めから、同じく終りまでが、サブ・プロシージャーで、それ以外がメイン・プロシージャーです。
サブ・プロシージャー
サブ・プロシージャーは、メインプログラムの中に含まれるサブ・ルーチンで、開始のプロシージャー仕様書と
終了のプロシージャー仕様書で区切られます。
開始のプロシージャー仕様書は仕様書コード’Ｐ’で、２４桁目が’Ｂ’、終了は同じく’Ｅ’です。
以下にサブ・プロシージャーを含むプログラムのサンプルを示します。
サブ・プロシージャーは複数あってもよいし、また、まったくなくてもかまいません。
なお、ＥＸＳＲで呼び出す従来の内部サブルーチンも当然使用できます。
呼出使用で効率が一番よいのは内部サブルーチン、ついでサブ・プロジージャー、従来の（ＯＰＭ）プログラムです。
以下に例を示します。
サンプル
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 H DATEDIT(*YMD-) D*---------------------------------------------------------------- D YMD1 S 6S 0 D YMD1A S 8S 0 D SUBY2K PR C *ENTRY PLIST C PARM YMD1C 6 C MOVE YMD1C YMD1 C CALLP SUBY2K C YMD1A DSPLY C SETON LR C RETURN P*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 P* ここからサブプロシージャー P SUBY2K B C* C YMD1 IFGT 700000 C EVAL YMD1A = YMD1+ 19000000 C ELSE C EVAL YMD1A = YMD1+ 20000000 C ENDIF C RETURN P E
このサブプロシージャーでは、外側で定義した変数をそのままサブ・プロシージャーで使用し、
１９００年代か２０００年代かを判断しています。
サブ・プロシージャーの内部で、改めて定義仕様書（Ｄ仕様書）により変数の定義することもできます。
この場合、内部で定義した変数はそのサブ・プロシージャー内だけで、通用します。
（これは、ＰＬ／Ｉ のサブ・プロシージャーの場合と同じです。）
パラメータの受け渡し
外側で定義した変数を共用する方法のほかに、パラメータを定義してそれを介してデータを授受することも
できます。このためには、呼び出し側は、定義仕様書でプロトタイプと呼ばれる、受渡し情報を定義します。
プロトタイプの定義タイプは’ＰＲ’です。パラメータの形式情報は、その直後に続けて定義します。
例えば、ＳＵＢＹ２Ｋという名のサブ・プロシージャーで６Ｓ０、８Ｓ０（ゾーン10進数）のパラメータを受渡しする
場合のプロトタイプは次のようになります。
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 D SUBY2K PR D 6S 0 D 8S 0
受取り側は対応するパラメータプロシージャ・インターフェイス（ＰＩ）を定義します。
パラメータプロシージャ・インターフェイスは、定義タイプ’ＰＩ’として定義し、それにつづけて
各パラメータを定義します。
上記呼び出しを受ける場合のパラメータ・インターフェイスは次のようになります。
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 D SUBY2K PI D YMD2 6S 0 D YMD2A 8S 0
サンプル・プログラム
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 D* パラメータを使用してのプロシージャー呼び出し。 H DATEDIT(*YMD-) D*================================================================ D* プロトタイプの指定 D* 呼び出されるプログラムは 6S0 8S0 のパラメータを要求 D SUBY2K PR D 6S 0 D 8S 0 D*---------------------------------------------------------------- D YMD1 S 6S 0 D YMD1A S 8S 0 C*================================================================ C *ENTRY PLIST C PARM YMD1 C* C CALLP SUBY2K (YMD1:YMD1A) C* 6S0 8S0 C YMD1A DSPLY C YMD2A DSPLY C SETON LR C RETURN P*================================================================ P* ここからサブ・プロシージャー P SUBY2K B D* パラメータインターフェイス D SUBY2K PI D YMD2 6S 0 D YMD2A 8S 0 C* C YMD2 IFGT 700000 C EVAL YMD2A = YMD2+ 19000000 C ELSE C EVAL YMD2A = YMD2+ 20000000 C ENDIF C EVAL YMD1 = YMD1 C RETURN P E
スタティック・リンク
従来、外部プログラムを呼出し利用する場合は、ダイナミック（動的）リンクで、行っていました。
ＩＬＥの体系では、実行プログラム・オブジェクトの前に、プログラム・モジュールを作成し、
これをバインドして実行プログラム・オブジェクトを作成するようになっています。
すなわち、コンパイラーの役目はプログラム・モジュールを作成するところまでです。
バインドでは、どのコンパイラーが作り出したプログラム・モジュールも特別に区別すること
なく、実行プログラム・オブジェクトに組込まれます。これがＩＬＥ（統合化言語環境）といわれる
ゆえんです。いわば、裏方の環境は激変していますが、表側からは激変というほどのことは
ありません。
スタティック・リンクにすると、ダイナミック・リンクの際に行っていた、ＳＹＳてＭのいくつかの作業が
バインド時に行わなわれ、実行時に必要なくなるので、処理の効率がよくなります。
汎用機では当初から、コンパイル＋リンクの形でスタティック・リンクが行われており、むしろ
ダイナミック・リンクは、どちらかというと例外的でした。ＡＳ／４００では逆にダイナミック・リンクが
メインでしたが、ＩＬＥによってダイナミック・リンクのオーバーヘッドを取り除き、効率を高めようとする
ねらいと思われます。実測では約１００倍となっています。
ＡＳ／４００と汎用機の対応は次のようになります。
ＡＳ／４００ 汎用機 コンパイル コンパイル ↓ ↓ プログラム・モジュール オブジェクト ↓ ↓ バインド リンク・エディット ↓ ↓ 実行プログラム・オブジェクト ロードモ・ジュール
ＩＬＥ－ＲＰＧのパフォーマンス
ある本に外部ＣＡＬＬ命令を利用してのプログラム呼出しは莫大な「費用」がかかるので、・・・
という記述を見て、ＲＰＧ-IIIによる外部ＣＡＬＬ命令を使用した場合と、ＲＰＧ-IVによるプロシージャー呼出しの
差を比較してみました。結果は下記のとおりで思わぬ大差がつきました。
ＬＲ（ラストレコード）標識をオフにしないでリターンさせるテクで、ＲＰＧ－ＩＩＩをチューンナップした場合も
比較のためにあげています。
下はＲＰＧ-IVのプログラムの例です。呼出したプログラムからの戻りの値を出力したり、表示
したりはしていません。ＲＰＧ-IIIも同様のプログラムでＣＡＬＬによる外部プログラム呼出し
の個所が異なるだけです。（ソース省略）
２００，０００件の呼出しの結果は次のとおりです。ページアウトの影響をできるだけさけるため、
いずれも２回ＲＵＮして、２回目の値をとっています。時間の計測はそれほど正確ではありません。
ＲＰＧ-III（ＳＥＴＯＮ ＬＲあり） 約４５秒 ＲＰＧ-III（ＳＥＴＯＮ ＬＲなし） 約６秒 ＲＰＧ-IV 約１秒（もっと少ないかもしれません。）
マシンはＡＳ／４００－１７０，ＯＳはＶ４．３．０です。
テストに使用したＩＬＥ－ＲＰＧのソース
呼び出しプロシージャーは単なる回数稼ぎのプログラムです。
呼び出されるサブ・プロシージャーは日付の妥当性チェックのプログラムです。実戦使用に耐えます。
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 H*--------------------------------------------------------------- H DATEDIT(*YMD-) D*--------------------------------------------------------------- D LDAY S 2 0 DIM(12) CTDATA PERRCD(12) D LDAY2 S 2 0 DIM(02) INZ(3) D DS D W@YMD 1 8 0 D W@YY 3 4 0 D W@MM 5 6 0 D M 5 6 0 D W@DD 7 8 0 D P@RC S 1 D*-------------------------------------- D \CHKYMD PR D 8P 0 D 1 C*--------------------------------------------------------------- C *ENTRY PLIST C PARM P@CNT 6 C* 初期処理 C MOVE P@CNT W@CNT 6 0 C Z-ADD 900100 W@YMD C Z-ADD 000 X 6 0 C* ---------------------------------------------------------- C 001 DO W@CNT X C* C ADD 001 W@DD C W@DD IFGT 031 C Z-ADD 001 W@DD C ADD 001 W@MM C W@DD IFGT 013 C Z-ADD 001 W@MM C ADD 001 W@YY C ENDIF C ENDIF C* C Z-ADD W@YMD P@YMD 8 0 C CALLP \CHKYMD(P@YMD:P@RC) C* C ENDDO C* ---------------------------------------------------------- C SETON LR C RETURN P* ここからサブ・プロシージャー P \CHKYMD B D \CHKYMD PI D P@YMD 8P 0 D P@RC 1 D*--------------------------------------------------------------- D DS D W@YMD 1 8 0 D W@YY 3 4 0 D W@MM 5 6 0 D M 5 6 0 D W@DD 7 8 0 C*--------------------------------------------------------------- C* Z-ADD 0 X@MM(1) C Z-ADD LDAY2(2) X 7 0 C* 初期処理 C EXSR SBINZ C* 本処理 C EXSR SBMAIN C* 終了処理 C EXSR SBEND C*--------------------------------------------------------------- C SBINZ BEGSR C* 定義 C Z-ADD 000 W 7 0 C Z-ADD 00 R 7 0 C Z-ADD 00 LEAP 7 0 C* 閏年判定 C Z-ADD P@YMD W@YMD C W@YY DIV 04 W C MVR R C* ２月末日取得 C R IFEQ 00 C Z-ADD 01 LEAP C ELSE C Z-ADD 00 LEAP C ENDIF C ADD LEAP LDAY(2) C* C ENDSR C*--------------------------------------------------------------- C SBMAIN BEGSR C* 月チェック C W@MM IFLT 01 C W@MM ANDGT 12 C MOVE *ZERO P@RC C ELSE C* 日チェック C W@DD IFLT 01 C W@DD ANDGT LDAY(M) C MOVE *ZERO P@RC C ENDIF C ENDIF C* C ENDSR C*--------------------------------------------------------------- C SBEND BEGSR C* C SETON LR C RETURN C* C ENDSR P E ** LDAY ** 312831303130313130313031
プログラム・モジュールから実行プログラム作成
別々のコンパイル・タイミングで作成されたモジュールを組み合わせて、実行プログラムを作成する場合は
次のような手順になります。
手順１．モジュールの作成
ＣＲＴＲＰＧＭＯＤ ＭＯＤＵＬＥ（ＷＲＫＬＩＢ／ＴＥＳＴＲ） ／＊サブのつもりです。＊／
別のタイミングで（あるいは別の場所で）
ＣＲＴＲＰＧＭＯＤ ＭＯＤＵＬＥ（ＷＲＫＬＩＢ／ＴＥＳＴＲＰＧ） ／＊メインのつもりです。＊／
手順２．実行プログラムの作成
ＣＲＴＰＧＭ ＰＧＭ（ＷＲＫＬＩＢ／ＴＥＳＴＲＰＧ） ＭＯＤＵＬＥ（ＷＲＫＬＩＢ／ＴＥＳＴＲＰＧ ＷＲＫＬＩＢ／ＴＥＳＴＲ） －
ＤＥＴＡＩＬ（＊ＢＡＳＩＣ）
手順３．実行
CALL ＷＲＫＬＩＢ/TESTRPG)
以下にサンプル・プログラムを示します。
メイン・プロシージャー
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 H DATEDIT(*YMD-) D*------------------------------------ D* プロトタイプの指定 D TESTR PR D 4A D 10I 0 D*------------------------------------ D AA S 4A D BB S 10I 0 C*------------------------------------ C MOVEL '1234' AA C Z-ADD 9876 BB C* C CALLP TESTR (AA: BB ) C AA DSPLY C BB DSPLY C SETON LR
サブ・プロシージャー
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 H NOMAIN DTESTR PR D AA 4A D BB 10I 0 PTESTR B EXPORT P* ****** D*------------------------------------ DTESTR PI D AA 4A D BB 10I 0 C*------------------------------------ C* C MOVEL 'ABCD' AA C BB DIV 2 BB C* C RETURN C SETON LR P E
サブ・プロシージャーにＥＸＰＯＲＴパラメータをつけていることに注意して下さい。
これによって、入り口点ＴＥＳＴＲが外部属性をもち、他のプロシージャーから見えるようになります。
ＥＸＰＯＲＴされていないと、外部からＴＥＳＴＲの入り口点が見えません。
ＣＲＴＰＧＭでは一見ノーマルにバインドが完了するが、正常にＲＵＮしません。（ＬＯＯＰすることもある。）
（本来なら、バインドの際になんらかのメッセージがでて、しかるべきと思うのですが）
ＣＬプロシージャーの呼び出し
サンプルのみ紹介します。
ＲＰＧによるメイン・プロシージャー
ＣＬで扱える数値データはパック１０進数のみです。
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 H DATEDIT(*YMD-) D*------------------------------------ D* プロトタイプの指定 D TESTCL PR D 4A D 09P 0 D*------------------------------------ D AA S 4A D BB S 09P 0 C*------------------------------------ C MOVEL '1234' AA C Z-ADD 9876 BB C* C CALLP TESTCL (AA: BB ) C AA DSPLY C BB DSPLY C SETON LR C RETURN
ＣＬによるサブ・プロシージャー
PGM PARM(&AA &CC) DCL &AA *CHAR 4 DCL &CC *DEC 9 CHGVAR &AA VALUE('EFGH') CHGVAR &CC VALUE(&CC * 2) ENDPGM
プロトタイプについて
プロトタイプという一見わずらわしい宣言が呼び出し側にあります。
マニュアルには四の五のと説明がありますが、真相はコンパイルが別タイミングになるため、
呼び出し側からどのタイプのデータをパラメータとして準備して呼び出ししたらよいのかわからないので、
それをコンパイラーに知らせるためのもののようです。
たしか、はるかむかし、ＰＬ／１でも同じようなことがあったと記憶しています。
そのときのマニュアルには上記理由がきちんと書いてありました。そして、プロトタイプ（相当）を
記述しないと、呼び出しのときの属性でパラメータリストが作成されるとあったと思います。
関数型の呼び出し
ＩＬＥ－ＣＯＢＯＬにはＳＩＮ，ＣＯＳなどの数学関数がいくつかあるのに、ＩＬＥ－ＲＰＧには
それがありません。そのためにわざわざＣＯＢＯＬを導入するのも、と数学関数ＣＯＳ，ＳＩＮを作成し
関数呼出しをしてみました。ＳＩＮはＣＯＳの移相を９０°ずらせただけです。
プロシージャーのサンプルを紹介します。
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 *関数型の呼出しと関数プロシージャー H DATEDIT(*YMD-) *--------------------------------------------------------------- *プロトタイプの指定 ↓戻り DCOS PR 8F D 8F * DSIN PR 8F D 8F *--------------------------------------------------------------- *ＷＯＲＫエリア指定 D A S 8F * D STR DS D XX 12S11 D DUMY1 1A D CX 12S11 D DUMY2 1A D SX 12S11 D DUMY3 1A D R 12S11 * D X S 8F *--------------------------------------------------------------- C CLEAR STR C EVAL X = 0.0 C EVAL XX = X C EVAL CX = COS(X) C EVAL SX = SIN(X) C EVAL R = SIN(X)*SIN(X) + COS(X)*COS(X) C STR DSPLY * C EVAL X = 3.141592/2.0 C EVAL XX = X C EVAL CX = COS(X) C EVAL SX = SIN(X) C EVAL R = SIN(X)*SIN(X) + COS(X)*COS(X) C STR DSPLY C '---' DSPLY * C* COS 0.0 --> 0.1 C Z-ADD 000 X C X DOWLT 0.1 C EVAL XX = X C EVAL CX = COS(X) C EVAL SX = SIN(X) C EVAL R = SIN(X)*SIN(X) + COS(X)*COS(X) C STR DSPLY C ADD 0.01 X C ENDDO C SETON LR C* C RETURN *================================================================= *ここから自作関数 PCOS B *関数型の戻りを示す ↓ DCOS PI 8F D X 8F * D T S 8F D Y S 8F D WK S 8F D N S 7P 0 C*--------------------------------------------------------------- C Z-ADD 001 Y C Z-ADD 001 T C Z-ADD 001 N *テーラー展開による計算 C 001 DO 999 N C EVAL T = -T*X*X/((2*N)*(2*N-1)) *絶対値を取得 C Z-ADD T WK C T IFLT 0 C 0 SUB T WK C ENDIF * C WK IFLE 0.1E-11 C LEAVE C ELSE C EVAL Y = Y + T C ENDIF C ENDDO C RETURN Y PCOS E *---------------------------------------------------------------- PSIN B *関数型の戻りを示す ↓ DSIN PI 8F D X 8F * D Y S 8F D W S 8F C*--------------------------------------------------------------- C EVAL W = X -3.14159265/2.000000000000 C EVAL Y = COS(W) C RETURN Y PSIN E
計算はテーラー展開による多項式の近似計算を行っています。
近似したかどうかは、高次項の計算結果が、十分０に近いかどうかで判定しています。
計算は倍精度の浮動小数点（ＦＯＲＴＲＡＮではＲＥＡＬ＊８相当）で行っています。
プロトタイプおよび独立変数（スカラー）の定義に８Ｆとあるのが浮動小数点の定義です。
関数型の中にある、定数０．１Ｅ－１０は０．１＊１０のマイナス１０乗、すなわち
０．００００００００００１のことです。まちがっても、０．０とやらないでください。
近似のための繰返しはせいぜい１２、３回です。あたえるパラメータの値によって繰り返し回数はかわります。
◆原子力コードによるシミュレーションでもないかぎり、十分実用に耐えるはずです。
プログラムのコンパイル
このプログラムのコンパイルは、モジュール経由でバインドするのでないので、
（すなわち、一気に実行プログラムをつくるので、）ＣＲＴＢＮＤＲＰＧで行います。
ＤＦＴＡＣＴＧＲＰパラメータを＊ＮＯとすることを忘れないで下さい。
関数型呼出しの要点
１．呼出し側のプロトタイプ指定で戻りのデータ属性をつけます。
２．呼出しは、ＥＶＡＬ命令でＹ＝ＣＯＳ（Ｘ）のように関数型の呼出しをします。
３．関数型のサブプロシージャーではインターフェイスで戻りのデータ属性をつけます。
４．同プロシージャーの中では、ＲＥＴＵＲＮ Ｙのように戻す式を指定します。
近いうちに、ＴＡＮ，ＬＯＧ，ＬＯＧ１０など作ってみたいと思っています。
次ページへ 目 次 へ
（Ｃ）ＣＯＰＹＲＩＧＨＴ ＩＳＨＩＯＫＡ ＫＡＴＳＵＨＩＤＥ ２０００、２０１１