IBMi(AS400)ユーザーの為の情報ページ(作成中)

ILE RPGでは、命令コードも進化しています。

 

ここではよく利用する命令コードを紹介します。

 

・IF (RPGⅢはIFEQのみ利用可能)

条件が1つの場合

RPGⅢ

C           A         IFEQ *BLANK

ILE RPG

C                   IF        (A = *BLANK)

ILE RPG(フリーフォーマット)

 /FREE

        IF   (A = *BLANK);

 /END-FREE

 

条件が2つの場合

RPGⅢ

C           A         IFEQ *BLANK

C           B         ANDEQ*BLANK

ILE RPG

C                   IF        (A = *BLANK) AND

C                             (B = *BLANK)

ILE RPG(フリーフォーマット)

 /FREE

        IF   (A = *BLANK) AND (B = *BLANK);

 /END-FREE

 

・EVAL (RPGⅢはMOVEL,ADD,SUBを利用)

RPGⅢ

C                     MOVEL*BLANK    A

C                     Z-ADD*ZERO     B

C           C         SUB  1         D

ILE RPG

C                   EVAL      A = *BLANK

C                   EVAL      B = *ZERO

C                   EVAL      D = C - 1;

ILE RPG(フリーフォーマット)

 /FREE

        EVAL  A = *BLANK;

        EVAL  B = *ZERO;

        EVAL  D = C - 1;

 /END-FREE

 

・CHAIN

RPGⅢ

C           KEY       CHAIN#FLXX                90

ILE RPG

C     KEY           CHAIN     #FLXX
ILE RPG(フリーフォーマット)

 /FREE

        CHAIN KEY #FLXX;

 /END-FREE