Automated Setter-Method implementation

Question

Hi all,
in a currently running project we are implementing a few "entities" with several attributes. So for time saving I developed a short report, that generates the setter methods with parameters.
But I actually don't have an idea how to automate the implementation of these methods.
Has someone an idea how to do this??
Here is my actual implementation of the program (if someone want to test and copy it; actually it writes the statements for the implementation to a list, from witch you can copy and past it to the ABAP-Editor):
*& Report Z_CREATE_SETTER *
REPORT z_create_setter .
TYPE-POOLS:
seoo, seos.
DATA:
s_class TYPE seoclskey,
s_param TYPE seocmpkey,
attrib_list TYPE seoo_attributes_r,
wa_attrib TYPE seoo_attribute_r,
method TYPE seoo_method_w,
methods TYPE seoo_methods_w,
parameters TYPE seos_parameters_w,
parameter TYPE seos_parameter_w,
out TYPE string.
PARAMETERS:
class TYPE seoclsname OBLIGATORY.
MOVE class TO s_class-clsname.
CALL FUNCTION 'SEO_ATTRIBUTE_READ_ALL'
EXPORTING
cifkey = s_class
IMPORTING
attributes = attrib_list
EXCEPTIONS
clif_not_existing = 1
OTHERS = 2.
SORT attrib_list.
LOOP AT attrib_list INTO wa_attrib.
CLEAR: method, parameter.
REFRESH: methods, parameters.
* Methode anlegen
MOVE s_class TO method-clsname.
CONCATENATE 'set_' wa_attrib-cmpname INTO method-cmpname.
TRANSLATE method-cmpname TO UPPER CASE.
CONCATENATE 'Setter für' wa_attrib-cmpname INTO method-descript
SEPARATED BY space.
MOVE sy-langu TO method-langu.
MOVE '2' TO method-exposure.
MOVE '1' TO method-state.
APPEND method TO methods.
CALL FUNCTION 'SEO_METHOD_CREATE'
EXPORTING
cifkey = s_class
methods = methods.
* Parameter anlagen
MOVE s_class TO s_param-clsname.
MOVE method-cmpname TO s_param-cmpname.
MOVE s_class TO parameter-clsname.
MOVE s_param-cmpname TO parameter-cmpname.
CONCATENATE 'IM_' wa_attrib-cmpname INTO parameter-sconame.
TRANSLATE parameter-sconame TO UPPER CASE.
MOVE 0 TO parameter-pardecltyp.
MOVE 1 TO parameter-parpasstyp.
MOVE wa_attrib-typtype TO parameter-typtype.
MOVE wa_attrib-type TO parameter-type.
MOVE wa_attrib-descript TO parameter-descript.
MOVE sy-langu TO parameter-langu.
APPEND parameter TO parameters.
CALL FUNCTION 'SEO_PARAMETER_CREATE'
EXPORTING
cmpkey = s_param
parameters = parameters.
ULINE.
CONCATENATE parameter-cmpname '.' INTO out.
CONCATENATE 'method' out INTO out SEPARATED BY space.
WRITE: / out.
CLEAR out.
CONCATENATE parameter-sconame '.' INTO out.
CONCATENATE wa_attrib-cmpname '=' out INTO out SEPARATED BY space.
WRITE: / out.
WRITE: / '/aip/if_entity~is_dirty = ''X''.'.
WRITE: / 'endmethod.'.
ENDLOOP.

Answer 1

Let's say I have an object array as a memeber variable for my CustomException class. I also have constructor which will initialize the object array; on top of this I want to add some setter method where in I can set the desired object array.
Can I have this setter? Is there any guidline to have setter method in an Exception class. I have never seen any setter method in the Exception class. Why is it so? Is there any reson behind this?
Here is my sample program
class CustomException extends Exception
     Object objArray[] = null;
     Exception ex;
     public CustomException()
     public CustomException(Exception ex)
          super(ex);
          this.ex = ex;
     public CustomException(Exception ex, Object objArray[])
          super(ex);
          this.ex = ex;
          this.objArray = objArray;
     public Object[] getObjectArray()
          return objArray;
     // Can I have this setter? Is there any guidline to have setter method
     // in an Exception class. I have never seen any setter method in the Exception class
     // Why is it so? Is there any reson behind this?
     public void setObjectArray(Object objArray[])
          this.objArray = objArray;
}