REPORT zr_db2.
DATA wa TYPE zspfli_00.
wa-carrid = 'AA'.
wa-connid = '0017'.
PERFORM save1 ON COMMIT.
wa-carrid = 'AA'.
wa-connid = '0064'.
PERFORM save2 ON COMMIT.
COMMIT WORK AND WAIT.
*INSERT zspfli_00 FROM wa.
*IF sy-subrc <> 0.
* ROLLBACK WORK.
*ELSE.
* COMMIT WORK.
*ENDIF.
WRITE 'text'.
*&---------------------------------------------------------------------*
*& Form SAVE1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM save1 .
INSERT zspfli_00 FROM wa.
IF sy-subrc <> 0.
MESSAGE a016(pn) WITH 'Fail'.
ENDIF.
ENDFORM. " SAVE1
*&---------------------------------------------------------------------*
*& Form SAVE2
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM save2 .
INSERT zspfli_00 FROM wa.
IF sy-subrc <> 0.
MESSAGE a016(pn) WITH 'Fail'.
ENDIF.
ENDFORM.
댓글 9
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
104 | report painter 설명 자료 [20] | 조재경 | 2012.06.09 | 15546 |
103 | CO CCA Process Overview 자료 입니다. [20] | yaho | 2012.06.28 | 6672 |
102 | abap 교재 요약 워드 파일입니다... [45] | 준맘 | 2012.08.07 | 17202 |
101 | class-based exceptions 예제. | 철죽1 | 2012.09.02 | 12263 |
100 | shared objects 예제 | 철죽1 | 2012.09.02 | 5419 |
99 | create object 예. [1] | 철죽1 | 2012.09.02 | 12910 |
98 | casting 예 [1] | 철죽1 | 2012.09.02 | 11473 |
97 | constructor multiple instantiation 예 | 철죽1 | 2012.09.02 | 11687 |
96 | instance vs static 예 [1] | 철죽1 | 2012.09.02 | 12617 |
95 | method create 예 | 철죽1 | 2012.09.02 | 11643 |
94 | selection screen program [1] | 철죽1 | 2012.09.02 | 5572 |
93 | tabstrip [5] | 철죽1 | 2012.09.02 | 12141 |
92 | lock 예 [5] | 철죽1 | 2012.09.02 | 13216 |
» | POC 예 [9] | 철죽1 | 2012.09.02 | 11105 |
90 | sap 튜닝 자료입니다. [44] | iop890mm | 2012.10.09 | 12667 |
89 | gdb형식의 abap 강좌입니다. [6] | tobypapa | 2012.10.19 | 10981 |
88 | 파일 첨부 - 한개씩 말고 다중으로 가능? [1] | 연오랑 | 2012.10.23 | 12719 |
87 | ABAP Troubleshooting [4] | paran | 2012.11.13 | 14592 |
86 | ABAP Tunning Guide [2] | 민상애비 | 2012.11.14 | 15682 |
85 | Technical Guide-ABAP Tuning 기초 [5] | 민상애비 | 2012.11.14 | 13078 |