DTP Activation Program

[Former Member]

Hi All,

I am developing a ABAP program to activate DTP.

By searching SDN forums i came to know that we have one program RSBKDTPREPAIR can be used for all the DTP's .

but i need to activate only the required DTP by giving an "technical name entry".

please help me to develop the program by giving suggestion in

1. how to start this program.

2. Main table and other point to represent and their use.

3. the scope of areas to check in this development.

Honestly waiting for your valuable suggestions.

Thanks in advance

Sandy

[Former Member · Accepted solution]

Hi,

try this code:

parameters : p_id(30) type c.

data l_t_dtp type standard table of rsbkdtp.

select * from rsbkdtp into table l_t_dtp where dtp eq p_id and objvers = 'A'.

data l_s_dtp type rsbkdtp.

loop at l_t_dtp into l_s_dtp.

try.

message s018(rsbk) with l_s_dtp-dtp.

data l_r_dtp type ref to cl_rsbk_dtp.

l_r_dtp = cl_rsbk_dtp=>factory( l_s_dtp-dtp ).

l_r_dtp->if_rso_tlogo_maintain~prepare( ).

data l_errorhandling type rsbkerrorhandling.

l_errorhandling = l_r_dtp->get_errorhandling( ).

case l_errorhandling.

when ' '.

l_r_dtp->set_errorhandling( '1' ).

l_r_dtp->set_errorhandling( ' ' ).

when '1'.

l_r_dtp->set_errorhandling( ' ' ).

l_r_dtp->set_errorhandling( '1' ).

when '2'.

l_r_dtp->set_errorhandling( ' ' ).

l_r_dtp->set_errorhandling( '2' ).

when others.

endcase.

l_r_dtp->save( ).

l_r_dtp->activate( ).

commit work.

catch cx_root.

endtry.

endloop.

thnks.

[Former Member · Accepted solution]

Hi Sakthi,

Thanks for your useful program.

Regards

Sandy