# ACCEPT文

説明書の該当箇所: 6.5.1 ACCEPT文(小入出力)

  ACCEPT文.cob    Standard 版

ACCEPT文 の2つの使い道を、1本で順に見せます。

  1. 環境から値を受け取る
       ACCEPT j FROM DATE          日付(YYMMDD)
       ACCEPT k FROM TIME          時刻(hhmmssmm)
       ACCEPT i FROM DAY-OF-WEEK   曜日(1:月曜 〜 7:日曜)
       ACCEPT i FROM DAY           日付(YYDDD 通算日)

  2. キーボードから入力を受け取る
       ACCEPT i                    数字項目へ
       ACCEPT j                    英数字項目へ

# ★ キー入力があります

後半で入力を待ちます。画面から実行してください。

  数字を入れてください(-32768～32767)      → 数字を打って Enter
  文字を入れてください(6桁以内)            → 文字を打って Enter

受け取る側の項目に合わせて、入れた値がどう格納されるかを見るのが
このサンプルの主眼です。

  i    COMP-1(単精度2進・2バイト)なので -32768〜32767 の整数
  j    PIC X(6) なので6桁までの文字

# 出力

実行した日時によって変わるため、OK / NG の判定はしていません。
表示された値が実際の日付・時刻と合っているかを目で確かめてください。
