ACCEPT ステートメント - 形式 4 - 内部データ域 1 ACCEPT
ID-1
FROM
簡略名
2? FOR (1) 2.1
ID-2
2.1
リテラル-1
3? END-ACCEPT