あげるよん。

TEST:PROC OPTIONS (MAIN);
DCL B CHAR(10)INIT('0123456789');
DCL R PTR;
DCL P PTR;
DCL Q PTR BASED (P);
DCL 01 C BASED (Q),
03 C1 CHAR (03),
03 C2 ( ? );
DCL ADDR BUILTIN;
R=ADDR (B);
( ? );
PUT EDIT ( ? )
(A);
END TEST;

このプログラムを実行した時の印刷結果が３４５６７８９
になるように　？　の部分をコーディングして完成させてみて。
だれかできますか？