RPG

23. RPG内部での文字列を中央にセットするには?

CHEKR とはフィールドの右端から左に向かって文字を検索するRPG命令である。

CHEKR を応用して文字を中央に配置させることができる。

ソースコード
0001.00      C******************************************************
0002.00      C*  NAME を 35 バイトの CENTER の中央にセットする。
0003.00      C******************************************************
0004.00      C           ' '       CHEKRNAME      N       40
0005.00      C           35        SUB   N        N
0006.00      C                     DIV   2        N
0007.00      C           ' '       CAT  NAME:N    CENTER