Cobol fetch arrays error

[Lilithhhhh]

How to put the data from the table into the following data structure？Now the statement ‘:B1(1),:B2(2),:B2(1),:B2(2)’ report an error.

05 A.
10 A1 Pic 9(8).
10 A2 Pic 9(8).
10 B occurs 10.
15 B1 Pic 9(1).
15 B2 Pic 9(8).

DECLARE CSR FOR
SELECT a,b,c,d,e,f FROM table where a=1

FETCH CSR
INTO :A1，
:A2，
:B1(1)，
:B2(1),
:B1(2)，
:B2(2)