Deleting an Internal Table

If you are using an internal table without a header line, CLEAR <itab> deletes the body of the table.

If your internal table has a header line, CLEAR <itab> deletes the header line.

If you only want to address the body of an internal table with a header line, you use the form <itab>[].

• Example 1: ITAB_WITHOUT and ITAB_WITH are two internal tables without and with header lines respectively. The command ITAB_WITHOUT = ITAB_WITH[] assigns the body of ITAB_WITH to ITAB_WITHOUT.
• Example 2: CLEAR ITAB_WITH[] deletes only the body of the internal table ITAB_WITH.

REFRESH <itab> deletes the body of the table.

For additional information see:

Initializing Internal Tables

Initializing Internal Tables

To initialize an internal table with or without a header line, you use the REFRESH statement as follows:

Syntax

REFRESH <itab>.

This statement resets an internal table to the state before it was filled. This means that the table contains no lines.

If you are working with an internal table without table work area, you can use the CLEAR statement instead of the REFRESH statement as follows:

Syntax

CLEAR <itab>.

If you are working with an internal table with a header line, the CLEAR statement clears only the table work area as explained in Resetting Values to Default Values. To reset the whole internal table without clearing the table work area, use either the REFRESH statement or the CLEAR statement as follows:

Syntax

CLEAR <itab>[].

The square brackets after the name of the internal table refer to the body of the internal table.

After using REFRESH or CLEAR to initialize an internal table, the system keeps the space in memory reserved. You can release the memory with the FREE statement as follows:

Syntax

FREE <itab>.

You can also use the FREE statement to reset an internal table and to release its memory directly, without using REFRESH or CLEAR beforehand. Like REFRESH, FREE works on the table body, not on the table work area.

After a FREE statement, you can address the internal table again. The system then reserves memory space again.

You can check whether an internal table is empty by using the following logical expression:

Syntax

... <itab> IS INITIAL ...

DATA: BEGIN OF LINE,
                    COL1,
                    COL2,
             END OF LINE.
DATA ITAB LIKE LINE OCCURS 10.
LINE-COL1 = 'A'.
LINE-COL2 = 'B'.
APPEND LINE TO ITAB.
REFRESH ITAB.
IF ITAB IS INITIAL.
     WRITE 'ITAB is empty'.
     FREE ITAB.
ENDIF.

The output appears as follows:

ITAB is empty.

In this program, an internal table ITAB is filled and then initialized with REFRESH. In an IF statement, a logical expression with the IS INITIAL parameter is used to check whether ITAB is empty. If so, the memory is released.

(msn:erp.expert@hotmail.com)

1）关于麦肯锡
有一个老头，正在草地上放羊，忽然走来一个年轻人，年经人走到老头面前说：老先生，我可以为您服务，我将告诉您您的这群羊有几头，作为酬劳您需要给我一头羊。
老头还未作答，年青人就开始了工作，年轻人用笔记本电脑无线上网，链接上NASA的内部网，调动低轨道卫星，把卫星遥感成像的图片再通过软件分析，数十分钟后，年轻人再次走到老头面前：老先生，您的羊群共有763头。说完后他抱起一只羊就要走。
老头这时叫住了年青人：年青人，如果我能猜出你就职的公司，你可不可以把酬劳还给我？可以，年轻人答。你是麦肯锡公司的，老头说。年轻人很惊讶，您怎么知道？
老头笑了：因为你具有该公司咨询人员的所有特点啊，第一.你不请自来。第二.你告诉我的分析结果是我本就知道的。第三.你抱走的不是羊，而是我的牧羊犬。
（2）关于埃森哲
周末，我去一间熟悉的西餐厅吃晚饭，发现餐厅内部刚装修过，餐厅服务生的装束也有所改变。我发现服务生们上衣夹克的口袋里都多放了一把勺子。于是我叫来相熟的亨利，向他打听最近的变化。亨利告诉我，餐厅老板最近请了埃森哲公司作业务流程重组的咨询，以改进餐厅的工作效率和服务质量。
埃森哲的咨询顾问经过两个礼拜的现场工作，发现33.333％的餐桌在就餐过程中都会发生一次勺子掉在地上的情况。而以往服务生需要单跑去厨房一次给客人换干净勺子。如果在服务生的夹克口袋里放一把备用勺，则他们不必单独跑一次厨房，可以在下次上菜时顺路换掉勺子，这样可以将服务生的劳动生产率提高 17.365％。
正说着，我旁边的桌子响起叮当一声：他们的勺子掉地上了。只见亨利从容地从口袋里拿出备用勺，及时给客人换上。
看到这个场景，我对埃森哲公司的咨询建议相当佩服。
这时，我又留意到所有服务生西裤的拉链外有一根很细的绳子，其质地和隐性胸罩带一样，所以较难发现。于是，我又向亨利提出这个新问题："你们这根细绳儿是干嘛用的？"亨利环顾了一下，将身子倾斜过来，小声说道："好眼力！不是每个人都象您这样观察入的！"
亨利接着说："埃森哲公司通过对餐厅工作流程的现场观察和数据分析，发现服务生每班次平均要小便5.125次，而每次小便完平均要花1.306分钟洗手和烘干手。埃森哲的顾问建议我们在那儿上面系上这根绳子，以后每次小便直接把自己那活儿拉出来，可以避免手接触到，这样就可以省去洗手和烘干的麻烦，既提高服务生的劳动生产率，又节约餐厅的水费和电费……"
听完亨利的介绍，我对埃森哲公司更敬佩了。
不过，我还有一点小小的疑问："亨利啊，你们可以用绳子把自己那活儿拉出来，但是怎么能不用手把它给放回去呢？"
亨利又一次谨慎地环顾左右，将身子倾得更低，用更小的声音对我说："我不知道其他人是怎么解决的，但我是用的那把勺子……"
（3）关于IBM
两个食人族到IBM上班，老板说"绝对不许你们在公司吃人，否则我立刻开除你们！" 三个月下来大家相安无事，突然有一天老板把两个食人族叫到办公室大骂一顿： "不让你们吃人不让你们吃人，还吃，明天你们不用再来上班了！"
两个食人族收拾东西离开IBM，临出门时一个忍不住骂另一个："告诉过你多少遍不要吃干活儿的人，三月来我们每天吃一个部门经理，什么事都没有，昨天你吃了一个清洁工， 立刻就被他们发现了！"
（4）关于普华永道
各大公司到非洲去看大象，轮到普华永道的哥们儿，过去先跟大象说：我是普华永道的。大象就哭了，因为连大象都知道普华干的活辛苦。
然后他跟大象说：我们来非洲数大象。大象就乐了，原来普华永道还是不着四六靠审计吃饭。最后他跟大象说：我们来非洲还打算招几头大象回公司上班，结果大象吓得一边哭一边掉头就跑。
（5）关于大连国域无疆传媒
这是大连国域无疆传媒2006年最新的面试题，如果你答对了这些题目，将有机会赢得10万圆的年薪。
第一题：关于美术功底的考察
1、来国域无疆传媒吧，死后可以上天堂，阿门
2、大连广告人的地狱，农民资本家的乐园，自虐SM爱好者的天堂
3、猫咪在国域无疆传媒的指纹打卡机上昏倒了（一天打卡四遍）
4、听说大卫奥格威五年前死在国域无疆传媒
5、小鬼，再不好好学习，就送你到国域无疆传媒去！干一辈子广告
试题：希望资深美指根据以上文案完稿，优秀作品将会有机会，直接送至嘎纳参评本年度的最佳创意奖。
第二题关于逻辑思维的考察
国域无疆和太平洋使用了上个世纪资本家剥削劳动人民的两种最低级手段
1、延长工作时间，早上8点上班，晚上10点下班，没有周六周日正常上班
2、增加劳动强度，让策划干设计，让设计干业务，让业务干策划
试题：保洁工人早上8点上班，晚上5点下班，周六周日不上班。一个保洁工人一个月赚1000元多，还是一个国域无疆员工赚2000元多？
第三题关于沟通能力的考察
《**说了，不准拖欠农民工工资》
工资是要拖欠仨月的，
迟到是要罚款二百的。
保险是根本不可能的，
税钱是照样要扣除的。
加班是没有加班费的，
打车是要自己报销的。
招聘那是每天每日的，
辞职那时每时每刻的。
玩你根本不是目的地，
玩死你才是我目的地。
RAP：
普通员工进门就的交2000抵押金，要想当个官那得交10000抵押金。
要是辞职，这钱你就别想要了。靠，弄得怎么跟逸春楼的小姐似的。
试题：用rap、hip-top、rock，或天津快板的形式演唱，并试图做成DV短片。
哪一个公司最秀逗？答对将有机会送到普华永道或大连国域无疆传媒试训的机会。
（A）麦肯锡 （ B）埃森哲 （C）IBM （D）普华永道 （E）大连国域无疆传媒