PROCEDURE DIVISION.
*
*Ｆ１ファイルを出力モードで開く
OPEN OUTPUT F1.
*
*ＣＮＴが１００になるまで以下の処理を行う
PERFORM UNTIL CNT = 100
*Ｗ１Ｒ（Ｆ１ファイルのレコードエリア）を初期化
INITIALIZE W1R
*システム時刻を獲得（この処理いらない）
ACCEPT WTIME FROM TIME
*添え字Ｓが５以上になるまで以下の処理を行う
PERFORM VARYING S FROM 1 BY 1
UNTIL S > 5
*ＣＮＴに１を加算
ADD 1 TO CNT
*システム時刻を獲得
ACCEPT WTIME FROM TIME
*Ｗ１Ｒ（Ｆ１ファイルのレコードエリア）の各項目編集
MOVE CNT TO W-CNT(S) *>CNT(件数？)
MOVE HH TO W-HH(S) *>システム時
MOVE MM TO W-MM(S) *>システム分
MOVE SS TO W-SS(S) *>システム秒
END-PERFORM
*Ｆ１ファイルへレコードを書き出す
WRITE F1R FROM W1R
*Ｗ１Ｒ（Ｆ１ファイルのレコードエリア）を
*（画面又は帳票に）表示する
DISPLAY W1R
END-PERFORM.