内标的创建修改删除

*&--------INTER TABLE有表头和无表头的内表------
*DATA:BEGIN OF MAN,
*     NAME(20) TYPE C,
*     HIGH     TYPE P DECIMALS 2,
*     WEIGHT   TYPE P DECIMALS 2,
*     END OF MAN.
*DATA: MAN1 LIKE TABLE OF MAN WITH HEADER LINE,
*       MAN2 LIKE TABLE OF MAN.
*MAN-NAME = '张参'.
*MAN-HIGH =  '1.68'.
*MAN-WEIGHT = 120.
*APPEND MAN TO MAN1.
*
*MAN-NAME = '柳志'.
*MAN-HIGH =  '1.78'.
*MAN-WEIGHT = 160.
*APPEND MAN TO MAN1.
*
*MOVE MAN1[] TO MAN2.
*
*LOOP AT MAN1 INTO MAN.
*WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
*ENDLOOP.
*LOOP AT MAN2 INTO MAN.
*WRITE:/ MAN-NAME,MAN-HIGH, MAN-WEIGHT.
*ENDLOOP.
*&--------iner table 排序表-------------
*DATA: BEGIN OF MAN,
*      NAME(20) TYPE C,
*      HIGH     TYPE P DECIMALS 2,
*      WEIGHT   TYPE P DECIMALS 2,
*      END OF MAN.
*DATA: MAN1 LIKE HASHED TABLE OF MAN WITH UNIQUE KEY NAME.
*     MAN-NAME =  '张参'.
*     MAN-HIGH =  '1.68'.
*     MAN-WEIGHT = 120.
*     INSERT MAN  INTO TABLE MAN1.
*     MAN-NAME =  '刘志'.
*     MAN-HIGH =  '1.78'.
*     MAN-WEIGHT = 160.
*     INSERT MAN  INTO TABLE MAN1.
*     MAN-NAME =  '宋强'.
*     MAN-HIGH =  '1.72'.
*     MAN-WEIGHT = 130.
*     INSERT MAN  INTO TABLE MAN1.
*LOOP AT MAN1 INTO MAN.
*     WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
*     ENDLOOP.
** SORT MAN1 DESCENDING  BY WEIGHT ASCENDING.
** SORT MAN1 DESCENDING  BY WEIGHT ASCENDING.
*  SORT MAN1 DESCENDING  BY WEIGHT DESCENDING.
** -----SKIP和ULINE 分别代表跳行和下划线.
* SKIP .
* ULINE.
* LOOP AT MAN1 INTO MAN.
* WRITE: / MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*-------修改内表数据--------
*DATA:BEGIN OF MAN,
*     NAME(20)  TYPE C,
*     HIGH  TYPE P DECIMALS 2,
*     WEIGHT TYPE P DECIMALS 2,
*     END OF MAN.
*DATA: MAN1 LIKE  HASHED  TABLE OF MAN  WITH UNIQUE  KEY NAME.
*     MAN-NAME = '张参'.
*     MAN-HIGH = '1.68'.
*     MAN-WEIGHT = 130.
*
* INSERT MAN INTO TABLE MAN1.
*
* LOOP  AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*
*      MAN-NAME = '张参'.
*      MAN-HIGH = '2.22'.
*      MAN-WEIGHT = 130.
*
* MODIFY TABLE MAN1 FROM MAN.
*
* LOOP  AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*------DELETE 内表数据------------------
*DATA:BEGIN OF MAN,
*     NAME(20)  TYPE C,
*     HIGH  TYPE P DECIMALS 2,
*     WEIGHT TYPE P DECIMALS 2,
*     END OF MAN.
*DATA: MAN1 LIKE  HASHED  TABLE OF MAN  WITH UNIQUE  KEY NAME.
*     MAN-NAME = '张参'.
*     MAN-HIGH = '1.68'.
*     MAN-WEIGHT = 130.
*
* INSERT MAN INTO TABLE MAN1.
*
*      MAN-NAME = '张参1'.
*      MAN-HIGH = '2.22'.
*      MAN-WEIGHT = 130.
*  INSERT MAN INTO TABLE MAN1.
*
* LOOP  AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*
* DELETE  MAN1 WHERE NAME = '张参' .
* SKIP.
* ULINE.
*
* LOOP  AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.