ＲＰＧ PL/1←→ ＲＰＧ対応
次ページ 目次



ＰＬ／１（ピー・エル・ワン）のサポートが中止になりました。
ＰＬ／１を使用していた方たちにとって、新言語への乗換はかなりな負担と思われます。
ここでは、多少なりとも手助けとなるよう、ＰＬ／１と基本思想が比較的似ている、
ＲＰＧ-IV（ＩＬＥ−ＲＰＧ）と対比させてＰＬ／１を紹介します。
ＲＰＧ-IVはここでは単にＲＰＧと呼ぶことにします。

一般形


ＰＬ／1

ＰＬ／Ｉのプログラムはメイン・プロシージャーとサブ・プロシージャーからなります。
サブ・プロシージャーはメイン・プロシージャーに含まれる場合と、サブ・プロシージャー
だけで、独立して存在する場合とがあります。
また、サブ・プロシージャーの中に更にサブ・プロシージャーを包含することもできます。（汎用機の場合）
メイン／サブとも、ＰＲＯＣＥＤＵＲＥ（省略形ＰＲＯＣ）で始まり、それと対になるＥＮＤで終了します。
メイン・プロシージャーの始まりのＰＲＯＣＥＤＵＲＥの命令には，ＯＰＴＩＯＮＳ（ＭＡＩＮ）
のパラメータをつけます。


ＲＰＧ

ＲＰＧはメイン・プロシージャー、サブ・プロシージャー、サブ・プログラムからなります。
プロシージャーはメイン／サブの２階層のみです。
メイン／サブそれぞれのプロシージャーはサブ・プログラムを包含できます。
サブ・プログラムは演算仕様書のＢＥＧＳＲで始まり、同じくＥＮＤＳＲで終わります。
メイン・プロシージャーは制御仕様書（仕様書コード：Ｈ）で始まります。
サブ・プロシージャーは２４桁目にＢを指定したプロシージャー仕様書で始まり、同じくＥを
指定したプロシージャー仕様書で終わります。

例ー１:比較的単純なＰＬ／１プログラム

PGM111     : PROC OPTIONS(MAIN) ;                       
      DCL 1  WORK,                                      
             2   YMD1     PIC  '999999' ,               
             2   YMD1A    PIC  '99999999';              
      YMD1   = 991212 ;                                 
      CALL  Y2K  (YMD1, YMD1A);                         
      RETURN ;                                          
/*- SUB PROC ------------------------------- */         
Y2K : PROC (YMD2, YMD2A) ;                              
                                                        
      DCL    YMD2     PIC  '999999' ,                   
      DCL    YMD2A    PIC  '99999999' ;                 
      IF  YMD2    >   900000   THEN                     
            YMD2A    =  YMD2     + 19000000 ;           
      ELSE                                              
            YMD2A    =  YMD2     + 20000000 ;           
      END ;                                             
      END ;                                             
      END ;

このプログラムはメイン・プロシージャーから、サブ・プロシージャーＹ２Ｋを呼出しています。
データの受渡しはパラメータで受け渡しています。対応するＲＰＧを示します。

例：対応するＲＰＧ

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                   CALLP     SUBY2K (YMD1:YMD1A)                    
C     YMD1A         DSPLY                                            
C                   SETON                                        LR  
C                   RETURN                                           
** ここからサブ・プロシージャー                                        
**               ↓サブ・プロシージャーの始まり
P SUBY2K          B                                                    
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                                                    
*                ↑サブ・プロシージャーの終わり

ファイル定義


ＰＬ／１

ＰＬ／１ではファイルの定義はＤＥＣＬＡＲＥ（省略形はＤＣＬ、以下ＤＣＬとします）命令で行ないます。
一般形は次のとおりです。

ＤＣＬ     ＦＩＬＥ名    属性リスト；

属性リストは、ブランクで区切ったファイルの属性を並べたもので、その順序は任意です。
ファイルの属性には次のようなものがあります。

属性 意味
FILE データタイプがファイルである
RECORD/STREAM レコード型入出力をするか、ストリーム型入出力をするか。
INPUT/OUTPUT/UPDATE 入力ファイルか、出力ファイルか、入出力ファイルか
PRINT 印刷属性
SEQUENTIAL/DIRECT 順次アクセスファイルか、直接アクセスファイルか
KEYED キー利用アクセスかそうでないか。
ENVIRONMENT 外部依存属性
     INTERACTIVE 会話型装置ファイル
     INDEXED インデックスあり
     DESCRIBED 外部記述情報使用

ＤＣＬは非実行命令です。実行命令より後にあっても差し支えありません。

ＲＰＧ

ＲＰＧではファイルの定義はファイル仕様書で行います。ファイル仕様書の順序は、制御仕様書
の後です。ファイル仕様書を記述できるのはメイン・プロシージャーのみです。
以下に例を示します。

例：印刷出力ファイル

ＰＬ／1 
	DCL  QPRINT  FILE STREAM OUTPUT PRINT;
ＲＰＧ 
      ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
      FQPRINT    O    F  132        PRINTER OFLIND(*INOV)
厳密な意味での対応ではありません。

例：画面ファイル
ＰＬ／１ 
    DCL  RM420S  FILE RECORD SEQUENTIAL UPDATE ENV(INTERACTIVE);
ＲＰＧ 
    ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
      FM420L02   IF   E           K DISK


例：順次よみするキー付きファイル
ＰＬ/1 
    DCL  M420L02  FILE RECORD SEQUENTIAL KEYED  INPUT  
                                   ENV(INDEXED DESCRIBED);
ＲＰＧ 
     ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
     FM420L02   IF   E           K DISK


例：直接読取するデータベースファイル

ＰＬ/1 
	DCL  M420  FILE RECORD DIRECT KEYED UPDATE  ENV(INDEXED DESCRIBED);
ＲＰＧ 
     ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
     FM420      UF A E           K DISK


配列、データ構造、変数名の定義


ＰＬ／１

ＰＬ／１ではＤＣＬ命令で行います。
一般形は次のとおりです。

ＤＣＬ 変数名 属性リスト ［，変数名 属性リスト［，・・・］］；
属性 意味
CHARACTER/PICTURE/BIT 文字列、１０進数、ピクチャー属性、ビット列
FIXDE/FLOAT 固定小数点データ／浮動小数点データ
DECIMAL/BINARY １０進数／２進数
BASED 基点アドレス属性
STATIC/AUTOMATIC 静的／自動アロケーション属性
INITITIAL 初期値属性

ＰＬ／１でデータ構造を定義するときは、名称の前にそのレベル番号をつけます。
配列を定義するときは、変数名の後ろに、（ ）にいれた次元属性、要素数を記述します。
初期値は、ＩＮＩＴキーワードパラメータで、（ ）内に初期値のリストとして与えます。

例：

工事中

ＲＰＧ

ＲＰＧでは定義仕様書で定義のタイプを指定して定義します。
データ構造の場合は，定義のタイプを’ＤＳ’とします。
配列の場合は、定義のタイプを’Ｓ’とし、キーワードパラメータＤＩＭで要素数とともに指定
します。

初期値

初期値はキーワードパラメータＩＮＺで与えます。


例：ＰＬ/1　ＩＮＩＴパラメータによる初期値
         DCL 1 FLD444,                                                   
             2   FLD02    CHAR      (12)  INIT('111111111122'),        
             2   FLD03    CHAR      (52)  INIT(                        
　　　　　　　    ' ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ１２３４ ');

例：ＲＰＧ　ＩＮＺパラメータによる初期値
     DFLD444           DS                                          
     D FLD02                     000012    INZ('111111111122')               
     D FLD03                     000052    INZ(' ＡＢＣＤＥＦＧＨＩＪＫＬＭＮ -  
     D                                      ＯＰＱＲＳＴＵＶＷＸＹＺ１２３４ ')


配列に複数の初期値をあたえるときは、キーワードパラメータＣＴＤＡＴＡを指定し、コンパイル時配列とします。
このとき、１レコードあたりのデータ件数もＰＥＲＲＣＤパラメータであたえます。

例：ＰＬ/1配列に複数の初期値
         DCL FFFF(20)          CHAR(8) STATIC INIT(                    
                'AAA02-01','AAA02-02','AAA02-03','AAA02-04','AAA02-05',
                'AAA03-01','AAA03-02','AAA03-03','AAA03-04','AAA03-05',
                'AAA04-01','AAA04-02','AAA04-03','AAA04-04','AAA04-05',
                'AAA05-01','AAA05-02','AAA05-03','AAA05-04','AAA05-05' 
               );

例：ＲＰＧ，コンパイル時配列による初期値
ＲＰＧプログラムの末尾

	プログラム途中省略

     C                   ENDDO                      
** FFFF                                             
AAA02-01                                            
AAA02-02                                            
AAA02-03                                            
AAA02-04                                            
AAA02-05                                            
AAA03-01                                            
AAA03-02                                            
AAA03-03                                            
AAA03-04                                            
AAA03-05                                            
AAA04-01                                            
AAA04-02                                            
AAA04-03                                            
AAA04-04                                            
AAA04-05                                            
AAA05-01                                            
AAA05-02                                            
AAA05-03                                            
AAA05-04 
AAA05-05


サブ・プロシージャー内での定義と有効範囲


ＰＬ／１
ＤＣＬで定義します。定義した項目の有効範囲は、そのプロシージャーとその内側のプロシージャーのみです。

ＲＰＧ
定義仕様書で定義します。定義した項目の範囲は、そのプロシージャーとその内側のプロシージャーのみです。
サブ・プロシージャー何も指定しないと属性はＰＬ/1でのＡＵＴＯＭＡＴＩＣ相当の属性になります。


構造名、変数名の桁数



構造名、変数名の桁数はＰＬ／１は最大３１桁です。ＲＰＧは１４桁です。


演算命令


ＰＬ／1

プロシージャーの内部に実行順を考慮して記述します。
ＰＬ／１は自由形式で一般形は、

ラベル： 命令 　定置パラメータ 　キーワードパラメータ　［キーワードパラメータ］ ；

の形です。

ラベルと命令は：（コロン）で区切ります。ラベルは省略できます。
命令文の終わりは；（セミコロン）で終わります。
１行に複数の命令文を記述することもできます。

例：
  STEP10 : READ  FILE(FILE10)  INTO(FILE10R) ;


ＲＰＧ

演算仕様書（仕様書コード：Ｃ）に実行順、実行条件などを考慮して記述します。
ＲＰＧ-IIIからの様式を引き継ぐ場合は、固定カラム様式ですが、ＥＶＡＬなど拡張様式を
使用する場合は、拡張様式(EXTENDED-FACTOR2)の部分)は自由形式です。

     CL0N01FACTOR1+++++++OPCODE&EXTEXTENDED-FACTOR2+++++++++++++++++++++++++ 
     C                   EVAL      XXXX    = ( AAA + BBB )                   
     C                                     / ( CCC - DDD )


各種演算命令


割付

ＰＬ／１

変数名　＝　式　；の形はＲＰＧでは、　ＥＶＡＬ　　変数名　　＝　　式　が対応します。
記述様式は拡張様式です。

例：
ＰＬ/1 
             XXX   =  DAY  - YY * 10000 - MM * 100 ;
ＲＰＧ 
     ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+
     C                   EVAL      XXX = DAY  - YY * 10000 - MM * 100 
     C*     トークンの途中でなければ、継続は自由です。
     C                   EVAL      XXX 
     C                             = DAY - YY * 10000 
     C                             - MM * 100

条件による実行制御


ＩＦ

ＩＦ命令はＲＰＧではＩＦ，ＥＬＳＥ，ＥＮＤＩＦの複数の命令を組み合わせて実現します。
例：
ＰＬ/1 
       IF   ABIT = 1  THEN  WDUP = WDUP + 1 ;          
                      ELSE  WDUP = WDUP - 1 ;
ＲＰＧ 
     ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 .
     C                   IF        ABIT = 1                                         
     C                   EVAL      WDUP = WDUP + 1                  
     C                   ELSE
     C                   EVAL      WDUP = WDUP - 1
     C                   ENDIF


ケースによる複数条件分岐

複数条件による分岐はＳＥＬＥＣＴ，ＷＨＥＮｘｘ，ＯＴＨＥＲ，ＥＮＤＳＬの複数の命令を組み合わせて実現します。
例：
ＰＬ/1 
           SELECT (KUBUN) ;                 
             WHEN ('10') GOTO  LBL10;        
             WHEN ('20') MSG1='BBBBBBBB' ;       
             WHEN ('30') MSG1='CCCCCCCC' ;    
             OTHERWISE   MSG1='        ' ;
           END ;
ＲＰＧ 
     ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+.
     C                   SELECT                                             
     C     KUBUN         WHENEQ    '10'                                     
     C                   GOTO      LBL10                                    
     C     KUBUN         WHENEQ    '20'                                     
     C                   EVAL      MSG1 = 'BBBBBBBB'                        
     C     KUBUN         WHENEQ    '30'                                     
     C                   EVAL      MSG1 = 'CCCCCCCC'                        
     C                   OTHER                                              
     C                   EVAL      MSG1 = *BLANK                            
     C                   ENDSL

繰返し処理の制御



ＤＯ 増分指定の繰返し

増分指定の繰返しは、ＲＰＧでは項目１に初期値、項目2の終了値、結果のフィールドに変数を与えます。
例：
ＰＬ/1 
      DO  X = 1 TO 10 ;
ＲＰＧ 
     ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
     C     1             DO    10            X


ＤＯ 数値リストの繰返し

ＤＯ　Ｘ　＝　３，１，４，１，５，９，２　の形式の値を任意に変えての繰返しは、
ＲＰＧには該当機能はありません。


ＤＯ ＵＮＴＩＬ（ 式 ）

ＵＮＴＩＬ型の繰返しはＲＰＧではＤＯＵ命令が対応します。繰返しの条件式は拡張様式の項目２に記述します。
例：
ＰＬ/1 
       DO  UNTIL(AA=BB | CC<>DD) ; CC = DD ; END;
ＲＰＧ 
     ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
     C                   DOU       AA=BB OR CC<>DD                     
     C                   EVAL      CC=DD                               
     C                   ENDDO


ＤＯ　ＷＨＩＬＥ（式）

ＷＨＩＬＥ型のの繰返しは、ＲＰＧではＤＯＷ命令が対応します。繰返しの条件式は拡張様式の項目２に記述します。

ＰＬ/1 
       DO  WHILE((A=B) | SUBSTR(AA,BB,CC) = 'DDD') ; 
           C = D ;                                   
       END ;
ＲＰＧ 
     ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 .
     C                   DOW       (A=B) OR %SUBST(AA:BB:CC) = 'DDD'      
     C                   EVAL      C=D                                    
     C                   ENDDO


入出力命令


ＰＬ／１の入出力はストリーム型とレコード型があります。
ストリーム型は、プログラムからみたとき、データを一連の紐のような感じで入出力するもので
たとえ１レコードが８０バイトであったとしても、レコード長さに関係なく、４０バイト、３０
バイト、５０バイトのように入出力するものです。
一方、レコード型は、１回の入出力命令で１レコード分だけプログラムに読取りあるいは書出しします。


ストリーム入出力

入力はＧＥＴ，出力はＰＵＴという命令ですが、ＲＰＧには対応する命令も機能もありません。

レコード入出力

順次、直接、画面との入出力にわけられます。

順次入出力

順次入出力をするには、ファイルはＳＥＱＵＥＮＴＩＡＬの属性であることが必要です。（ＤＣＬ参照）
一般形は次のとおりです。［　　］は省略可能を意味します。

ＲＥＡＤ 　ＦＩＬＥ（ファイル名） 　ＩＮＴＯ（レコード名）　［ＫＥＹＴＯ（キーフィールド名）］
ＷＲＩＴＥ　ＦＩＬＥ（ファイル名）　ＦＲＯＭ（レコード名）　［ＫＥＹＦＲＯＭ（キーフィールド名）］

ＲＰＧではＲＥＡＤ／ＷＲＩＴＥ（あるいはＥＸＣＰＴ）命令が対応します。

例：順次読み取りの例
ＰＬ/1 
           READ  FILE(M420)  INTO(M420R) ;
ＲＰＧ 
     ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. 
     C     P@SLNO        READ      M420R                                  99


直接入出力

直接入出力をするには、ファイルはＤＩＲＥＣＴ属性であることが必要です。（ＤＣＬ参照）
一般形は次のとおりです。［　　］は省略可能を意味します。

ＲＥＡＤ 　ＦＩＬＥ（ファイル名） 　ＩＮＴＯ（レコード名）　ＫＥＹ（キーフィールド名）
ＲＥＷＲＩＴＥ　ＦＩＬＥ（ファイル名）　ＦＲＯＭ（レコード名）　［ＫＥＹ（キーフィールド名）］

ＲＰＧではＣＨＡＩＮ/ＵＰＤＡＴＥが対応します。

ＰＬ/1 
      READ  FILE(M420)  INTO(M420R)  KEY(S1TKNO)
ＲＰＧ 
     ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. 
     C     S1TKNO        CHAIN     M420R                              99


画面への入出力

ＰＬ／１ではＷＲＩＴＥ命令とＲＥＡＤ命令で行いますが、ＲＰＧでは両方の機能を持った
ＥＸＦＭＴ命令があります。

例：ＰＬ／１
          WRITE FILE(FILE111) FROM(FLD111) OPTIONS(RECORD('PANEL01')    
                                           INDICATORS(IND111));  
          READ  FILE(FILE111) INTO(FLD111) OPTIONS(RECORD('PANEL01')    
                                           INDICATORS(IND111));

例：ＲＰＧ
                C                   EXFMT     PANEL01


例外処理


ＰＬ／１での例外処理はＯＮ命令により、例外条件が発生したときの処理を記述します。
処理は１命令だけのこともあり、ＢＥＧＩＮブロックを構築して複数の命令を実行させることもできます。
ＯＮ命令は実行命令です。ＤＣＬのような非実行命令ではありません。
ＲＰＧではこの機能に対応する命令はありません。

例：
ON ENDFILE(M420) GO TO LAST;

この例では、ＥＮＤＦＩＬＥ条件が発生したとき、ＬＡＳＴへ実行を移すよう指定して
います。

ON ENDFILE(M420) BEGIN ;
　　　　MSG1 = 'BUTSU BUTSU' ;
　　　　MSG2 = 'GUCHI GUCHI' ;
　　　　GO TO YAMETA;
END ;
この例では、ＥＮＤＦＩＬＥ条件が発生したとき、ＭＳＧ１とＭＳＧ２に値をセットしてＹＡＭＥＴＡへ
実行を移すようにしています。


ＲＰＧではこれらの処理を完全に代替することはできないので、実行結果の標識で処理するか
％ＥＲＲＯＲのような関数を使用して代用処理することが必要です。




次ページ 目次



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