RPGの配列について

0040.00 E NMK 20 1

0200.00 C MOVELP1NMK NMK
0201.00 C*
0202.00 C 1 DO 20 Y 20
0203.00 C NMK,Y IFEQ *BLANK
0204.00 C MOVEL*HIVAL NMK,Y
0205.00 C ENDIF
0206.00 C ENDDO
0207.00 C*
0208.00 C SETOF 92
0209.00 C P1NMK SETLLEDTML01
0210.00 C*
0211.00 C *IN92 DOWEQ*OFF
0212.00 C READ EDTML01 92
0213.00 C TMNMK IFGT NMK
0214.00 C SETON 92
・・・・・
こんな感じでやっているんですが２１３行目のところでコンパイル落ちちゃいます・・・
エラーでは
指定された演算命令に対して演算項目２の配列名が正しくない
とでます
ちなみにＴＭＮＭＫはカナ名称属性Ａで２０桁です。
演算項目２に配列名を入れることは無理なのでしょうか？

No.2 ベストアンサー 回答者： taranko 回答日時： 2002/02/26 10:40

＞0213.00 C TMNMK IFGT NMK

ここで２０桁のものと、１桁を比べれるか自体やったことが無いので
わからないのですが、演算項目２に配列名を入れることは可能です。

E AR6 3 5 1

C 1 DO 3 A
C WSJYUR IFLE AR6,A
C 処理
C ENDDO
このように配列の数だけループさせて調べる方法があります。
hisajiroさんの場合は配列の何番目を使って調べたら良いのか
指定されていなかったのでコンパイルエラーになったのでは
無いでしょうか（，A）の部分です。
いかがでしょうか。

この回答へのお礼

0040.00 E NMK 20 1

0052.00 I DS
0053.00 I 1 20 NMK
0054.00 I 1 20 P1NMK
0055.00 I 1 20 WNMK

これでやってみたらうまくいきました。
ありがとうございます＾＾

お礼日時：2002/02/26 10:58

No.1 回答者： miria 回答日時： 2002/02/26 10:39

目的が良く分からないプログラムですが この場合の演算横目２は NWK,x の形をとるか 事前にMOVEA コマンドで配列全体を変数に移送しておくと良いのではないでしょうか。

TMNNKと比較する配列のブランクを事前に*HIVILに置き換える意味も良く分かりません。

AS/400にはINFOSEEKERが導入されていれば マニュアルと同等の内容が検索できますのでご確認下さい。

蛇足ですがこのサイトでAS/400 RPGの回答が得られるのは機会が少ないと思いますので AS/400関連のＦＡＱサイト等を検索されてはいかがでしょうか。

この回答へのお礼

ありがとうございます。
このプログラム自体は名称の類似検索の為に組んでいるものです。
このサイトでもＡＳ／４００関連の回答は結構あるので役にたっています＾＾
また何かあったらお願いします

お礼日時：2002/02/26 10:56