tools creating sample programs

[Former Member]

send me for tools creating

[uwe_schieferstein]

Hello

You will find only a few code-generating programs, e.g.:

[ALV robot|https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/b09ac4d5-e3ad-2910-6a81-96d1b861928c]

[Code Generator for reuse_alv_grid_display|http://www.alv-grid-display.de/alv_grid_en.html]

Regards

Uwe

[Former Member]

Hi,

To my knowledge i don't know the tool that create the program.. But i had writtern a program by which if you execute it creates a Program.

Check this code.

parameter:
  p_prog    type sy-repid obligatory,
  p_shtxt type repti obligatory,
  p_pack  type devclass default '$tmp'.

data:
  t_bdcdata like
   standard table
         of bdcdata.
data:
  wa_bdcdata like line of t_bdcdata.

refresh t_bdcdata.

clear wa_bdcdata.
wa_bdcdata-program    =  'SAPLWBABAP'.
wa_bdcdata-dynpro     =  '0100'.
wa_bdcdata-dynbegin   =  'X'.
wa_bdcdata-fnam       =  'RS38M-PROGRAMM'.
wa_bdcdata-fval       =  p_prog.
append wa_bdcdata to t_bdcdata.

clear wa_bdcdata.
wa_bdcdata-fnam       =  'BDC_OKCODE'.
wa_bdcdata-fval       =  'NEW'.
append wa_bdcdata to t_bdcdata.

clear wa_bdcdata.
wa_bdcdata-program    =  'SAPLSEDTATTR'.
wa_bdcdata-dynpro     =  '0200'.
wa_bdcdata-dynbegin   =  'X'.
wa_bdcdata-fnam       =  'RS38M-REPTI'.
wa_bdcdata-fval       =  p_shtxt.
append wa_bdcdata to t_bdcdata.

clear wa_bdcdata.
wa_bdcdata-fnam       =  'TRDIR-SUBC'.
wa_bdcdata-fval       =  '1'.
append wa_bdcdata to t_bdcdata.

clear wa_bdcdata.
wa_bdcdata-fnam       =  'BDC_OKCODE'.
wa_bdcdata-fval       =  'CONT'.
append wa_bdcdata to t_bdcdata.

if p_pack eq '$TMP'.
*local object
  clear wa_bdcdata.
  wa_bdcdata-program    =  'SAPLSTRD'.
  wa_bdcdata-dynpro     =  '0100'.
  wa_bdcdata-dynbegin   =  'X'.
  wa_bdcdata-fnam       =  'KO007-L_DEVCLASS'.
  wa_bdcdata-fval       =  ' '.
  append wa_bdcdata to t_bdcdata.

  clear wa_bdcdata.
  wa_bdcdata-fnam       =  'BDC_OKCODE'.
  wa_bdcdata-fval       =  'TEMP'.
  append wa_bdcdata to t_bdcdata.


else.
*package assignment with request
  clear wa_bdcdata.
  wa_bdcdata-program    =  'SAPLSTRD'.
  wa_bdcdata-dynpro     =  '0100'.
  wa_bdcdata-dynbegin   =  'X'.
  wa_bdcdata-fnam       =  'KO007-L_DEVCLASS'.
  wa_bdcdata-fval       =  p_pack.
  append wa_bdcdata to t_bdcdata.

  clear wa_bdcdata.
  wa_bdcdata-fnam       =  'BDC_OKCODE'.
  wa_bdcdata-fval       =  'ADD'.
  append wa_bdcdata to t_bdcdata.

  clear wa_bdcdata.
  wa_bdcdata-program    =  'SAPLSTRD'.
  wa_bdcdata-dynpro     =  '0300'.
  wa_bdcdata-dynbegin   =  'X'.
  wa_bdcdata-fnam       =  'KO008-TRKORR'.
  wa_bdcdata-fval       =  ' '.
  append wa_bdcdata to t_bdcdata.

  clear wa_bdcdata.
  wa_bdcdata-fnam       =  'KO008-AS4TEXT'.
  wa_bdcdata-fval       =  ' '.
  append wa_bdcdata to t_bdcdata.

  clear wa_bdcdata.
  wa_bdcdata-fnam       =  'BDC_OKCODE'.
  wa_bdcdata-fval       =  'LOCK'.
  append wa_bdcdata to t_bdcdata.


endif.                                 " IF P_PACK EQ '$TMP'

CALL TRANSACTION 'SE38' USING t_bdcdata MODE 'E'.

Hope this would help you.

Regards

Narin Nandivada

[Former Member]

Hi

Go through the link given below ;

https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/79b5e890-0201-0010-7f8e-b7c207ed...

With Regards

Nikunj shah