【正文】
i, b TYPE i, c TYPE i.PERFORM x USING PERFORM y CHANGING PERFORM z CHANGING PERFORM xyz USING a CHANGING b *值傳遞和值傳遞引用改變需要寫(xiě)個(gè)value,引用傳遞不需要FORM xyz USING value(f1) TYPE i值傳遞 CHANGING value(f2) TYPE i值傳遞改變 f3 TYPE ENDFORM. *如果傳入的是內(nèi)表,子程序中可以這么寫(xiě)FORM xyz CHANGING pitab like itab.*也可以這么寫(xiě)吧FORM xyz CHANGING pitab type itab.屏幕STARTOFSELECTION. 主程序開(kāi)始了! WRITE : / text001,sylsind.AT LINESELECTION. CASE sylsind. WHEN 39。. WRITE : / 39。,sylsind. WHEN 39。. WRITE : / 39。,sylsind. WHEN 39。. WRITE : / 39。,sylsind. ENDCASE.單值選擇屏幕PARAMETER p1 TYPE scarrcarrid DEFAULT 39。.多重選擇屏幕TABLES scarr type scarr.SELECTOPTIONS pi FOR scarrcarrid. for后面不是類(lèi)型是變量*下面是用法SELECT carrid carrname FROM scarr INTO CORRESPONDING FIELDS OF TABLE itab WHERE carrid IN pi.LOOP AT itab INTO wa. WRITE : / wacarrid, wacarrname.ENDLOOP.data : v1 type i value 39。.data : v2 type i value 39。.data : v3 type i value 39。.data : v4 type i value 39。.do v1 times.write : v1, 39。 , v2.write : v1, 39。 , v2.