DATA:BEGINOF man,
NAME(20)TYPEc,
HIGHTYPE PDECIMALS2,
WEIGHTTYPE PDECIMALS2,
ENDOF man.
DATA:MAN1LikeHASHEDTABLEOF manWITHUNIQUEkey NAME.
man-name ='Joy'.
man-high ='1.79'.
man-weight =140.
insert manINTOTABLE man1.
man-name ='Tom'.
man-high ='1.99'.
man-weight =160.
insert manINTOTABLE man1.
man-name ='alex'.
man-high ='1.9'.
man-weight =150.
insert manINTOTABLE man1.
Loopat man1into man.
write:/ man-name,man-high,man-weight.
ENDLOOP.
DELETE man1WHERE NAME ='Tom'.
uline.
LOOPAT man1INTO man.
WRITE:/ man-name,man-high,man-weight.
ENDLOOP.