data: S1(10) value '0123456789',
S2(10).
S2 = S1. " move S1 to S2.
write / S2.
clear S2.
S2 = S1+5(5). " move S1+5(5) to S2.
write / S2.
S2+5(5) = S1(5). " move S1(5) to S2+5.
write / S2.
clear S2.
0123456789
56789
5678901234
data: begin of ADDRESS,
FIRST_NAME(10) value 'Bruce',
LAST_NAME(10) value 'Tsai',
TEL(12) value '28883912',
end of ADDRESS.
data: begin of ACCOUNT,
FIRST_NAME(10),
LAST_NAME(10),
EMAIL(50),
end of ACCOUNT.
move-corresponding ADDRESS to ACCOUNT.
write / ACCOUNT-FIRST_NAME.
write / ACCOUNT-LAST_NAME.
Bruce
Tsai
Posts
