				Wiki
	updated on 2004.06.23

7.28.RPG IVと組み込み関数（BIF）の例5

[ Previous ] [ HOME ] [ Upper ] [ Next ]

%EQUALの使用例

C     KEY           SETLL     AFILE                                     
C*                                                                      
C                   IF        %EQUAL(AFILE)                             
C*                                                                      
C                   ENDIF                                               
C*                                                                      
C                   Z-ADD     1             XX                          
C     FLD           LOOKUP    ARY(XX)                            10  12 
C*                                                                      
C                   IF        %EQUAL                                    
C*                                                                      
C                   ENDIF

SETLL 命令の場合、この関数は、そのキーまたは相対レコード番号が検索引き数に等しいレコードが存在する場合に '1' を戻します。

EQ 標識を指定した LOOKUP 命令の場合、この関数は、検索引き数に正確に一致する要素が見付かった場合に '1' を戻します。

75～76 桁目に標識を指定した場合、%EQUAL 組み込み関数は、検索引き数に正確に一致する要素が見付かった場合に '1' を戻します。 %FOUND 組み込み関数は、指定された検索が成功した場合に '1' を戻します。

2001-2-9

[ Previous ] [ HOME ] [ Upper ] [ Next ]

You are at K's tips-n-kicks of AS/400

SEO		[PR] 爆速!無料ブログ無料ホームページ開設無料ライブ放送