|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
7.29.RPG IVと組み込み関数（BIF）の例6 | |||||||||
%EOFの使用例DOWとともにC EXSR @HED C* C READ AFILE C* C DOW NOT %EOF(AFILE) C EXSR @DTL C READ AFILE C ENDDO C* C EXSR @END C* C MOVE *ON *INLR C RETURN DOUとともにC EXSR @HED C* C DOU %EOF(AFILE) C* C READ AFILE C IF NOT %EOF(AFILE) C EXSR @DTL C ENDIF C* C ENDDO C* C EXSR @END C* C MOVE *ON *INLR C RETURN DOWとともに（２）このやり方は、残念ながらお勧めできません。%EOFはオフにできないため、DOW前に%EOFがオンだと、DOWに入らないためです。 C EXSR @HED C* C DOW NOT %EOF(AFILE) C READ AFILE C IF NOT %EOF(AFILE) C EXSR @DTL C ENDIF C ENDDO C* C DOW NOT %EOF(AFILE) C READ AFILE C IF NOT %EOF(AFILE) C EXSR @DTL C ENDIF C ENDDO C* C EXSR @END C* C MOVE *ON *INLR C RETURN 2001-2-9 |
|
You are at K's tips-n-kicks of AS/400
|
|
|||
|
|
