SAPABAP开发基础概述

《SAPABAP开发基础概述》由会员分享，可在线阅读，更多相关《SAPABAP开发基础概述（10页珍藏版）》请在装配图网上搜索。

1、学习顺序数据类型域什么什么的字符串构造内表OpenSQL函数子程序报表一、T-CODESE80 对象浏览器SE38 写程序SE11 建表SE37 函数SM04 查看顾客SE91 message系统sy-uzeit 系统时间sy-datum 系统日期sy-datum是.10.10 sy-datum+0(2)是20 sy-datum+2(3)是101PS a-comun+29(11).这也是偏移的操作sy-subrc 正常是0，不正常是0或其她二、数据类型完整型d 日期 8字节 YYYYMMDDt 时间 6字节i 整型f 浮点型string 可变长的字符型非完整型非完整型c 字符型 （若不指定长度

2、默认是1个字节）n 数字字符型p 小数（常用）(压缩数 装载它的空间是（x+1）/2 x是本来装载它的长度)data v1(5) type p decimals 2 value 123.45.三、多种定义基本格式DATA:XX TYPE YY VALUEZZ多种来了*参照数据字典定义*参照数据元素定义data v9 type zdata_jg_0325_01.*参照数据库表的字段定义data v10 type scarr-carrid.*定义常量CONSTANTS c1 TYPE i VALUE 1.*定义单值选侧屏幕PARAMETERS p1(8) TYPE n default AA.*参照

3、自定义类型定义变量TYPES t1(10) TYPE c.DATA v9 TYPE t1.*参照自定义变量定义变量DATA v10 LIKE v9.*参照数据字典中的TYPE GROUP定义数据类型TYPE-POOLS zjg01 .data v20 type zjg01_z1.定义构造DATA : BEGIN OF wa, carrid TYPE spfli-carrid, connid TYPE spfli-connid, cityfrom TYPE spfli-cityfrom, cityto TYPE spfli-cityto, distance TYPE spfli-distance

4、, distid TYPE string, END OF wa.根据构造定义内表DATA itab LIKE TABLE OF wa. 流程控制-IFELSEIF a 12. WRITE : 她比12大.ELSE. WRITE : 她比12小.ENDIF.循环DO 10 TIMES. WRITE: / 这是第,ie,次. ie = ie + 1.ENDDO.把内表循环到构造中LOOP AT itab INTO wa. WRITE : / wa-id.ENDLOOP.内表多种操作-collect在内表中一定有一种数值型的字段，并且其她字段均为字符型把数值型字段上的数加起来DATA : BEGIN

5、 OF wa, a(4) TYPE c, b(4) TYPE c, c TYPE i, END OF wa.DATA itab LIKE TABLE OF wa.wa-a = 001.wa-b = 0101.wa-c = 100.*APPEND wa TO itab.COLLECT wa INTO itab.wa-a = 002.wa-b = 0201.wa-c = 200.*APPEND wa TO itab.COLLECT wa INTO itab.wa-a = 002.wa-b = 0201.wa-c = 100.*APPEND wa TO itab.COLLECT wa INTO it

6、ab.LOOP AT itab INTO wa. WRITE : / wa-a, wa-b, wa-c.ENDLOOP.内表多种操作-readLOOP AT itab1 INTO wa. READ TABLE itab2 INTO wa1 WITH KEY carrid = wa-carrid. IF sy-subrc 0. clear wa1. move-corresponding wa to wa1. append wa1 to itab2. ENDIF.ENDLOOP.根据构造修改内表modify itab from wa.SQL操作1、把SQL成果放入内表中SELECT carrid

7、connid cityfrom cityto distance distid FROM spfli INTO CORRESPONDING FIELDS OF TABLE itab. 放到了内表中INTO CORRESPONDING FIELDS OF wa.放到了构造中2.1、多表查询SELECT scarrcarrid scarrcarrname spfliconnid spflicityfromspflicityto FROM scarr INNER JOIN spfli ON scarrcarrid = spflicarrid INTO CORRESPONDING FIELDS OF T

8、ABLE itab.2.2、更多表查询SELECT spflicarrid spfliconnid spflicityfrom spflicitytosbookfldate sbookbookid sbookcustomid sbookcusttype scustomnamescustomstreet FROM spfli INNER JOIN sbook ON spflicarrid = sbookcarrid AND spfliconnid = sbookconnid INNER JOIN scustom ON sbookcustomid = scustomid INTO CORRESPO

9、NDING FIELDS OF TABLE itab.多种核心字APPEND wa TO itab.把构造搞到内表中MOVE TO 构造赋值modify itab from wa根据构造修改内表MOVE-CORRESPONDING str1 TO str3.同名字段赋值分支研究data:v1 type i value 1.v2 type i.do 50 times.v2 = v1 * 2.write : v1,v2.v1=v1 +1.enddo.函数来了字符串操作CONCATENATE wa-fldate wa-week INTO wa-www SEPARATED BY/星期.子程序三种类型：

10、值传递，值传递并返回# 1.值传递-实参在传递过程中不发生变化，只是传递一种实参的拷贝，合用于值不能变化的单值，不适合内表参数传递。# 2.值传递并返回成果-传递一种实参的拷贝，实参的拷贝发生变化，返回给实参，适合于可以变化的单值传递，不适合内表参数传递。# 3.引用传递-传递实参，子程序运营结束后，实参根据子程序运营成果，适合单值也适合内表。看看代码就懂得怎么用了DATA : a TYPE i, b TYPE i, c TYPE i.PERFORM x USING a.这是值传递PERFORM y CHANGING b.这是值传递变化PERFORM z CHANGING c.这是引用传递PE

11、RFORM xyz USING a CHANGING b c.连起来就是这样用滴*值传递和值传递引用变化需要写个value,引用传递不需要FORM xyz USING value(f1) TYPE i值传递 CHANGING value(f2) TYPE i值传递变化 f3 TYPE i.引用传递ENDFORM. *如果传入的是内表，子程序中可以这样写FORM xyz CHANGING p-itab like itab.*也可以这样写吧FORM xyz CHANGING p-itab type itab.屏幕START-OF-SELECTION. 主程序开始了！ WRITE : / text-

12、001,sy-lsind.AT LINE-SELECTION. CASE sy-lsind. WHEN 1. WRITE : / 第一级具体列表,sy-lsind. WHEN 2. WRITE : / 第二级具体列表,sy-lsind. WHEN 3. WRITE : / 第三级具体列表,sy-lsind. ENDCASE.单值选择屏幕PARAMETER p1 TYPE scarr-carrid DEFAULT AA.多重选择屏幕TABLES scarr.相称于data scarr type scarr.SELECT-OPTIONS pi FOR scarr-carrid. for背面不是类型

13、是变量*下面是用法SELECT carrid carrname FROM scarr INTO CORRESPONDING FIELDS OF TABLE itab WHERE carrid IN pi.LOOP AT itab INTO wa. WRITE : / wa-carrid, wa-carrname.ENDLOOP.data : v1 type i value 1.data : v2 type i value 1.data : v3 type i value 2.data : v4 type i value 3.do v1 times.write : v1, - , v2.writ

14、e : v1, - , v2.write : v1, - , v2.data : begin of wa1, ebeln(3) type c, dat type d, menge type i, end of wa1. data itab like table of wa1. wa1-ebeln = 001. wa1-dat = 0803. wa1-menge = 10. append wa1 to itab. clear wa1. wa1-ebeln = 001. wa1-dat = 0903. wa1-menge = 20. append wa1 to itab. clear wa1. w

15、a1-ebeln = 002. wa1-dat = 0303. wa1-menge = 20. append wa1 to itab. clear wa1. wa1-ebeln = 003. wa1-dat = 0603. wa1-menge = 30. append wa1 to itab. clear wa1.loop at itab into wa1.write : / wa1-ebeln, wa1-dat, wa1-menge.endloop.uline.data : begin of wa2, ebeln(3) type c, menge type i, end of wa2. da

16、ta itab2 like table of wa2.loop at itab into wa1.move-corresponding wa1 to wa2.collect wa2 into itab2.endloop.loop at itab2 into wa2.write : / wa2-ebeln, wa2-menge.endloop.sy-subrc 判断有无东西condense 字符型 /去空格for all entries in 内表 DATA wa LIKE LINE OF itab. /参照内表建构造sort it by carrid connid fldate.delete adjacent duplicates from it comparing all fields.