My company uses a function module to write all report handings, it shows the report name(variant used), user name, system, date, time, Program title in the center and can handle the centering whether the report width is 80 or 132 characters across, it calculates the center at runtime. Here is the code.
FUNCTION z_standard_page_header .
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(PAGE_NUMBER) LIKE SY-PAGNO DEFAULT SY-PAGNO
*" VALUE(REPORT_NAME) LIKE SY-REPID
*" VALUE(REPORT_TITLE) LIKE SY-TITLE DEFAULT SY-TITLE
*" VALUE(REPORT_WIDTH) LIKE SY-LINSZ DEFAULT SY-LINSZ
*" VALUE(RUN_DATE) LIKE SY-DATUM DEFAULT SY-DATUM
*" VALUE(RUN_TIME) LIKE SY-UZEIT DEFAULT SY-UZEIT
*" VALUE(SUB_TITLE) DEFAULT SPACE
*" VALUE(VARIANT_NAME) LIKE SY-SLSET DEFAULT SY-SLSET
*"----------------------------------------------------------------------
* Working storage
DATA: center_start LIKE sy-linsz,
right_align LIKE sy-linsz,
title_length LIKE sy-linsz,
pgm_var(23),
system_info(7).
** * * * * * * * S T A R T O F F U N C T I O N * * * * * * * **
* set system id and client
CONCATENATE sy-sysid sy-mandt INTO system_info
SEPARATED BY space.
*-> LINE 1
* Calculate center and right positions for the first line
* CENTER_START = ( REPORT_WIDTH - 20 ) / 2 + 1.
center_start = report_width / 2 - 7.
right_align = report_width - 19.
* Write the first header line using the positions calculated
IF variant_name = space.
WRITE: /000 report_name.
ELSE.
CONCATENATE report_name '-' variant_name INTO pgm_var.
CONDENSE pgm_var NO-GAPS.
WRITE: /000 pgm_var.
ENDIF.
* Report title
POSITION center_start.
WRITE: 'Your Company'.
POSITION right_align.
WRITE: 'Page No :',
page_number USING EDIT MASK 'LL_______'.
* END OF LINE 1
*-> LINE 2
* Calculate center and right positions for the second line
title_length = strlen( report_title ).
center_start = ( report_width - title_length ) / 2 + 1.
right_align = report_width - 19.
* write the report user name
WRITE: / sy-uname.
* Write the second header line using the positions calculated
IF NOT report_title IS INITIAL.
POSITION center_start.
WRITE: report_title.
ENDIF.
* write Run Date
POSITION right_align.
WRITE: 'Run date:',
run_date MM/DD/YYYY.
*-> LINE 3
* write system id and client
WRITE: /000 system_info.
* Calculate center position and write the sub title if it exists
* write title for line 3 if passed
IF sub_title NE space.
title_length = strlen( sub_title ).
center_start = ( report_width - title_length ) / 2 + 1.
POSITION center_start.
WRITE: sub_title.
ENDIF.
POSITION right_align.
WRITE: 'Run time:',
run_time USING EDIT MASK '__:__'.
* Finally, underline the header
ULINE.
* Test for record lock contention
ENDFUNCTION.
You can then call this function module in the TOP-OF-PAGE event.
top-of-page.
* Write Standard Header
call function 'Z_STANDARD_PAGE_HEADER'
exporting
page_number = sy-pagno
report_name = 'ZREPORT_NAME'
report_title = sy-title
report_width = sy-linsz
run_date = sy-datum
run_time = sy-uzeit
sub_title = space
variant_name = sy-slset.
Regards,
Rich Heilman
- SAP Managed Tags:
My company uses a function module to write all report handings, it shows the report name(variant used), user name, system, date, time, Program title in the center and can handle the centering whether the report width is 80 or 132 characters across, it calculates the center at runtime. Here is the code.
FUNCTION z_standard_page_header .
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(PAGE_NUMBER) LIKE SY-PAGNO DEFAULT SY-PAGNO
*" VALUE(REPORT_NAME) LIKE SY-REPID
*" VALUE(REPORT_TITLE) LIKE SY-TITLE DEFAULT SY-TITLE
*" VALUE(REPORT_WIDTH) LIKE SY-LINSZ DEFAULT SY-LINSZ
*" VALUE(RUN_DATE) LIKE SY-DATUM DEFAULT SY-DATUM
*" VALUE(RUN_TIME) LIKE SY-UZEIT DEFAULT SY-UZEIT
*" VALUE(SUB_TITLE) DEFAULT SPACE
*" VALUE(VARIANT_NAME) LIKE SY-SLSET DEFAULT SY-SLSET
*"----------------------------------------------------------------------
* Working storage
DATA: center_start LIKE sy-linsz,
right_align LIKE sy-linsz,
title_length LIKE sy-linsz,
pgm_var(23),
system_info(7).
** * * * * * * * S T A R T O F F U N C T I O N * * * * * * * **
* set system id and client
CONCATENATE sy-sysid sy-mandt INTO system_info
SEPARATED BY space.
*-> LINE 1
* Calculate center and right positions for the first line
* CENTER_START = ( REPORT_WIDTH - 20 ) / 2 + 1.
center_start = report_width / 2 - 7.
right_align = report_width - 19.
* Write the first header line using the positions calculated
IF variant_name = space.
WRITE: /000 report_name.
ELSE.
CONCATENATE report_name '-' variant_name INTO pgm_var.
CONDENSE pgm_var NO-GAPS.
WRITE: /000 pgm_var.
ENDIF.
* Report title
POSITION center_start.
WRITE: 'Your Company'.
POSITION right_align.
WRITE: 'Page No :',
page_number USING EDIT MASK 'LL_______'.
* END OF LINE 1
*-> LINE 2
* Calculate center and right positions for the second line
title_length = strlen( report_title ).
center_start = ( report_width - title_length ) / 2 + 1.
right_align = report_width - 19.
* write the report user name
WRITE: / sy-uname.
* Write the second header line using the positions calculated
IF NOT report_title IS INITIAL.
POSITION center_start.
WRITE: report_title.
ENDIF.
* write Run Date
POSITION right_align.
WRITE: 'Run date:',
run_date MM/DD/YYYY.
*-> LINE 3
* write system id and client
WRITE: /000 system_info.
* Calculate center position and write the sub title if it exists
* write title for line 3 if passed
IF sub_title NE space.
title_length = strlen( sub_title ).
center_start = ( report_width - title_length ) / 2 + 1.
POSITION center_start.
WRITE: sub_title.
ENDIF.
POSITION right_align.
WRITE: 'Run time:',
run_time USING EDIT MASK '__:__'.
* Finally, underline the header
ULINE.
* Test for record lock contention
ENDFUNCTION.
You can then call this function module in the TOP-OF-PAGE event.
top-of-page.
* Write Standard Header
call function 'Z_STANDARD_PAGE_HEADER'
exporting
page_number = sy-pagno
report_name = 'ZREPORT_NAME'
report_title = sy-title
report_width = sy-linsz
run_date = sy-datum
run_time = sy-uzeit
sub_title = space
variant_name = sy-slset.
Regards,
Rich Heilman
- SAP Managed Tags:
If you question has been answered, would you consider award points for helpful answers and marking as solved?
Regards,
Rich Heilman
- SAP Managed Tags:
<i>It seems that the points are automatically marked for point number 6.</i>
Not sure what that is all about.... 😮
<i>I will try to mark yours solved, so you could be the best of the BEST... Isn't that what you wanted?</i>
No, not at all. If the code in my answer has helped you solve the problem, then yes, mark as solved, but if it didn't, then don't. You should always mark solved next to the post which solved your problem or answer your question completely, this may when the next developer comes along with the same question, he can see on this post that it was answered and get the solution.
Regards,
Rich Heilman
- SAP Managed Tags:
Not sure that it is specific to your account, but you may want to report the behavoir to sdn@sap.com
Regards,
Rich Heilman
- SAP Managed Tags:
