ABAP语句整理.docx
《ABAP语句整理.docx》由会员分享,可在线阅读,更多相关《ABAP语句整理.docx(53页珍藏版)》请在冰豆网上搜索。
ABAP语句整理
1.ADD:
ADDv1FROMv2TOv3GIVINGv4
ADDv1THENv2UNTILv3GIVINGm
ADDv1THENv2UNTILv3TOm
ADDv1THENv2UNTILv3
ADDv1TOv2
ADD-CORRESPONDINGrec1TOrec2
前提,仅针对工作区做运算,且指定的计算范围内应该都是同一类型的数字(series-n1到series-n6全是数字就可以,前后中间可以有其他类型的,但运算对象为同一类型数字)
主要是在循环时,再循环内部对有特定规律的数据进行合计使用。
DATA:
BEGINOFseries,
kk1TYPEcVALUE'dd',
yyTYPEiVALUE1,
kk2TYPEcVALUE'dd',
juTYPEiVALUE1,
kk3TYPEcVALUE'dd',
t5TYPEiVALUE1,
kk4TYPEcVALUE'dd',
8sTYPEiVALUE1,
kk5TYPEcVALUE'dd',
00TYPEiVALUE1,
kk6TYPEcVALUE'dd',
5jTYPEiVALUE1,
ENDOFseries.
DATAsumTYPEi.
ADDseries-yyTHENseries-juUNTILseries-00givingsum.
writesum.
结果为6。
2.APPEND:
APPENDtabla
APPENDarea1TOtabla2
APPENDINITIALLINETOtabla1
APPENDtablaSORTEDBYv3
APPENDarea1TOtabla2SORTEDBYv3
APPENDLINESOFtabla1TOtabla2
APPENDLINESOFtabla1FROMix1TOtabla2
APPENDLINESOFtabla1FROMix1TOix2TOtabla2
ASSIGN:
ASSIGNv1TODECIMALSdecTYPEtipo
ASSIGNf+off(len)TODECIMALSdecTYPEtipo
ASSIGN(f)TOTYPEtipoDECIMALSdec
ASSIGN+off(len)TODECIMALSdecTYPEtipo
ASSIGNTABLEFIELDv1TO
ASSIGNTABLEFIELD(f)TO
ASSIGNCOMPONENTnOFSTRUCTURErecTODECIMALSdecTYPEtipo
ASSIGNCOMPONENTnameOFSTRUCTURErecTODECIMALSdecTYPEtipo
ASSIGNLOCALCOPYOFv1TO
ASSIGNLOCALCOPYOFMAINTABLEFIELD(f)TO
ASSIGNLOCALCOPYOFINITALLINEtablaTO
*--------------------------------------------------------------------------
AT:
ATENDOFv1
ATNEWv1
ATFIRST
ATLAST
ATfgWITHfg1
ATLINE-SELECTION
ATUSER-COMMAND
ATPFx
ATSELECTION-SCREEN
ONps1
ONENDOFs1
ONVALUE-REQUESTFORps1
ONHELP-REQUESTFORps1
ONRADIOBUTTONGROUPradi1
ONBLOCKblk1
OUTPUT
*--------------------------------------------------------------------------
AUTHORITY-CHECK:
AUTHORITY-CHECKOBJECTobjectIDname1FIELDf1
*--------------------------------------------------------------------------
BACK:
BACK
*--------------------------------------------------------------------------
BREAK-POINT:
BREAK-POINTlit1
*--------------------------------------------------------------------------
CALL:
CALLFUNCTION{AutoInsertFunctionCall}
CALLFUNCTIONfnc1
EXPORTINGp1=v1
IMPORTINGp1=v1
TABLESp1=tabla1
CHANGINGp1=v1
EXCEPTIONSexc1=retc1
CALLFUNCTIONfnc1STARTINGNEWTASKtskname2
DESTINATIONdest1
DESTINATIONINGROUPgrp1
DESTINATIONINGROUPDEFAULT
PERFORMINGform1ONENDOFTASK
EXPORTINGp1=v1
TABLESp1=tabla1
EXCEPTIONSexc1=retc2MESSAGEmsg2
CALLFUNCTIONfnc1INUPDATETASK
EXPORTINGp1=v1
TABLESp1=tabla1
CALLFUNCTIONfnc1DESTINATIONdest1
EXPORTINGp1=v1
IMPORTINGp1=v1
TABLESp1=tabla1
CHANGINGp1=v1
EXCEPTIONSexc1=retc2
EXCEPTIONSexc1=retc2MESSAGEmess
CALLFUNCTIONfnc1INBACKGROUNDTASK
ASSEPARATEUNIT
DESTINATIONdesti1
EXPORTINGp1=v1
TABLESp1=tabla1
CALLCUSTOMER-FUNCTIONfnc1
EXPORTINGp1=v2
IMPORTINGp1=v2
TABLESp1=tabla1
CHANGINGp1=v2
EXCEPTIONSexc2=retc1
CALLSCREENscr1
STARTINGATx1y1
ENDINGATx2y2
CALLTRANSACTIONtran1
ANDSKIPFIRSTSCREEN
USINGtabla1
MODEm1
UPDATEupd1
MESSAGESINTOmsg1
CALLDIALOGdlog1
USINGtabla
MODEmode1
ANDSKIPFIRSTSCREEN
EXPORTINGv1FROMv2
IMPORTINGv1TOv2
CALLMETHODmet1(
EXPORTINGp1=v1
IMPORTINGp1=v1
CHANGINGp1=v1)
CALLMETHODmet1
EXPORTINGp1=v1
IMPORTINGp1=v1
CHANGINGp1=v1
RECEIVINGp1=v1
EXCEPTIONSex=idx
CALLcfunc1
IDid1FIELDv1...IDid1FIELDv2
*--------------------------------------------------------------------------
CASE:
CASEv1
WHENbed1
stm1
WHENbed2
stm2
WHENbedx
WHENOTHERS
stm3
ENDCASE
*--------------------------------------------------------------------------
CHECK:
CHECKSELECT-OPTIONS
CHECKlogexp1
CHECKs1
*--------------------------------------------------------------------------
CLEAR:
CLEARv1
WITHlit1
WITHNULL
CLOSE:
CLOSECURSORcurs1
CLOSEDATASETdsn1
COLLECT:
COLLECTtabla1
COLLECTwrk1INTOtabla2
*--------------------------------------------------------------------------
COMMIT:
COMMITWORK
ANDWAIT
*--------------------------------------------------------------------------
COMMUNICATION:
COMMUNICATIONINITDESTINATIONdesti1IDident1
COMMUNICATIONALLOCATEIDiden1
COMMUNICATIONACCEPTIDident1
COMMUNICATIONSENDIDident1BUFFERb1
COMMUNICATIONRECEIVEIDident1
BUFFERb1
DATAINFOdatn1
STATUSINFOstat1
COMMUNICATIONDEALLOCATEIDident1
*--------------------------------------------------------------------------
CONCATENATE:
CONCATENATEv1v2...vxINTOf2
SEPARATEDBYf3
*--------------------------------------------------------------------------
COMPUTE:
COMPUTEv1=arithexp
*--------------------------------------------------------------------------
CONDENSE:
CONDENSEr1
NO-GAPS
CONDENSEv1
*--------------------------------------------------------------------------
CONSTANTS:
CONSTANTScon1...VALUEvalu1
CONSTANTScon1...VALUEISINITIAL
CONSTANTScon1(len2)...VALUEvalu1
CONSTANTScon1(len2)...VALUEISINITIAL
CONSTANTS:
BEGINOFconr1,
CONSTANTS:
ENDOFconr1
*--------------------------------------------------------------------------
CONTINUE:
CONTINUE
CONTROLS:
CONTROLScontrlTYPETABLEVIEWUSINGSCREEN
*--------------------------------------------------------------------------
CONVERT:
CONVERTDATEv1INTOINVERTED-DATEv2
CONVERTINVERTED-DATEv1INTODATEv2
CONVERTTEXTtext1INTOSORTABLECODEcod2
*--------------------------------------------------------------------------
CREATE:
CREATEOBJECTobj1class2
LANGUAGElang1
*--------------------------------------------------------------------------
DATA:
DATA:
BEGINOFtabla1
INCLUDESTRUCTUREstruc1
DATA:
ENDOFtabla1
DATA:
BEGINOFCOMMONPARTcp1
DATA:
ENDOFCOMMONPART
DATA:
BEGINOFtabla1OCCURSn2
VALIDBETWEENv1ANDv2
DATA:
ENDOFtabla1
DATA:
BEGINOFrec1
DATA:
ENDOFrec1
DATA:
v1
TYPEtyp1
LIKEv1
TYPEtyp1OCCURSn2
LIKEv1OCCURSn2
TYPELINEOFityp1
LIKELINEOFtabla1
VALUElit1
DECIMALSn1
WITHHEADERLINE
DATA:
v1(len1)
TYPEtipo
TYPEtyp1OCCURSn2
TYPELINEOFityp1
VALUElit1
DECIMALSn1
WITHHEADERLINE
*--------------------------------------------------------------------------
DEFINE:
DEFINEname1
stm1
stm2
END-OF-DEFINITION
*--------------------------------------------------------------------------
DELETE:
DELETEtabla1
DELETEtabla1INDEXix2
DELETEtabla1FROMix2TOix3
DELETEtabla1WHEREcond2
FROMix1
TOix2
DELETEADJACENTDUPLICATESFROMtabla1
COMPARINGv1v2...
COMPARINGALLFIELDS
DELETEetab1
DELETE*etab1
DELETEFROMetab1WHEREcond2
CLIENTSPECIFIED
DELETEFROM(name_etab1)WHEREcond2
CLIENTSPECIFIED
DELETE(name_etab1)
FROMarea1
CLIENTSPECIFIED
DELETEetabFROMTABLEtabla2
DELETE(name_etab1)FROMTABLEtabla
CLIENTSPECIFIED
DELETEetab1VERSIONver2
DELETE*etab1VERSIONver2
DELETEDATASETname1
DELETEFROMDATABASEetab1(ar)IDkey2
CLIENTv1
DELETEREPORTname1
DELETETEXTPOOLname1LANGUAGElan2
DELETEDYNPROv1
DELETEFROMSHAREDBUFFERetab1(ar)...ID
*--------------------------------------------------------------------------
DESCRIBE:
DESCRIBEDISTANCEBETWEENv1ANDv2INTOv2
DESCRIBEFIELDv1
DECIMALSn1
EDITMASKmsk1
LENGTHn1
OUTPUT-LENGTHn1
TYPEt1COMPONENTSn2
TYPEt1
DESCRIBELIST
NUMBEROFLINESln1
INDEXix1
NUMBEROFPAGESn1
INDEXix1
LINElinPAGEpn1
INDEXix1
DESCRIBELISTPAGEpag1
INDEXix1
LINE-SIZEcol1
LINE-COUNTlin1
LINESlin1
FIRST-LINElin1
TOP-LINESlin1
TITLE-LINESlin1
HEAD-LINESlin1
END-LINESlin1
DESCRIBETABLEtabla1
LINESn1
OCCURSn1
*--------------------------------------------------------------------------
DETAIL:
DETAIL
DIVIDE:
DIVIDEv1BYv2
DIVIDE-CORRESPONDINGr1BYr2
*--------------------------------------------------------------------------
DO:
DO
DOv1TIMES
DOn1TIMES
VARYINGv1FROMv2NEXTv3
DOn1TIMES
VARYINGv1FROMv2NEXTv3
ENDDO
DO254TIMES.
MOVE'#'TOSY-ULINE+SY-INDEX
(1).
ENDDO
*--------------------------------------------------------------------------
EDITOR-CALL:
EDITOR-CALLFORtabla
TITLEtext
DISPLAY-MODE
EDITOR-CALLFORREPORTname
DISPLAY-MODE
*--------------------------------------------------------------------------
ELSE:
ELSE
ELSEIFlogop1
*--------------------------------------------------------------------------
END:
END-OF-DEFINITION
END-OF-PAGE
END-OF-SELECTION
ENDAT
ENDCASE
ENDDO
ENDEXEC
ENDFORM
ENDFUNCTION
ENDIF
ENDLOOP
ENDMODULE
ENDON
ENDPROVIDE
ENDSELECT
ENDWHILE
EXECSQL:
EXECSQL
PERFORMINGform
ENDEXEC
*--------------------------------------------------------------------------
EXIT:
EXIT
EXITFROMSQL
EXITFROMSTEP-LOOP
*--------------------------------------------------------------------------
EXPORT:
EXPORTobjn1...objn2TOMEMORY
FROMv1...
IDkey1
EXPORTobjn1...objn2TODATABASEetab3(ar4)IDkey5
FROMv1
CLIENTc1
USINGform_name
EXPORTobj1...objn2TODATASETdsn3(ar4)IDkey5
EXPORTobj1...objn2TOSHAREDBUFFERetab3(ar4)IDkey5
FROMv1...
CLIENTc1
EXPORTDYNPROhead1fields2order3match4IDid4
EXPORTNAMETABhfIDid
EXTRACT:
EXTRACTr1
FETCH:
FETCHNEXTCURSORc1INTOwork2
FIELD-GROUPS:
FIELD-GROUPS:
fgr1,fgr2...
FIELD-SYMBOLS:
FIELD-SYMBOLS
STRUCTUREstru1DEFAULTwork2
TYPEtyp1
TYPELINEOFtyp1
LIK