legacy와 interface 하는 fuction예제
FUNCTION z_rfc_save_table_zmespij.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" EXPORTING
*" VALUE(RETURN) TYPE ZSDSRETURN
*" TABLES
*" I_TABLE STRUCTURE ZMESPIJ
*"----------------------------------------------------------------------
* Global data declarations
*-Check data
READ TABLE i_table INDEX 1.
IF i_table IS INITIAL.
return-msgty = 'E'.
return-msgv1 = 'No data exists'.
EXIT.
ENDIF.
*-Check P.K.
IF i_table-liner IS INITIAL
OR i_table-ifkdt IS INITIAL
OR i_table-serno IS INITIAL
OR i_table-matnr IS INITIAL
OR i_table-pdtyp IS INITIAL.
return-msgty = 'E'.
return-msgv1 = 'Check your entries. Primary Key missing'.
EXIT.
ENDIF.
CHECK return-msgty <> 'E'.
LOOP AT i_table.
covert_char_to_numc i_table-serno.
ENDLOOP.
LOOP AT i_table.
DATA : ddateend TYPE D.
DATA : C_TIME TYPE SY-DATUM.
ddateend = I_TABLE-PDFDT - 1.
IF I_TABLE-pdftm > '052959' .
I_TABLE-POSDT = I_TABLE-PDFDT.
ELSE.
I_TABLE-POSDT = DDATEEND.
ENDIF.
modify : I_TABLE.
CLEAR : I_TABLE.
ENDLOOP.
*-Insert
INSERT zmespij FROM TABLE i_table ACCEPTING DUPLICATE KEYS.
IF sy-subrc IS INITIAL.
COMMIT WORK AND WAIT.
return-msgty = 'S'.
return-msgv1 = 'Data saved'.
ELSE.
ROLLBACK WORK.
return-msgty = 'E'.
return-msgv1 = 'You cannot save...!'.
ENDIF.
ENDFUNCTION.
댓글 3
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
1244 | [PDF]Web Dynpro for Beginners.. [7] | 울프 | 2007.03.19 | 3626 |
1243 | bdc 프로그램 생성 따라하기 [30] | sapjoy | 2007.03.19 | 9670 |
1242 | BSP Tutorial(영문) [7] | SkyDream | 2007.03.19 | 3485 |
1241 | bapi 사용예제 [10] | sapjoy | 2007.03.20 | 6104 |
1240 | IDOC_INBOUND [10] | 댕댕 | 2007.03.20 | 4051 |
1239 | IDOC_OUTBOUND [10] | 댕댕 | 2007.03.20 | 3945 |
1238 | CATT 자료 [3] | 댕댕 | 2007.03.20 | 3679 |
1237 | SAP Interface overview [5] | 댕댕 | 2007.03.20 | 3356 |
1236 | 자주 쓰는 펑션 모음 [27] | 댕댕 | 2007.03.20 | 10398 |
1235 | 스마트 폼 [3] | 댕댕 | 2007.03.20 | 4124 |
1234 | [PDF]BC ABAP Workbench Tutorial~ [4] | 하얀콩 | 2007.03.20 | 4417 |
1233 | [PDF]BC-ABAP Programming [5] | 하얀콩 | 2007.03.20 | 4598 |
1232 | ABAP Key word 문서입니다. [4] | 화니 | 2007.03.21 | 4776 |
1231 | ALV개념 정리 [20] | 팡다루 | 2007.03.22 | 5614 |
1230 | Background Processing, LUW [10] | 하얀콩 | 2007.03.23 | 3535 |
1229 | 간단한 SALV 만들기 [13] | 펠릭스 | 2007.03.23 | 6132 |
1228 | idoc 이란? [16] | sapjoy | 2007.03.26 | 9769 |
1227 | RFC 호출, Call rfc [11] | sapjoy | 2007.03.26 | 4687 |
1226 | RFC Programming in ABAP [2] | 김관현 | 2007.03.26 | 5378 |
1225 | ALV Gird Control 문서 [4] | 김관현 | 2007.03.26 | 3573 |