ABAP Standard 매크로라고 하네용

 

****************************************
* RP-PROVIDE-LAST INFTY SUBTY BEG END  *
****************************************
* SORT &1
PNP-SW-FOUND = '0'
CLEAR PNP-SY-TABIX
LOOP AT &1
  IF &2 NE SPACE
    CHECK &1-SUBTY EQ &2
  ENDIF
  IF &1-BEGDA LE &4 AND &1-ENDDA GE &4
    PNP-SW-FOUND = '1'
    EXIT
  ENDIF
  IF &1-BEGDA LE &4 AND &1-ENDDA GE &3
    PNP-SY-TABIX = SY-TABIX
  ENDIF
ENDLOOP
IF PNP-SW-FOUND EQ '0'
  IF PNP-SY-TABIX NE 0
    PNP-SW-FOUND = '1'
    READ TABLE &1 INDEX PNP-SY-TABIX
  ELSE
    CLEAR &1
  ENDIF
ENDIF

 

이게 전체 문장인것 같은데 몬소린지 알 수가 없네요 -_-;;

se80 'TRMAC' table 에서 검색해 보세용

매크로 입니다 ( 기능은 perform using문 하고 비슷하죠 @@:)

RP-PROVIDE-FROM-LAST   P0008    SPACE   LOW_DATE   HIGH_DATE

        선언된 매크로                &1         &2           &3                 &4
입니다.
perform문으로 바꾸자면
perform rp-provide-from-last using p0008 space low_date high_date  정도가 되겠습니다

감사합니다.