How can i add form of my own to "SAPM07DR"

Question

i been asked to add form develop by me to the standart program "SAPM07DR" .
this task came from the need of the implementation
of the "material management" , assign forms and program.
now i get the output "ZWE4"  ,
and i want to assign form of my own  ,
i tried to add smart form but i get message
"Errors occurred while processing output"
so I want to try layout  with  standard program "SAPM07DR" .
how can i add form of my own to this program

Answer 1

First, you must copy this program to your own program with "ZSAPM07DR" then copy the include program where the routine pass through the program
example: entry_we03 -> from include M07DRENT and M07DRAUS
         change this include to ZM07DRENT and ZM07DRAUS
The next step is binding your form in the program.
what forms do you use ? Sapscript or Smartforms ?
in this Program already used Sapscript. You can See there is Open_Form Function in that Program.
I suggest you to Bind Smartforms.
IF you use smartforms, Remark All Statement from
"PERFORM open_form_sammel." to "PERFORM close_form." before endform
that perform including in M07DRAUS -> FORM lesen_wes USING objky lgortsplit.
after that put this program to replace the remark :
data : FMNAME type RS38L_FNAM.
DATA: ls_control_param      TYPE ssfctrlop.
set preview parameters
      MOVE 'X' TO ls_control_param-no_dialog.
      MOVE 'X' TO ls_control_param-preview.
      MOVE 'PRINTER'  TO ls_control_param-device.
*break-point.
*****Print SmartForms
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
        EXPORTING
          FORMNAME           = TNAPR-SFORM
        IMPORTING
          FM_NAME            = FMNAME
        EXCEPTIONS
          NO_FORM            = 1
          NO_FUNCTION_MODULE = 2
          OTHERS             = 3.
     CALL FUNCTION FMNAME
     EXPORTING
         control_parameters   = ls_control_param
     TABLES
         traptab           = traptab
     EXCEPTIONS
         formatting_error = 1
         internal_error   = 2
         send_error       = 3.
     if sy-subrc NE 0.
*******message 'Error' type 'S'.
     endif.
*******End Smartforms
Hope This Help...