[SAP ABAB 笔记]子程序(2)向子程序传递内表-转

转自：http://blog.sina.com.cn/s/blog_a7122a0101019gs9.html

当内表作为子程序的参数时，要分有没有 headerline line。

 

1.有header line 的内表

   定义子程序时在表名后面要加[].

 

TYPES:BEGIN OF itab,
       name(10) TYPE c,
        age     TYPE i,
      END OF itab.

DATA:itab1 TYPE STANDARD TABLE OF itab WITH HEADER LINE.
        itab1-name = 'woniu'.
        itab1-age  = 4.
        APPEND itab1.

        itab1-name = 'flora'.
        itab1-age  = 3.
        APPEND itab1.

PERFORM output TABLES itab1.
FORM output TABLES f_itab LIKE itab1[].  (此处也可将LIKE itab1[]改成STRUCTURE itab1)
LOOP AT f_itab.
  WRITE:/ f_itab-name,f_itab-age.
endloop.
ENDFORM.

 

2.无header line 的内表.

   DATA: BEGIN OF itab occurs 0,
       name(10) TYPE c,
        age     TYPE i,
      END OF itab.

DATA: itab1 like standard table of itab.
        itab-name = 'woniu'.
        itab-age  = 4.
        APPEND itab to itab1.

        itab-name = 'flora'.
        itab-age  = 3.
        APPEND itab to itab1.

PERFORM output TABLES itab1.
FORM output TABLES f_itab LIKE itab1.（此处不能用 STRUCTUR itab1，因为无work area）
LOOP AT f_itab.
  WRITE:/ f_itab-name,f_itab-age.
endloop.
ENDFORM.