INQUIRE SUBPOOL 1 INQUIRE SUBPOOL(
data-area
) 2? DSANAME(
data-area
)