Code: Alles auswählen.
*Bestimmen der Archive Parameter
call function 'GET_PRINT_PARAMETERS'
exporting
mode = 'CURRENT'
* no_dialog = 'X'
importing
out_archive_parameters = arc_params
out_parameters = pri_params
valid = valid_flag
exceptions
archive_info_not_found = 01.
Code: Alles auswählen.
* Bestimmen der Archivparameter
IF ( pri_params-armod = c_armd_arc OR
pri_params-armod = c_armd_print_arc )
AND mode <> c_mode_defvals.
CALL FUNCTION 'GET_ARCHIVE_PARAMETERS'
EXPORTING
in_parameters = arc_params
report = arc_report
printer = pri_params-pdest
Code: Alles auswählen.
form archiv_parameter.
data valid_flag(1).
data arc_text like arc_params-arctext.
*Bestimmen der Archive Parameter
call function 'GET_PRINT_PARAMETERS'
exporting
mode = 'CURRENT'
* no_dialog = 'X'
importing
out_archive_parameters = arc_params
out_parameters = pri_params
valid = valid_flag
exceptions
archive_info_not_found = 01.
* Bilden Archivtitel
clear arc_text.
concatenate sy-repid sy-datum sy-uzeit
into arc_text separated by ' '.
*Setzen der Parameter
call function 'GET_PRINT_PARAMETERS'
exporting
archive_text = arc_text
in_archive_parameters = arc_params
in_parameters = pri_params
mode = 'CURRENT'
no_dialog = 'X'
layout = 'X_65_132' "Vorgabe Aufbereitung
line_count = 65 "Zeilen
line_size = 132 "Spalten
importing
out_archive_parameters = arc_params
out_parameters = pri_params
valid = valid_flag
exceptions
archive_info_not_found = 1
invalid_print_params = 2
invalid_archive_params = 3
others = 4.
endform. " archiv_parameter
Code: Alles auswählen.
data: myfeld(30) type c.
get parameter id 'ZTEST' field myfeld.