topic Re: HR-ABAP macros avoid in Application Development and Automation Discussions

HR-ABAP macros avoid

Former Member — Sat, 22 Nov 2008 11:51:10 GMT

I am new to HR-ABAP

i want to avoid this macro

rp-provide-from-last p0000 space pn-begda pn-endda.

plz send how to write code , with this place.

2. i want to move one internal table fileds to another table

but i do not use move-corresponding ? how plz send code

Re: HR-ABAP macros avoid

Shafiq_Rehman1 — Sun, 23 Nov 2008 10:20:35 GMT

1. to avoid the macro, here is exact code which works behind that macro.


SORT P0000.
PNP-SW-FOUND = '0'.
CLEAR PNP-SY-TABIX.
LOOP AT P0000.
  IF P0000-BEGDA LE PN-ENDDA AND P0000-ENDDA GE PN-ENDDA.
    PNP-SW-FOUND = '1'.
    EXIT.
  ENDIF.
  IF P0000-BEGDA LE PN-ENDDA AND P0000-ENDDA GE PN-BEGDA.
    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 P0000 INDEX PNP-SY-TABIX.
  ELSE.
    CLEAR P0000.
  ENDIF.
ENDIF.

2. To assign an internal table to another without move coresponding, just copy like this:

it_new[] = it_old[].

Re: HR-ABAP macros avoid

Former Member — Sun, 23 Nov 2008 12:18:39 GMT


> I am new  to HR-ABAP
> 
> i want to avoid this macro 
>   rp-provide-from-last p0000 space pn-begda pn-endda.
> 
> plz send how to write code , with this place.
> 
> 2. i want to move one internal table fileds to another table
>    but i do not use move-corresponding ? how plz send code

for the first one

after the first statment

write as

rp-provide-from-last p0000 space pn-begda pn-endda.

if pn-sw-found = '1'.

reject.

endif.

and let for the second statement u can write as

sujjested above

itab[] = itab1[].

regards

sas

Re: HR-ABAP macros avoid

Former Member — Mon, 24 Nov 2008 05:57:59 GMT

srinu

I belive what rehman said is the right way to do

Best Regards

Re: HR-ABAP macros avoid

Former Member — Mon, 24 Nov 2008 06:09:21 GMT

CLEAR: G_TABIX.

LOOP AT P0000.

IF P0000-BEGDA <= PN-ENDDA AND P0000-ENDDA >= PN-ENDDA.

EXIT.

ENDIF.

IF P0000-BEGDA <= PN-ENDDA AND P0000-ENDDA >= PN-BEGDA.

G_TABIX = SY-TABIX.

ENDIF.

ENDLOOP.

IF G_TABIX IS NOT INITIAL.

READ TABLE P0000 INDEX G_TABIX.

ELSE.

CLEAR P0000.

ENDIF.

Re: HR-ABAP macros avoid

Former Member — Wed, 04 Mar 2009 13:21:55 GMT

Thanks

Re: HR-ABAP macros avoid

Former Member — Wed, 04 Mar 2009 13:22:08 GMT

Thanks