RECCUR (DSEB のみ)

図 1. Syntax

1 RECCUR()

(FASTREXX プロシージャーで使用できます。)

現在のレコード番号を戻します。

例

現行レコードがファイルで 100 番目のレコードである場合に、そのレコードを印刷します。

If RECCUR() = 100 Then PRINT(inrec,'CHAR')