안녕하세요. 이제 아밥을 커스트 마이징 쫌 할줄 알게 되었는데
아래와 같은 코드가 나왔네요.
기본적으로 bkpf의 내역을 가져 올라면 select from bkpf... 뭐 이런식이자나요.
그런데 아래와 같이 read bkpf , read bseg , read bset 등.. 많이 하게 되는데요
GET bkpf.으로 시작하네요.. 무슨 말인지 대충이라도 설명 쫌 해주세요
프로그램 로직을 설명해달라는것은 아닙니다. 이런 이런 구문이 있다고 정도..
쫌 부탁드려요
- 아래 소스 참조 -
****read bkpf***********************************************************
GET bkpf.
CLEAR: tcode_fb50.
IF bkpf-tcode = 'FB50'.
tcode_fb50 = 'X'.
ENDIF.
IF bp_hkont IS INITIAL.
CHECK bkpf-tcode <> 'FB05'.
ENDIF.
CHECK bkpf-stblg IS INITIAL.
IF issu_ti = 'X' AND tcode_fb50 <> 'X' AND bkpf-awtyp = 'VBRK'.
CHECK bkpf-bktxt <> ' ' . "and BKPF-BKTXT <> 'RFIDKRTC'.
ENDIF.
CHECK bkpf-bstat = ' '.
CHECK bkpf-awtyp = 'BKPF' OR bkpf-awtyp = 'VBRK'
OR bkpf-awtyp = 'RMRP'.
IF bkpf-awtyp = 'RMRP'.
MOVE bkpf-awkey(10) TO awkey.
SELECT SINGLE stblg FROM rbkp INTO stblg WHERE belnr = awkey AND
gjahr = bkpf-gjahr.
CHECK stblg IS INITIAL.
CLEAR: awkey, stblg.
ENDIF.
IF bkpf-awtyp = 'VBRK'.
MOVE bkpf-awkey TO awkey.
SELECT SINGLE * FROM vbrk WHERE vbeln = awkey.
CHECK vbrk-fksto IS INITIAL.
CHECK vbrk-sfakn IS INITIAL.
CLEAR: awkey.
ENDIF.
CLEAR: xbkpf, xbset, xbsas, ktonr, no_gl, bp, gl, tidt, "xbsad,
tinr, doctyp, invdate, ti_flag, bp_flag, flag,
h_hkont, h_bupla1, h_bupla2, document, tab_ep,
bseg_flag, int_flag, int_flag_fi, trans_art, detail.
REFRESH: tab_ep, xbset, xbsas. "xbsad,
****read bseg***********************************************************
GET bseg.
CHECK bseg-koart <> 'A' AND bseg-koart <> 'M'.
CHECK bseg-bupla = s_bupla.
PERFORM alv_get_bseg.
댓글 5
-
e-abap
2009.09.17 01:04
-
아밥고지를 찾아서
2009.09.17 03:32
LDB로 짜는 이유는 뭐죠..? 찾아 봐야겠네요 -
꼬꼬마정수기
2009.09.17 18:45
LDB로 짜는 이유는 데이타 조회시에 필요한 권한 체크 등의 프로그래머가 일일이 신경써야 할 부분들을 알아서 많이 관리를 해줘요. 또 selection-screen도 만들어주구요~ HR모듈에서는 많이 써요~ ^^ -
남군
2009.09.18 17:58
그냥 매크로 아닌가요?? 궁금.. -
이누야사
2010.01.31 19:33
저도 GET 구문이 궁금했었는데...^^"
LDB(Logical Database)를 이용하여 데이터를 가져오는 문법입니다.
LDB 내에서 SELECT 구문으로 이미 정의되어 있고, GET 구문으로 해당 SELECT 구문을 호출하는 겁니다.
LDB로 검색하면 자료 나올거에요