RP-PROVIDE-LAST
OH11 工资配置
**************************************
* 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