>>18
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 CHAR (07);
DCL ADDR BUILTIN;
R=ADDR (B);
DCL P BASED (R);
PUT EDIT ( C2 )
(A);
END TEST;

どうよ？