Code: Alles auswählen.
DATA nri LIKE inri-nrrangenr.
DATA number(6) TYPE n.
DATA repname TYPE syrepid.
DATA i_mode(4) TYPE c.
DATA i_edit TYPE c.
TABLES trdir.
PARAMETERS: p_appl LIKE rsahd-appl OBLIGATORY,
p_werks TYPE werks_d OBLIGATORY.
START-OF-SELECTION.
nri = p_appl.
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr = nri
object = 'ZSREPORT'
IMPORTING
number = number
EXCEPTIONS
OTHERS = 8.
CONCATENATE 'Z' p_appl '_' p_werks '_' number INTO repname.
CALL FUNCTION 'RS_EDTR_ATTR_ADD'
EXPORTING
program_name = repname
activate_immediately = space
IMPORTING
leaved_with_mode = i_mode
leave_to_editor = i_edit
CHANGING
program_trdir = trdir
EXCEPTIONS
program_name_missing = 1
program_exists = 2
wrong_parameter_value = 3.
ich weiß, ich werde Dir jetzt zu nahe treten :joachim hat geschrieben:...
nun wir haben auch externe
programmierer welche mit englisch ganz auf kriegsfuß stehen, denen kann
ich dies nicht zumuten, geschweige
in englisch zu entwickeln. jetzt könnte ich die berater wechseln, alles nicht so einfach
...