ＲＰＧ PL/1特有の機能
前ページ 目次



ＰＬ／１はＦＯＲＴＲＡＮ，ＣＯＢＯＬについでＧＵＩＤＥ，ＳＨＡＲＥというユーザー団体が
中心となって仕様をまとめ、メーカーにリクエストした言語といわれています。
ＰＬ/1も固有名詞というより、リクエストしたA　Ｐｒｏｇｒａｍｉｎｇ　Ｌａｎｇｕａｇｅ/１であったとか。
その内容は、２０年以上も前まとめられたとは思えないほど、機能豊富でかつ整理統合
された体系になっています。
このページでは、その中から他の言語がまねのできない（まねしたくない）部分を紹介します。
この部分は、少々の努力では変換ツールをつくることが困難な機能で、変換するのは
泥臭く、手作業しか解決方法がないのではないかと思っています。
ＲＰＧ-IVはここでは単にＲＰＧと呼ぶことにします。


ＰＬ／１独自の機能


ストリーム型入出力

ストリーム型入出力はデータを一連の続きとして、レコード長に関係なく入出力するものです。
ＲＰＧには対応する機能がありません。
今、以下のようなレコード長３０のファイルがあるとして、これを１０、１５、２０バイトの
文字列フィールドＸＸ，ＹＹ，ＺＺに入力するとします。

データファイル（レコード長：30バイト）
AAAAAAAAAABBBBBBBBBBCCCCCCCCCC
DDDDDDDDDDEEEEEEEEEEFFFFFFFFFF
GGGGGGGGGGHHHHHHHHHHIIIIIIIIII
JJJJJJJJJJKKKKKKKKKKLLLLLLLLLL
MMMMMMMMMMNNNNNNNNNNOOOOOOOOOO

これを、１０、１５、２０バイトの文字列フィールドＸＸ，ＹＹ，ＺＺに３回入力した場合、次のようになります。
        GET  EDIT(XX, YY, ZZ)  (A(10), A(15), A(20)) ; /* １回目 */
        GET  EDIT(XX, YY, ZZ)  (A(10), A(15), A(20)) ; /* ２回目 */
        GET  EDIT(XX, YY, ZZ)  (A(10), A(15), A(20)) ; /* ３回目 */


１回目 
XX :'AAAAAAAAAA'  YY:'BBBBBBBBBBCCCCC' ZZ:'CCCCCDDDDDDDDDDEEEEE'
２回目 
XX :'EEEEEFFFFF'  YY:'FFFFFGGGGGGGGGG' ZZ:'HHHHHHHHHHIIIIIIIIII'
３回目 
XX :'JJJJJJJJJJ'  YY:'KKKKKKKKKKLLLLL' ZZ:'LLLLLMMMMMMMMMMNNNNN'

出力の場合も同様で、データの流れが主記憶装置から外部記憶装置へと方向がかわるだけです。


ストリーム入出力の一般形

入力：　ＧＥＴ　ＦＩＬＥ（ファイル名）　　　　　　　　　　　　　　　　ＥＤＩＴ　（変数リスト）　（変換様式のリスト）；
出力：　ＰＵＴ　ＦＩＬＥ（ファイル名）　改頁・改行のパラメータ 　ＥＤＩＴ　（式のリスト）　（変換様式のリスト）；


編集仕様

外部とのデータの転送の際、データを外部形式　⇔　内部形式の形式変換を行うときの仕様です。

編集仕様 意味
A(m) 文字列として無編集で転送。ｍはフィールド桁数。
出力のときはｍは省略可。このとき、長さは変数の長さに合わされます。
F(m,n) 固定小数点数として編集。ｍはフィールド桁数。ｎは少数以下桁数。
ｎは省略可能。省略すると少数以下なしとなります。
X(m) 固定小数点数として編集。ｍはフィールド桁数。ｎは少数以下桁数。
ｍ桁のブランクになります。
P'999,999' ピクチャー仕様による編集です。前ゼロ消去なしです。
P'ZZZ,ZZZ' ピクチャー仕様による編集です。前ゼロ消去ありです。
Ｖは小数点位置を示します。負の値のとき、−符号が後に付けられます。
P'99/99/99' ＲＰＧでの編集コードＹに相当する編集です。
SKIP よみ残りデータをスキップし、レコードの先頭から編集するよう同期を取ります。

同一使用の繰返し

変換仕様の前に数値をおくと繰り返し数になります。
２ Ｆ（５，１）は、（Ｆ（５，１），Ｆ（５，１））と同じです。


ＰＵＴ命令

ＰＵＴ　 ［ＰＡＧＥ／ＳＫＩＰ［（ｎ）］／ＬＩＮＥ（ｎ）］ 　ＥＤＩＴ（式のリスト） （編集仕様リスト）；

ＰＡＧＥ： 　　　印刷に先立ち、改ページします。
ＬＩＮＥ（ｎ）：　 次のｎ行目に位置づけします。
ＳＫＩＰ（ｎ） ：　印刷に先立ち、ｎ回改行します。（ｎ）を省略すると１回改行します。
ＥＤＩＴ（　　）： 変数のリストを指定します。構造名を記述するとその要素を全て記述したことと同じになります。
編集リスト ：　出力するときの編集要領のリストを記述します。
　　　　　　　　リストの要素が足りないとき、元に戻って繰返し使用されます。


ストリームＩ/ＯのＰＬ／1からＲＰＧへ変換の際の解決策

ＲＰＧに対応する命令がないＧＥＴ，ＰＵＴの命令に対する変換の解決策としては、次の方法をとるのがいいと思います。

出力の場合
１．出力の場合は、印刷ファイルを記述して、印刷ファイルを使用した出力（ＷＲＩＴＥ命令）を行う。
２．出力様式の同等の構造を定義仕様書（Ｄ仕様書）で作成し、これを出力（ＥＸＣＰＴ命令）する。

入力の場合
１．入力様式同等の構造を、定義仕様書に作成し、この構造に入力を行う。

いずれにしても、泥臭い手作業しかないようです。


複数割付

Ｉ，Ｊ，Ｋ＝０；は、
　　　Ｉ＝０；Ｊ＝０；Ｋ＝０；
に同じ意味です。すなわち、ＲＰＧでは
　　　ＥＶＡＬ　　　I　＝　０
　　　ＥＶＡＬ　　　Ｊ　＝　０
　　　ＥＶＡＬ　　　Ｋ　＝　０
と同じです。


複数定義

ＤＣＬ　　（Ｉ，Ｊ，Ｋ）　　ＣＨＡＲ（３）　；
は
ＤＣＬ　　Ｉ　　ＣＨＡＲ（３）；
ＤＣＬ　　Ｊ　　ＣＨＡＲ（３）；
ＤＣＬ　　Ｌ　　ＣＨＡＲ（３）；
と同じです。


その他

ＰＩＣ様式、’ＺＺＺ，ＺＺＺ，ＺＺ’の属性をもった変数での計算。

ＤＣＬ　　Ｘ　　Ｐ’Ｚ，ＺＺＺ’；
Ｘ　＝　Ｘ　＋　１　；

ＰＬ／１では可能ですが、ＲＰＧはもちろん、ＣＯＢＯＬでも不能です。


ソース・マージン

ＰＬ／１のスペックではありませんが、ＰＬ／１ソースとして有効な範囲を示す、
ソース・マージンが、コンパイルのときに指定できます。
標準値は、２カラムから７２カラムです。ソース・マージンの範囲外は注釈などとして
自由に使用できます。
随時、判明の都度追補します。m（--）m




前ページ 目次


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