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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
490 | REPORT z15_12. | sapjoy | 2012.08.01 | 1295 |
489 | REPORT z12_31. | sapjoy | 2012.07.30 | 1312 |
488 | REPORT z03_25. | sapjoy | 2012.07.30 | 1367 |
487 | REPORT z15_24. | sapjoy | 2012.08.01 | 1392 |
486 | REPORT z16_11. | sapjoy | 2012.08.01 | 1398 |
485 | PROGRAM z13_01. | sapjoy | 2012.08.01 | 1410 |
484 | REPORT z04_04. | sapjoy | 2012.07.30 | 1411 |
483 | REPORT z17_13 . | sapjoy | 2012.08.01 | 1426 |
482 | REPORT z03_24 [1] | sapjoy | 2012.07.30 | 1428 |
481 | REPORT z04_05. | sapjoy | 2012.07.30 | 1439 |
480 | REPORT z04_02. | sapjoy | 2012.07.30 | 1442 |
479 | REPORT Z04_12. | sapjoy | 2012.07.30 | 1443 |
478 | REPORT z03_26. | sapjoy | 2012.07.30 | 1445 |
477 | REPORT z04_10. | sapjoy | 2012.07.30 | 1479 |
476 | REPORT z04_03. | sapjoy | 2012.07.30 | 1494 |
475 | REPORT Z03_17. | sapjoy | 2012.07.30 | 1495 |
474 | REPORT Z03_18. | sapjoy | 2012.07.30 | 1495 |
473 | REPORT Z03_12. | sapjoy | 2012.07.30 | 1498 |
472 | REPORT z03_11. | sapjoy | 2012.07.30 | 1500 |
» | REPORT z04_15. | sapjoy | 2012.07.30 | 1500 |