REPORT z04_15.
DATA : gs_scarr LIKE scarr,
gv_flg TYPE c.
SELECT SINGLE * FROM scarr INTO gs_scarr
WHERE carrid = 'AA'.
PERFORM delete_data USING gs_scarr.
PERFORM insert_data ON COMMIT.
IF gv_flg = 'X'.
COMMIT WORK.
ENDIF.
FORM delete_data USING value(ps_scarr) TYPE scarr.
DELETE scarr FROM ps_scarr.
IF sy-subrc EQ 0.
gv_flg = 'X'.
ENDIF.
ENDFORM. "insert_data
FORM insert_data.
INSERT scarr FROM gs_scarr.
ENDFORM. "insert_data
DATA : gs_scarr LIKE scarr,
gv_flg TYPE c.
SELECT SINGLE * FROM scarr INTO gs_scarr
WHERE carrid = 'AA'.
PERFORM delete_data USING gs_scarr.
PERFORM insert_data ON COMMIT.
IF gv_flg = 'X'.
COMMIT WORK.
ENDIF.
FORM delete_data USING value(ps_scarr) TYPE scarr.
DELETE scarr FROM ps_scarr.
IF sy-subrc EQ 0.
gv_flg = 'X'.
ENDIF.
ENDFORM. "insert_data
FORM insert_data.
INSERT scarr FROM gs_scarr.
ENDFORM. "insert_data
댓글 0
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 471 | REPORT z05_07. | sapjoy | 2012.07.31 | 1027 |
| 470 | REPORT z05_06. | sapjoy | 2012.07.31 | 1065 |
| 469 | REPORT z05_05. | sapjoy | 2012.07.31 | 980 |
| 468 | REPORT z05_04. | sapjoy | 2012.07.31 | 957 |
| 467 | REPORT z05_03. | sapjoy | 2012.07.31 | 1046 |
| 466 | REPORT z05_02. | sapjoy | 2012.07.31 | 960 |
| 465 | REPORT z05_01. [3] | sapjoy | 2012.07.31 | 1247 |
| 464 | REPORT z04_18. | sapjoy | 2012.07.31 | 922 |
| 463 | REPORT z04_16. | sapjoy | 2012.07.31 | 1109 |
| » | REPORT z04_15. | sapjoy | 2012.07.31 | 1550 |
| 461 | REPORT Z04_14. | sapjoy | 2012.07.31 | 1678 |
| 460 | REPORT Z04_13. | sapjoy | 2012.07.31 | 1717 |
| 459 | REPORT Z04_12. | sapjoy | 2012.07.31 | 1496 |
| 458 | REPORT z04_11. | sapjoy | 2012.07.31 | 1566 |
| 457 | REPORT z04_10. | sapjoy | 2012.07.31 | 1527 |
| 456 | REPORT z04_09. | sapjoy | 2012.07.31 | 1562 |
| 455 | REPORT z04_08. | sapjoy | 2012.07.31 | 1561 |
| 454 | REPORT z04_07. | sapjoy | 2012.07.31 | 1633 |
| 453 | REPORT z04_06. | sapjoy | 2012.07.31 | 1551 |
| 452 | REPORT z04_05. | sapjoy | 2012.07.31 | 1480 |
