Di Pagi ini ditengah kebuntuan aq buat menulis ,,,
Terbersit ide buat berbagi ilmu,,,
Aq mau menunjukkan salah satu source code tentang bagaimana membuat fungsi di SAP ,,,
(Kalau ada yang salah mohon koreksinya ya),,,

FUNCTION zhr_rfc_drp_pelatihan.
*”———————————————————————-
*”*”Local Interface:
*” IMPORTING
*” VALUE(N_NIK) LIKE P0001-PERNR
*” TABLES
*” T_PELATIHAN STRUCTURE ZSTRU_PELATIHAN
*”———————————————————————-

DATA : wa_9107 LIKE pa9107.
DATA :
itab_1001 LIKE hrp1001,
itab_1000 LIKE hrp1000.
DATA :
it_1001 LIKE hrp1001,
it_1000 LIKE hrp1000.

DATA: v_nama_pelatihan(255),
v_penyelenggara(255),
v_tgl_mulai(10),
v_tgl_selesai(10),
v_angkatan(10),
v_peringkat(10).

* Riwayat Dinas HRMIS
SELECT * FROM pa9107 INTO wa_9107
WHERE pernr = n_nik.

CLEAR v_nama_pelatihan.
CLEAR v_penyelenggara.
CLEAR v_tgl_mulai.
CLEAR v_tgl_selesai.
CLEAR v_angkatan.
CLEAR v_peringkat.

MOVE wa_9107-jdpel TO v_nama_pelatihan.
MOVE wa_9107-insti TO v_penyelenggara.
MOVE wa_9107-begda TO v_tgl_mulai.
MOVE wa_9107-endda TO v_tgl_selesai.
MOVE wa_9107-class TO v_angkatan.
MOVE wa_9107-ranki TO v_peringkat.

MOVE v_nama_pelatihan TO t_pelatihan-nama_pelatihan.
MOVE v_penyelenggara TO t_pelatihan-penyelenggara.
MOVE v_tgl_mulai TO t_pelatihan-tgl_mulai.
MOVE v_tgl_selesai TO t_pelatihan-tgl_selesai.
MOVE v_angkatan TO t_pelatihan-angkatan.
MOVE v_peringkat TO t_pelatihan-peringkat.

APPEND t_pelatihan.

ENDSELECT.

CLEAR : t_pelatihan.

SELECT *
INTO itab_1001
FROM hrp1001
WHERE
otype EQ ‘E’ AND
rsign EQ ‘A’ AND
relat EQ ‘025′ AND
sclas EQ ‘P’ AND
sobid EQ n_nik
AND begda GE ‘20080101′.

IF sy-subrc EQ 0.

select *
INTO itab_1000
FROM hrp1000
WHERE objid EQ itab_1001-objid
AND otype EQ ‘E’
AND plvar EQ ‘02′
AND begda GE ‘20080101′.

ENDSELECT.

IF sy-subrc EQ 0.
select single *
From hrp1001
into it_1001
Where
otype EQ ‘E’ AND
rsign EQ ‘A’ AND
relat EQ ‘036′ AND
sclas EQ ‘U’
AND begda GE ‘20080101′
AND objid EQ itab_1001-objid.

IF sy-subrc EQ 0.
select single *
From hrp1000
into it_1000
where objid EQ it_1001-sobid
And otype EQ ‘E’
And plvar EQ ‘02′
AND begda GE ‘20080101′ .

ENDIF.
ENDIF.

MOVE itab_1000-stext TO t_pelatihan-nama_pelatihan.
MOVE itab_1000-begda TO t_pelatihan-tgl_mulai .
MOVE itab_1000-endda TO t_pelatihan-tgl_selesai .
MOVE it_1000-stext TO t_pelatihan-penyelenggara .

append t_pelatihan.

ENDIF.

ENDSELECT.

ENDFUNCTION.

Itu dulu aja ya ^_^
Moga2 bermanfaat