ACCEPT ステートメント - 形式 4 - 内部データ域

1 ACCEPT ID-1 FROM 簡略名
2? FOR (1) 
2.1 ID-2
2.1 リテラル-1
3? END-ACCEPT