%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とともに(2)
このやり方は、残念ながらお勧めできません。%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
|