RECSIN


1 RECSIN()

これまでに、入力データ・セットから読み取られ、REXX プロシージャーに渡された、 レコード読み取りカウントを戻します。テンプレートによって選択された入力レコードのみが REXX プロシージャーに渡されて、RECSIN によって戻される総数に含められます。

100 番目ごとのレコードを印刷します。
if RECSIN()//100 = 0 then PRINT(inrec,'CHAR')