【正文】
. wa1dat = 39。. append wa1 to itab. clear wa1. wa1ebeln = 39。. wa1menge = 39。 , v2.write : v1, 39。.data : v2 type i value 39。,sylsind. WHEN 39??纯创a就知道怎么用了DATA : a TYPE i, b TYPE i, c TYPE i.PERFORM x USING PERFORM y CHANGING PERFORM z CHANGING PERFORM xyz USING a CHANGING b *值傳遞和值傳遞引用改變需要寫個value,引用傳遞不需要FORM xyz USING value(f1) TYPE i值傳遞 CHANGING value(f2) TYPE i值傳遞改變 f3 TYPE ENDFORM. *如果傳入的是內表,子程序中可以這么寫FORM xyz CHANGING pitab like itab.*也可以這么寫吧FORM xyz CHANGING pitab type itab.屏幕STARTOFSELECTION. 主程序開始了! WRITE : / text001,sylsind.AT LINESELECTION. CASE sylsind. WHEN 39。020139。010139。他比12小39。39。.*參照自定義類型定義變量TYPES t1(10) TYPE c.DATA v9 TYPE t1.*參照自定義變量定義變量DATA v10 LIKE v9.*參照數(shù)據(jù)字典中的TYPE GROUP定義數(shù)據(jù)類型TYPEPOOLS zjg01 .data v20 type zjg01_z1.定義結構DATA : BEGIN OF wa, carrid TYPE spflicarrid, connid TYPE spfliconnid, cityfrom TYPE spflicityfrom, cityto TYPE spflicityto, distance TYPE spflidistance, distid TYPE string, END OF wa.根據(jù)結構定義內表DATA