SAP基础知识学习整理.docx
《SAP基础知识学习整理.docx》由会员分享,可在线阅读,更多相关《SAP基础知识学习整理.docx(52页珍藏版)》请在冰豆网上搜索。
![SAP基础知识学习整理.docx](https://file1.bdocx.com/fileroot1/2023-2/28/99d19ce2-1a29-4a4a-adc7-3b0f66a67faa/99d19ce2-1a29-4a4a-adc7-3b0f66a67faa1.gif)
SAP基础知识学习整理
数据类型
C:
字符串
D:
日期型格式为YYYYMMDD例:
'1999/12/03'F:
浮点数长度为8
I:
整数
N:
数值组成的字符串如:
011,'302'
P:
PACKED数用于小数点数值女口:
12.00542
T:
时间格式为:
HHMMSS如:
'14:
03:
00'
X:
16进制数如:
'1A03'
变数宣告
DATA[][][decimals]
变数名称
变数类型及长度
初值
小数位数
exp:
DATA:
COUNTERTYPEPDECIMALS3.
NAME(10)TYPECVALUE'DELTA'.
S_DATETYPEDVALUE'19991203'.
exp:
DATA:
BEGINOFPERSON,
NAME(10)TYPEC,
AGETYPEI,
WEIGHTTYPEDECIMALS2,
ENDOFPERSON.
另外,有關DATA宣告的指令還有:
CONSTANTS宣告常數)、STATICS臨時變數宣告).
exp:
CONSTANTSPITYPEPDECIMALS5VALUE'3.14159'.
STATICS敘述
宣告的變數僅在目前的程式中使用,結束後會自動釋放
語法:
STATICS[][][]
系統專用變數說明
系統內部專門創建了SYST這個STRUCTUR里面的欄位存放系統變數,常用的系統變數有:
SY-SUBRC:
系統執行某指令后,表示執行成功与否的變數,'0'表示成功
SY-UNAME當前使用者登入SAP的USERNAME;
SY-DATUM:
當前系統日期;
SY-UZEIT:
當前系統時間;
SY-TCODE:
當前執行程式的Transactioncode
SY-INDEX:
當前LOOPS環過的次數
SY-TABIX:
當前處理的是internaltable的第几筆
SY-TMAXL:
Internaltable的總筆數
SY-SROWS屏幕總行數;
SY-SCOLS:
屏幕總列數;
SY-MANDT:
CLIENTNUMBER
SY-VLINE:
畫豎線
SY-ULINE:
畫橫線
TYPE敘述
用來指定資料型態或宣告自定資料型態
Example:
TYPES:
BEGINOFMYLIST,
NAME(10)TYPEC,
NUMBERTYPEI,
ENDOFMYLIST.
DATALISTTYPEMYLIST.
LIKE敘述
跟TYPE敘述使用格式相同,如
DATATRANSCODELIKESY-TCODE.
不同的是LIKE用在已有值的資料項,如系統變數,而TYPE敘述則是用在指定資料型態。
输出
1.WRITE語句
ABAP/4用來在屏幕上輸出資料的指令是WRITE指令,例如:
WRITE:
'USERNAMEIS:
',SY-UNAME.
2.指定屏幕輸出位置指定輸出位置的語句格式為:
WRITE:
[AT][/][][()]資料項[]
其中:
/:
在下一行輸出
:
指定輸出的行號;
():
指定輸出位數(長度)
:
指定顯示格式參數,參數有:
LEFT-JUSTIFIED資料靠左對齊
CENTERE資料靠中間對齊
RIGHT-JUSTIFIED資料靠右對齊
UNDERvg>正對在資料項vg>的下面顯示
NO-GAP緊接著顯示,不留空格
USINGEDITMASK:
使用內嵌子元顯示,如12:
03:
20
USINGNOEDITMASK不使用內嵌子元
NO-ZERO:
數字前面0的部分不顯示
NO-SIGN:
不顯示正負號
DECIMALS:
顯示位小數
EXPOENT:
F浮點數)指數的值
ROUND:
四舍五入至小數點后位
CURRENCY幣別顯示
DD/MM/YY:
日期顯示格式
MM/DD/YY:
YY/MM/DD:
YY/DD/MM
MM/DD/YYYY:
DD/MM/YYYY
YYYY/MM/DD:
YYYY/DD/MM:
例如1:
WRITE:
/10(6)'ABCDEFGHIJK'.
輸出結果為:
ABCDEF
例如2:
DATA:
XTYPEIVALUE'11:
20:
30',
A(5)TYPECVALUE'ABCDE'.
WRITE:
/XUSINGEDITMASK'__:
__:
__'.
WRITE:
/XUSINGEDITMASK'$___,___'.
WRITE:
/YNO-GAP.
輸出結果為:
11:
20:
30
$112,030
ABCDEF
例如3:
DATA:
LENTYPEIVALUE10,
POSTYPEIVALUE11,
TEXT(10)VALUE'1234567890'
WRITE'Thetextappearsinthetext.'.
WRITEATPOS(LEN)TEXT.
WRITETO语句的基本形式
要将值(文字)或源字段内容写入目标字段,可以使用WRITETO语句:
语法
WRITETO[
DATA:
NUMBERTYPEFVALUE'4.3',
TEXT(10),
FLOATTYPEF,
PACKTYPEPDECIMALS1.
WRITENUMBER.
WRITENUMBERTOTEXTEXPONENT2.
WRITE/TEXT.
WRITENUMBERTOFLOAT.
WRITE/FLOAT.
WRITENUMBERTOPACK.
WRITE/PACK.
MOVENUMBERTOPACK.
WRITE/PACK.
exp:
DATA:
NAME(10)VALUE'SOURCE',
SOURCE(10)VALUE'Antony',TARGET(10).
WRITE(NAME)TOTARGET.
WRITE:
TARGET.
exp:
DATA:
COUNTERTYPEI.
COMPUTECOUNTER=COUNTER+1.
COUNTER=COUNTER+1.
ADD1TOCOUNTER.
在此,三条运算语句进行相同算术运算
输出屏幕上的线和空行
用下列语法,可以在输出屏幕上生成水平线:
语法
ULINE[AT[/][][()]].
它等同于
WRITE[AT[/][][()]]SY-ULINE.
AT后的格式规范,与在在屏幕上定位WRITE输出(页28)中为WRITE语句说明的格式规范完全一样。
如果没有格式规范,系统则开始新的一行,并用水平线填充该行。
否则,只按指定输出水平线。
生成水平线的另一种方法,是在WRITE语句中键入恰当数量的连字符,如下所示:
WRITE[AT[/][][()]]'...'.
垂直线
用下列语法,可以在输出屏幕上生成垂直线:
语法
WRITE[AT[/][]]SY-VLINE.
或
WRITE[AT[/][]]'|'.
空行
用下列语法,可以在输出屏幕上生成空行:
语法
SKIP[].
该语句从当前行开始,在输出屏幕上生成个空行。
如果没有指定的值,就输出一个空行。
要将输出定位在屏幕的指定行上,请使用:
语法
SKIPTOLINE.
四.顯示圖示:
語法:
WRITE:
ASSYMBOL.
WRITE:
ASICON.
例如:
INCLUDE.
INCLUDE.
WRITE:
/'Phonesymbol:
',SYM_PHONEASSYMBOL.
WRITE:
/'AlarmIcon:
',ICON_VOICE_OUTPUTASICON.要查看系統所提供有那些符號及圖示,可選擇'EDIT'下的'InsertStatement',選擇'Write',接下來選擇要查看的群組,如SYMB0或ICON,接下來按'Display'即可.
一.InternalTable的宣告
ABAP/4中的InternalTable是一种DataStructure,類似于其他語言中的
STRUTUR它可以由几個不同類型的欄位(field)組成,用來表示具有不同屬性的某一事物,單獨一筆資料表示某個事物,多筆資料表示具有相同屬性的多個事物
Internaltable的定義有以下几种格式:
格式一.DATA:
BEGINOFOCCURS,TYPE,
[TYPE,
TYPE,
...]
ENDOF.
語法:
DATAOCCURS[WITHHEADERLINE]Example:
DATAVECTORTYPEIOCCURS10WITHHEADERLINE.
格式二.TYPES:
BEGINOF,
TYPE,
[TYPE,
TYPE,
...]
ENDOF.
TYPESTYPEOCCURS.
格式三.DATA:
BEGINOF.
INCLUDESTRUCTURE.
DATA:
ENDOF.
DATA:
LIKEOCCURS.
exp:
TYPESVECTORTYPEIOCCURS10.
TYPES:
BEGINOFLINE,
COLUMN1TYPEI,
COLUMN2TYPEI,
COLUMN3TYPEI,
ENDOFLINE.
TYPESITABTYPELINEOCCURS10.
TYPES:
BEGINOFDEEPLINE,
TABLE1TYPEVECTOR,
TABLE2TYPEITAB,
ENDOFDEEPLINE.
TYPESDEEPTABLETYPEDEEPLINEOCCURS10.
本示例创建与上例相同的内表数据类型(VECTOR和ITAB)。
然后创建数据类型DEEPLINE作为字段串,包含这些内表作为组件。
通过该字段串,数据类型DEEPTABLE被创建为内表。
因此该内表的元素本身就是内表。
exp:
TYPES:
BEGINOFLINE,
COLUMN1TYPEI,
COLUMN2TYPEI,
COLUMN3TYPEI,
ENDOFLINE.
TYPESITABTYPELINEOCCURS10.
DATATAB1TYPEITAB.
DATATAB2LIKETAB1WITHHEADERLINE.
同创建内表数据类型(页99)中所示,该示例创建数据类型ITAB作为内表。
通过使用DATA语句的TYPE参数引用ITAB,使数据对象TAB1与ITAB结构相同。
通过使用DATA语句的LIKE参数引用TAB1,使数据对象TAB2结构相同。
创建的TAB2带表头行。
因此,可以在程序中使用TAB2-COLUMN、1TAB2-COLUMN®TAB2-COLUMN等定位表格工作区域TAB2。
exp:
DATAFLIGHT_TABLIKESFLIGHTOCCURS10.
本示例创建数据对象FLIGHT_TAB,其结构与数据库表格SFLIGHT相同。
本示例介绍如何采用两种不同的步骤创建同一内表。
TYPESVECTOR_TYPETYPEIOCCURS10.
DATAVECTORTYPEVECTOR_TYPEWITHHEADERLINE.
在此创建一个内表数据类型VECTOR_TYP,E其行包含首先创建的基本类型
I字段。
然后,通过引用VECTOR_TYPEj建数据对象VECTOR通过使用WITHHEADERLINE选项还创建表格工作区域VECTOR。
在这种情况下,表格工作区域包含一种类型I字段,可以通过名称VECTOR定位。
DATAVECTORTYPEIOCCURS10WITHHEADERLINE.
在这种情况下,通过直接在DATA语句中使用OCCURS选项创建完全一样的数据类型VECTOR。
1.TYPEStype.
2.TYPEStype(len).
3.TYPES:
BEGINOFstructype...
ENDOFstructype.
4.TYPESitabtype{TYPEtabkindOFlinetypeLIKEtabkindOFlineobj}[WITH[UNIQUE|NON-UNIQUE]keydef][INITIALSIZEn].
5.TYPESitabtypeTYPERANGEOFtype.
TYPESitabtypeLIKERANGEOFf.
6.TYPESitabtype{TYPElinetype|LIKElineobj}OCCURSn.
APPENDLINE
格式:
APPENDTO
举例一:
(使用WORKAREA)
DATA:
BEGINOFLINE,
COL1TYPEI,
COL2TYPEI,
ENDOFLINE.
DATAITABLIKELINEOCCURS10.
DO2TIMES.
LINE-COL1=SY-INDEX.
LINE-COL2=SY-INDEX**2.
APPENDLINETOITAB.
ENDDO.
LOOPATITABINTOLINE.
WRITE:
/LINE-COL1,LINE-COL2.
ENDLOOP.
举例二(不使用WORKAREA)
DATA:
BEGINOFITABOCCURS10,
COL1TYPEI,
COL2TYPEI,
ENDOFITAB.
DO2TIMES.
ITAB-COL1=SY-INDEX.
ITAB-COL2=SY-INDEX**2.
APPENDITAB.
ENDDO.
LOOPATITAB.
WRITE:
/ITAB-COL1,ITAB-COL2.
ENDLOOP.
exp:
DATA:
BEGINOFITABOCCURS10,
COL1TYPEC,
COL2TYPEI,
ENDOFITAB.
DO3TIMES.
APPENDINITIALLINETOITAB.
ITAB-COL1=SY-INDEX.ITAB-COL2=SY-INDEX**2.
APPENDITAB.
ENDDO.
LOOPATITAB.
WRITE:
/ITAB-COL1,ITAB-COL2.
ENDLOOP.
舉例三.(加入另一個Internaltable的元素)
格式:
APPENDLINESOF[FROM][TO]TO.
將的元素加入至中,可選取自至的范圍.
APPENDLINESOFITABTOJTAB.
COLLECTLINE
COLLECT旨令也是將元素加入Internaltable中,与APPEND勺區別是:
COLLECT指令在非數值欄位相同的情況下,將數值欄位匯總.
格式:
COLLECT[INTO]
DATA:
BEGINOFITABOCCURS3,
COL1(3)TYPEC,
COL2TYPEI,
ENDOFITAB.
ITAB-COL1='ABC'.ITAB-COL2=10.COLLECTITAB.
ITAB-COL1='XYZ'.ITAB-COL2=20.COLLECTITAB.
ITAB-COL1='ABC'.ITAB-COL2=80.COLLECTITAB.
此時,internaltable中放的是2筆數据,分別為:
ITAB-COL1ITAB-COL2
'ABC'90
'XYZ'20
INSERTLINE將元素插入在指定的internaltable位置之前.
格式:
INSERT[INTO][INITIALLINEINTO][INDEX]或者:
INSERTLINESOF[FROMTO]INTOINDEX其中:
即workarea,工作區中的元素.
[INITIALLINEINTO]:
插入一筆初始化的記錄.
:
internaltable
[INDEX]:
internaltable的記錄號.(新加入的元素放在此記錄前面)
Example:
DATA:
BEGINOFLINE,
COL1TYPEI,
COL2TYPEI,
ENDOFLINE.
DATAITABLIKELINEOCCURS10.
DO3TIMES.
LINE-COL1=SY-INDEX*10.
LINE-COL2=SY-INDEX*20.
APPENDLINEINTOITAB.
ENDDO.
LINE-COL1=100.
LINE-COL2=200.
INSERTLINEINTOITABINDEX2."插入在位置2之前LOOPATITABINTOLINE.
WRITE:
/SY-TABIX,LINE-COL1,LINE-COL2."SY-TABIX為Table位置ENDLOOP.
執行結果:
11020
2100200"插入的元素
32040
43060
插入另一InternalTable元素語法:
INSERTLINESOF[FROMTO]TOINDEX
將的元素插入至中,位置在之前,可選取自至的範圍
Example:
APPENDLINESOFITABTOJTABINDEX3.
將ITAB所有元素插入JTAB中,位置在第三個元素之前讀取internaltable
格式一:
LOOPAT[INTO][FROMTO][WHERE]
ENDLOOP.
Example:
LOOPATITABINTOLINEWHERECOL1>100.
WRITE:
/SY-TABIX,LINE-COL1.
ENDLOOP.
僅讀取COL1>100的元素
格式二:
READTABLE[INTO][INDEX/WITHKEY]
舉例.(格式二)
DATA:
BEGINOFITABOCCURS10,
COL1TYPEI,
COL2TYPEI,
ENDOFITAB.
DO10TIMES.
ITAB-COL1=SY-INDEX.
ITAB-COL2=SY-INDEX*2.
APPENDITAB.
ENDDO.
READTABLEITABINDEX3.
(或者:
READTABLEITABWITHKEYCOL1=3.)
WRITE:
/'ITAB-COL1=',ITAB-COL1,'ITAB-COL2=',ITAB-COL2.執行結果同樣是:
ITAB-COL1=3
ITAB-COL2=6.
Example:
READTABLEITABINTOLINEINDEX5
讀取ITAB的第5個元素資料,放入LINE的欄位中根據欄位內容尋找
語法:
READTABLEINTO
Example:
ITAB-COL1='ABC'.
READTABLEITABINTOLINE.
找出ITAB中COL1欄位內容是ABC的元素,找到的值放入LINE中
若找到SY-SUBR(傳回0,找不到則傳回4,必須宣告有workarea
修改internaltable中的值
格式:
MODIFY[FROM][INDEX][TRANSPORTING
vf1>vf2>…][WHEREvconditions>]
舉例一.READTABLEITABINDEX3.
LINE-COL1=29.
MODIFYITABFROMLINETRANSPORTINGCOL1.
將第三筆記錄的COL1欄位的值修改為29.
舉例二.T_SALARY-salary=50.
MODIFYT_SALARYTRANSPORTINGsalaryWHEREbirthday