ACCEPT ステートメント - 形式 9 - データ域

1 ACCEPT ID-1 FROM 簡略名 FOR
2 ID-2
2 リテラル-1
3? IN
3.1 LIBRARY
3.2 ID-3
3.2 リテラル-2
4? AT
4.1 ID-4
4.1 整数-1
5? WITH LOCK
6? ON
6.1 EXCEPTION 命令ステートメント -1
7? NOT
7.1? ON
7.2 EXCEPTION 命令ステートメント -2
8? END-ACCEPT