안녕하세요?

제가 얼마전 만들어서 나름 유용하게 사용하고 있는 소스 하나 공유합니다.

BDC recording은 편리하기는 하지만, 그걸 코딩하는 부분이 사실 좀 노가다죠. (다른 분들도 노가다로 코딩 하시는 거 맞죠? @.@a)

이 노가다 작업이 귀찮아서 만들어 본 습작이구요.. 습작답게 썩 훌륭하지는 않습니다. ^^;

좌우당간..

SHDB에서 BDC recording을 만든 다음, 해당 recording을 다운로드(Shift+F8) 받아, 해당 파일을 feed하여 BDC 입력 코딩을 도와주도록 작성한 소스입니다.

텍스트 심볼은 사용하지 않았구요.. 다만, 선택텍스트(P_FILE) 하나만 세팅해 주시면 되겠습니다.

저는 "BDC 레코딩 파일(from SHDB)"이라고 명명해서 쓰고 있습니다.

* 소스는 분석하지 말아 주세요. 소스라기 보다는 노가다거든요.. 쪽 팔립니다 ㅠㅠ

** BDC_SUBSCR 및 BDC_CURSOR는 대부분의 경우에 쓸 일이 없기 때문에 해당 소스에서는 배제했습니다. 필요하시면 소스에 추가하시면 됩니다.

*** 저작권은 저에게 있으나, 권리는 포기했습니다. 상업적으로 이용해서 큰 돈 버셔도 좋습니다. ^^

**** dynpro 서브루틴은 다들 비슷한 걸 쓰실 것 같은데.. 아래와 같은 구문이 추가로 필요합니다.

*& 데이터 선언부(전역)

DATA : BEGIN OF bdctab OCCURS 0.
        INCLUDE STRUCTURE bdcdata.
DATA : END OF bdctab.

*& subroutine dynpro

*&---------------------------------------------------------------------*
*&      Form  dynpro
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0237   text
*      -->P_0238   text
*      -->P_0239   text
*----------------------------------------------------------------------*
FORM dynpro USING dynbegin name value.

  CLEAR bdctab.

  IF dynbegin = 'X'.
    MOVE : name  TO bdctab-program,
           value TO bdctab-dynpro,
           'X'   TO bdctab-dynbegin.
  ELSE.
    MOVE : name  TO bdctab-fnam,
           value TO bdctab-fval.
  ENDIF.

  APPEND bdctab.

ENDFORM. " dynpro