【正文】
定義數(shù)據(jù)類型TYPEPOOLS zjg01 .data v20 type zjg01_z1.定義結(jié)構(gòu)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ù)結(jié)構(gòu)定義內(nèi)表DATA itab LIKE TABLE OF wa. 流程控制IF…ELSEIF a 12. WRITE : 39。.三、各種定義基本格式DATA:XX TYPE YY VALUE'ZZ'各種來(lái)了*參照數(shù)據(jù)字典定義*參照數(shù)據(jù)元素定義data v9 type zdata_jg_20100325_01.*參照數(shù)據(jù)庫(kù)表的字段定義data v10 type scarrcarrid.*定義常量CONSTANTS c1 TYPE i VALUE 39。39。AA39。他比12小39。次39。010139。020139。020139。/星期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 *值傳遞和值傳遞引用改變需要寫(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。,syl