1、ABAP语句整理1.ADD: ADD v1 FROM v2 TO v3 GIVING v4 ADD v1 THEN v2 UNTIL v3 GIVING m ADD v1 THEN v2 UNTIL v3 TO m ADD v1 THEN v2 UNTIL v3 ADD v1 TO v2 ADD-CORRESPONDING rec1 TO rec2前提,仅针对工作区做运算,且指定的计算范围内应该都是同一类型的数字(series-n1 到 series-n6全是数字就可以,前后中间可以有其他类型的,但运算对象为同一类型数字)主要是在循环时,再循环内部对有特定规律的数据进行合计使用。DATA: B
2、EGIN OF series, kk1 TYPE c VALUE dd, yy TYPE i VALUE 1, kk2 TYPE c VALUE dd, ju TYPE i VALUE 1, kk3 TYPE c VALUE dd, t5 TYPE i VALUE 1, kk4 TYPE c VALUE dd, 8s TYPE i VALUE 1, kk5 TYPE c VALUE dd, 00 TYPE i VALUE 1, kk6 TYPE c VALUE dd, 5j TYPE i VALUE 1, END OF series.DATA sum TYPE i.ADD series-yy
3、THEN series-ju UNTIL series-00 giving sum.write sum.结果为 6。2.APPEND: APPEND tabla APPEND area1 TO tabla2 APPEND INITIAL LINE TO tabla1 APPEND tabla SORTED BY v3 APPEND area1 TO tabla2 SORTED BY v3 APPEND LINES OF tabla1 TO tabla 2 APPEND LINES OF tabla1 FROM ix1 TO tabla2 APPEND LINES OF tabla1 FROM
4、ix1 TO ix2 TO tabla2ASSIGN: ASSIGN v1 TO DECIMALS dec TYPE tipo ASSIGN f+off(len) TO DECIMALS dec TYPE tipo ASSIGN (f) TO TYPE tipo DECIMALS dec ASSIGN +off(len) TO DECIMALS dec TYPE tipo ASSIGN TABLE FIELD v1 TO ASSIGN TABLE FIELD (f) TO ASSIGN COMPONENT n OF STRUCTURE rec TO DECIMALS dec TYPE tipo
5、 ASSIGN COMPONENT name OF STRUCTURE rec TO DECIMALS dec TYPE tipo ASSIGN LOCAL COPY OF v1 TO ASSIGN LOCAL COPY OF MAIN TABLE FIELD (f) TO ASSIGN LOCAL COPY OF INITAL LINE tabla TO *-AT: AT END OF v1 AT NEW v1 AT FIRST AT LAST AT fg WITH fg1 AT LINE-SELECTION AT USER-COMMAND AT PFx AT SELECTION-SCREE
6、N ON ps1 ON END OF s1 ON VALUE-REQUEST FOR ps1 ON HELP-REQUEST FOR ps1 ON RADIOBUTTON GROUP radi1 ON BLOCK blk1 OUTPUT*-AUTHORITY-CHECK: AUTHORITY-CHECK OBJECT object ID name1 FIELD f1*-BACK: BACK*-BREAK-POINT: BREAK-POINT lit1*-CALL: CALL FUNCTION AutoInsertFunctionCall CALL FUNCTION fnc1 EXPORTING
7、 p1 = v1 IMPORTING p1 = v1 TABLES p1 = tabla1 CHANGING p1 = v1 EXCEPTIONS exc1 = retc1 CALL FUNCTION fnc1 STARTING NEW TASK tskname2 DESTINATION dest1 DESTINATION IN GROUP grp1 DESTINATION IN GROUP DEFAULT PERFORMING form1 ON END OF TASK EXPORTING p1 = v1 TABLES p1 = tabla1 EXCEPTIONS exc1 = retc2 M
8、ESSAGE msg2 CALL FUNCTION fnc1 IN UPDATE TASK EXPORTING p1 = v1 TABLES p1 = tabla1 CALL FUNCTION fnc1 DESTINATION dest1 EXPORTING p1 = v1 IMPORTING p1 = v1 TABLES p1 = tabla1 CHANGING p1 = v1 EXCEPTIONS exc1 = retc2 EXCEPTIONS exc1 = retc2 MESSAGE mess CALL FUNCTION fnc1 IN BACKGROUND TASK AS SEPARA
9、TE UNIT DESTINATION desti1 EXPORTING p1 = v1 TABLES p1 = tabla1 CALL CUSTOMER-FUNCTION fnc1 EXPORTING p1 = v2 IMPORTING p1 = v2 TABLES p1 = tabla1 CHANGING p1 = v2 EXCEPTIONS exc2 = retc1 CALL SCREEN scr1 STARTING AT x1 y1 ENDING AT x2 y2 CALL TRANSACTION tran1 AND SKIP FIRST SCREEN USING tabla1 MOD
10、E m1 UPDATE upd1 MESSAGES INTO msg1 CALL DIALOG dlog1 USING tabla MODE mode1 AND SKIP FIRST SCREEN EXPORTING v1 FROM v2 IMPORTING v1 TO v2 CALL METHOD met1 ( EXPORTING p1 = v1 IMPORTING p1 = v1 CHANGING p1 = v1 ) CALL METHOD met1 EXPORTING p1 = v1 IMPORTING p1 = v1 CHANGING p1 = v1 RECEIVING p1 = v1
11、 EXCEPTIONS ex = idx CALL cfunc1 ID id1 FIELD v1 . ID id1 FIELD v2*-CASE: CASE v1 WHEN bed1 stm1 WHEN bed2 stm2 WHEN bedx WHEN OTHERS stm3 ENDCASE*-CHECK: CHECK SELECT-OPTIONS CHECK logexp1 CHECK s1*-CLEAR: CLEAR v1 WITH lit1 WITH NULLCLOSE: CLOSE CURSOR curs1 CLOSE DATASET dsn1COLLECT: COLLECT tabl
12、a1 COLLECT wrk1 INTO tabla2*-COMMIT: COMMIT WORK AND WAIT*-COMMUNICATION: COMMUNICATION INIT DESTINATION desti1 ID ident1 COMMUNICATION ALLOCATE ID iden1 COMMUNICATION ACCEPT ID ident1 COMMUNICATION SEND ID ident 1 BUFFER b1 COMMUNICATION RECEIVE ID ident1 BUFFER b1 DATAINFO datn1 STATUSINFO stat1 C
13、OMMUNICATION DEALLOCATE ID ident1*-CONCATENATE: CONCATENATE v1 v2 . vx INTO f2 SEPARATED BY f3*-COMPUTE: COMPUTE v1 = arithexp*-CONDENSE: CONDENSE r1 NO-GAPS CONDENSE v1*-CONSTANTS: CONSTANTS con1 . VALUE valu1 CONSTANTS con1 . VALUE IS INITIAL CONSTANTS con1(len2) . VALUE valu1 CONSTANTS con1(len2)
14、 . VALUE IS INITIAL CONSTANTS: BEGIN OF conr1, CONSTANTS: END OF conr1*-CONTINUE: CONTINUECONTROLS: CONTROLS contrl TYPE TABLEVIEW USING SCREEN*-CONVERT: CONVERT DATE v1 INTO INVERTED-DATE v2 CONVERT INVERTED-DATE v1 INTO DATE v2 CONVERT TEXT text1 INTO SORTABLE CODE cod2*-CREATE: CREATE OBJECT obj1
15、 class2 LANGUAGE lang1*-DATA: DATA: BEGIN OF tabla1 INCLUDE STRUCTURE struc1 DATA: END OF tabla1 DATA: BEGIN OF COMMON PART cp1 DATA: END OF COMMON PART DATA: BEGIN OF tabla1 OCCURS n2 VALID BETWEEN v1 AND v2 DATA: END OF tabla1 DATA: BEGIN OF rec1 DATA: END OF rec1 DATA: v1 TYPE typ1 LIKE v1 TYPE t
16、yp1 OCCURS n2 LIKE v1 OCCURS n2 TYPE LINE OF ityp1 LIKE LINE OF tabla1 VALUE lit1 DECIMALS n1 WITH HEADER LINE DATA: v1(len1) TYPE tipo TYPE typ1 OCCURS n2 TYPE LINE OF ityp1 VALUE lit1 DECIMALS n1 WITH HEADER LINE*-DEFINE: DEFINE name1 stm1 stm2 END-OF-DEFINITION*-DELETE: DELETE tabla1 DELETE tabla
17、1 INDEX ix2 DELETE tabla1 FROM ix2 TO ix3 DELETE tabla1 WHERE cond2 FROM ix1 TO ix2 DELETE ADJACENT DUPLICATES FROM tabla1 COMPARING v1 v2 . COMPARING ALL FIELDS DELETE etab1 DELETE *etab1 DELETE FROM etab1 WHERE cond2 CLIENT SPECIFIED DELETE FROM (name_etab1) WHERE cond2 CLIENT SPECIFIED DELETE (na
18、me_etab1) FROM area1 CLIENT SPECIFIED DELETE etab FROM TABLE tabla2 DELETE (name_etab1) FROM TABLE tabla CLIENT SPECIFIED DELETE etab1 VERSION ver2 DELETE *etab1 VERSION ver2 DELETE DATASET name1 DELETE FROM DATABASE etab1(ar) ID key2 CLIENT v1 DELETE REPORT name1 DELETE TEXTPOOL name1 LANGUAGE lan2
19、 DELETE DYNPRO v1 DELETE FROM SHARED BUFFER etab1(ar) . ID*-DESCRIBE: DESCRIBE DISTANCE BETWEEN v1 AND v2 INTO v2 DESCRIBE FIELD v1 DECIMALS n1 EDIT MASK msk1 LENGTH n1 OUTPUT-LENGTH n1 TYPE t1 COMPONENTS n2 TYPE t1 DESCRIBE LIST NUMBER OF LINES ln1 INDEX ix1 NUMBER OF PAGES n1 INDEX ix1 LINE lin PA
20、GE pn1 INDEX ix1 DESCRIBE LIST PAGE pag1 INDEX ix1 LINE-SIZE col1 LINE-COUNT lin1 LINES lin1 FIRST-LINE lin1 TOP-LINES lin1 TITLE-LINES lin1 HEAD-LINES lin1 END-LINES lin1 DESCRIBE TABLE tabla1 LINES n1 OCCURS n1*-DETAIL: DETAILDIVIDE: DIVIDE v1 BY v2 DIVIDE-CORRESPONDING r1 BY r2*-DO: DO DO v1 TIME
21、S DO n1 TIMES VARYING v1 FROM v2 NEXT v3 DO n1 TIMES VARYING v1 FROM v2 NEXT v3 ENDDO DO 254 TIMES. MOVE # TO SY-ULINE+SY-INDEX(1). ENDDO*-EDITOR-CALL: EDITOR-CALL FOR tabla TITLE text DISPLAY-MODE EDITOR-CALL FOR REPORT name DISPLAY-MODE*-ELSE: ELSE ELSEIF logop1*-END: END-OF-DEFINITION END-OF-PAGE
22、 END-OF-SELECTION ENDAT ENDCASE ENDDO ENDEXEC ENDFORM ENDFUNCTION ENDIF ENDLOOP ENDMODULE ENDON ENDPROVIDE ENDSELECT ENDWHILEEXEC SQL: EXEC SQL PERFORMING form ENDEXEC*-EXIT: EXIT EXIT FROM SQL EXIT FROM STEP-LOOP*-EXPORT: EXPORT objn1 . objn2 TO MEMORY FROM v1 . ID key1 EXPORT objn1 . objn2 TO DATA
23、BASE etab3(ar4) ID key5 FROM v1 CLIENT c1 USING form_name EXPORT obj1 . objn2 TO DATASET dsn3(ar4) ID key5 EXPORT obj1 . objn2 TO SHARED BUFFER etab3(ar4) ID key5 FROM v1 . CLIENT c1 EXPORT DYNPRO head1 fields2 order3 match4 ID id4 EXPORT NAMETAB h f ID idEXTRACT: EXTRACT r1 FETCH: FETCH NEXT CURSOR c1 INTO work2 FIELD-GROUPS: FIELD-GROUPS: fgr1, fgr2 .FIELD-SYMBOLS: FIELD-SYMBOLS STRUCTURE stru1 DEFAULT work2 TYPE typ1 TYPE LINE OF typ1 LIK
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1