ㄚ咪的幸福收納盒

一般在程式的開頭會寫上：

REPORT <REPORT_NAME> NO STANDARD PAGE HEADING.

LINE-SIZE: 300. (一般螢幕的寬度)

LINE-COUNT: 65.

※ 在註解處寫上中文字，很容易在 ACTIVE 時造成斷行錯誤。

■ 在 INTERNAL TABLE 中 INSERT DATA 方式 ■

1. APPEND

ITAB-TEXT1 = 'AAAAA'.

ITAB-TEXT2 = 'BBBBB'.

APPEND ITAB.

2. INSERT

<ITAB_NAME>-<FIELD> = 'AAAAA'.

ITAB-TEXT2 = 'BBBBB'.

INSERT ITAB INDEX <NO>  (類似 RECORD 的概念。INDEX 是從 1 開始)

■ 在 INTERNAL TABLE 中 MODIFY DATA 方式 ■

1. 使用 INDEX 指定要修改的列數

MODIFY <ITAB_NAME> INDEX <NO> TRANSPORTING <FIELD>.

※ 建議要加上 TRANSPORTING 比較有效率

2. 使用 WHERE 尋找要修改的列

MODIFY <ITAB_NAME> TRANSPORTING <FIELD> WHERE <SENTENCES>.

※ <SENTNECES> 可以使用 AND OR BETWEEN NOT LIKE = < > ... 等 WHERE 子句

■ 在 INTERNAL TABLE 中 READ DATA 方式 ■

1. 使用 INDEX

READ TABLE <ITAB_NAME> INDEX <NO>.

2. 使用 WHERE 

READ TABLE <ITAB_NAME> WITH KEY <SENTENCES>.

■ 在 INTERNAL TABLE 中 DELETE DATA 方式 ■

DELETE TABLE <ITAB_NAME> WITH TABLE KEY <SENTENCES>.

■ PRINT 方式 ■

1. WRITE:/  (換行)

2. WRITE:/ SY-ULINE  ； ULINE.  (印出一條水平線) 

3. WRITE:/ <ITAB_NAME>-<FIELD>, <WA_NAME>-<FIELD>.

4. LOOP AT <ITAB_NAME>.

WRITE:/ <ITAB_NAME>-<FIELD>.

    ENDLOOP.

5. WRITE: 'XXX'.  (印出註解文字)

6. WRITE: 2 <ITAB_NAME>-<FIELD>.   (2, 是指從第二個位置開始印 FIELD 的值)

7. WRITE: (2) <ITAB_NAME>-<FIELD>.   ( (2), 是指 FIELD 不論有多長，都只印出前面 2 個字元)

■ 文字加底色 ■

1. WRITE:/ FIELD COLOR <NO>.

■ COLOR NO ■

COLOR 1: BLUE.

COLOR 2: LIGHT BLUE.

COLOR 3: YELLOW.

COLOR 4: SKY BLUE.

COLOR 5: GREEN.

COLOR 6: RED.

COLOR 7: ORANGE.