Почему вторая программа работает, а первая сделанная по такому же принципу дает The work area "WA1" is not long enough.

REPORT ZPROBA.
Программа первая
*tables: pa0002.
**data: wa type pa0001.
data: begin of wa1,
pernr(8),
NACHN(40),
VORNA(40),
end of wa1.
*
select * INTO wa1 from pa0002.
WRITE: / wa1-vorna.
endselect.

Программа вторая
DATA: BEGIN OF wa1,
client TYPE scarr-mandt,
carrid TYPE scarr-carrid,
carrname TYPE scarr-carrname,
url TYPE scarr-url,
rest(100),
END OF wa1.

SELECT * INTO wa1 FROM SCARR.
WRITE: / wa1-carrid, wa1-carrname.
ENDSELECT.

Ширина структуры pa0002 - больше 900 символов. В описании вы перечислили просто несколько полей из этой структуры, поэтому ошибка выдана совершенно законно. Напишите select вот так:
select * INTO CORRESPONDING FIELDS OF wa1 from pa0002.
должно заработать.

Добавь corresponding fields of после INTO перед wa01 и все заработает.