Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

Data is not showing where ANZFEHLER = 1.

Dear Expert,

I have made this line rejection report, I am facing one problem in my report in final table(lt_final) where ANZFEHLER = 1. it is not showing data during f8, where as if i ANZFEHLER = 2 then it shows data, Can u plz guide me where is the problem........

Sending my report also........

&----


*& Report ZQI_LINEREJECTION

*&

&----


*&

*& Changed by Shelly Malik, Dated : 3 oct, 2008

&----


REPORT zqi_linerejection.

TYPE-POOLS:slis.

TYPES: BEGIN OF tw_mara,

matnr TYPE matnr,

meins TYPE meins,

END OF tw_mara.

TYPES: BEGIN OF tw_qmel,

qmnum TYPE qmnum,"Notification No

qmtxt TYPE qmtxt,"Short Text

erdat TYPE erdat,

matnr TYPE matnr,

prueflos TYPE qplos,"Inspection Lot Number

END OF tw_qmel.

TYPES: BEGIN OF tw_mard,

lgort TYPE lgort_d,

matnr TYPE matnr,

END OF tw_mard.

DATA: lt_mard TYPE TABLE OF tw_mard,

lw_mard TYPE tw_mard..

DATA: lf_ven TYPE lifnr,

lf_name TYPE name1_gp.

TYPES: BEGIN OF tw_qmfe,

qmnum TYPE qmnum,"Notification No

fenum TYPE felfd,"Item Number in Item Record

fetxt TYPE fetxt,"Notification Item Short Text

fegrp TYPE fegrp,"Code Group - Problem

fecod TYPE fecod,"Problem or Damage Code

"fecod TYPE fecod, "Problem or Damage Code

anzfehler TYPE qanzfehl4,"Number of Defects Found

END OF tw_qmfe.

TYPES: BEGIN OF tw_qpct,

codegruppe TYPE qcodegrp, "Code Group

code TYPE qcode, "Code

kurztext TYPE qtxt_code,

END OF tw_qpct.

TYPES: BEGIN OF tw_final,

erdat TYPE erdat,

lgort TYPE lgort_d,

prueflos TYPE qplos,

qmnum TYPE qmnum,

matnr TYPE matnr,

maktx TYPE maktx,

anzfehler TYPE qanzfehl4,"Number of Defects Found

codegruppe TYPE qcodegrp, "Code Group

kurztext TYPE kurztext,

fetxt TYPE fetxt,

lifnr TYPE lifnr,

name1 TYPE name1_gp,

box,

END OF tw_final.

DATA:lf_matn TYPE matnr,

lf_maktx TYPE maktx,

lf_mtart TYPE mtart,

lf_budat TYPE budat,

lt_mara TYPE TABLE OF tw_mara,

lw_mara TYPE tw_mara,

*lt_qals TYPE TABLE OF tw_qals,

*lw_qals TYPE tw_qals,

lt_qmel TYPE TABLE OF tw_qmel,

lw_qmel TYPE tw_qmel,

lt_qmfe TYPE TABLE OF tw_qmfe,

lw_qmfe TYPE tw_qmfe,

lt_final TYPE TABLE OF tw_final,

lw_final TYPE tw_final,

lt_qpct TYPE TABLE OF tw_qpct,

lw_qpct TYPE tw_qpct.

                          • Alv Parameters*********************

DATA: lw_field TYPE slis_fieldcat_alv,

lt_field TYPE TABLE OF slis_fieldcat_alv,

lw_layo TYPE slis_layout_alv,

lf_rep TYPE sy-repid.

***************************************************

************Added by shelly Malik*******************

DATA : gd_tab_group TYPE slis_t_sp_group_alv,

gd_repid LIKE sy-repid,

gt_events TYPE slis_t_event,

gd_prntparams TYPE slis_print_alv.

**********************************************************

DATA : lf_lgort TYPE lgort_d,

lf_lifnr TYPE lifnr.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: pa_werks TYPE werks_d OBLIGATORY,

pa_lgort TYPE lgort_d MATCHCODE OBJECT zlgort OBLIGATORY.

SELECT-OPTIONS: so_matnr FOR lf_matn," OBLIGATORY,

so_budat FOR lf_budat DEFAULT '20080908'," OBLIGATORY,

so_mtart FOR lf_mtart,

so_lifnr FOR lf_lifnr.

" so_lgort FOR lf_lgort." OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.

PARAMETERS : p1_but RADIOBUTTON GROUP g1 DEFAULT 'X',

p2_but RADIOBUTTON GROUP g1.

SELECTION-SCREEN END OF BLOCK b2.

INITIALIZATION.

so_mtart-low = 'FERT'.

so_mtart-high = 'ZBOP'.

so_mtart-sign = 'I'.

so_mtart-option = 'BT'.

APPEND so_mtart.

*******Added by shelly Malik************

AT SELECTION-SCREEN.

IF pa_werks = 'RILL'.

*IF so_budat-low LT '20080908'.

*MESSAGE 'Posting Date should be start from 08/09/2008 Please write 08/09/2008 to any date'

  • TYPE 'E'.

*ENDIF.

ENDIF.

START-OF-SELECTION.

PERFORM radiobutton-selection.

lf_rep = sy-repid.

PERFORM build_feildcat.

***********************************************************

PERFORM build_layout.

PERFORM build_events.

PERFORM build_print_params.

PERFORM display_final.

&----


*& Form FETCH_MARA

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM fetch_mara .

SELECT matnr

meins FROM mara INTO TABLE lt_mara WHERE matnr IN so_matnr AND

mtart IN so_mtart.

ENDFORM. " FETCH_MARA

&----


*& Form FETCH_QMEL

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM fetch_qmel .

SORT lt_mard BY matnr.

IF lt_mard IS NOT INITIAL.

SELECT qmnum

qmtxt

erdat

matnr

prueflos

FROM qmel INTO TABLE lt_qmel FOR ALL ENTRIES IN lt_mard

WHERE erdat IN so_budat

AND matnr EQ lt_mard-matnr.

" AND mawerk EQ pa_werks . "erdat IN so_budat .

ENDIF.

IF sy-subrc EQ 0.

SORT lt_qmel.

SELECT qmnum

fenum

fetxt

fegrp

fecod

anzfehler FROM qmfe INTO TABLE lt_qmfe FOR ALL ENTRIES IN lt_qmel

WHERE qmnum EQ lt_qmel-qmnum.

ENDIF.

ENDFORM. " FETCH_QMEL

&----


*& Form FETCH_QTXT_CODE

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM fetch_qtxt_code .

IF lt_qmfe IS NOT INITIAL.

SORT lt_qmfe.

SELECT codegruppe

code

kurztext FROM qpct INTO TABLE lt_qpct FOR ALL ENTRIES IN lt_qmfe WHERE

codegruppe EQ lt_qmfe-fegrp

AND code

EQ lt_qmfe-fecod

AND sprache EQ 'EN'.

ENDIF.

ENDFORM. " FETCH_QTXT_CODE

&----


*& Form FILL_FINAL

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM fill_final .

*LOOP AT lt_qals INTO lw_qals.

LOOP AT lt_qmel INTO lw_qmel.

*READ TABLE lt_qmel INTO lw_qmel WITH KEY prueflos = lw_qals-prueflos.

*IF sy-subrc EQ 0.

LOOP AT lt_qmfe INTO lw_qmfe WHERE qmnum = lw_qmel-qmnum.

READ TABLE lt_qpct INTO lw_qpct WITH KEY codegruppe = lw_qmfe-fegrp

code = lw_qmfe-fecod.

IF sy-subrc EQ 0.

*READ TABLE lt_qpct INTO lw_qpct WITH KEY codegruppe = lw_qmfe-fegrp

  • code = lw_qmfe-fecod.

  • IF sy-subrc EQ 0. .

SELECT SINGLE maktx FROM makt INTO lf_maktx WHERE matnr EQ lw_qmel-matnr.

IF sy-subrc EQ 0.

SELECT SINGLE lgort FROM mard INTO lf_lgort WHERE matnr EQ lw_qmel-matnr

AND werks EQ pa_werks

AND lgort EQ pa_lgort .

MOVE : lw_qmel-matnr TO lw_final-matnr,

lw_qmel-prueflos TO lw_final-prueflos,

lw_qmel-qmnum TO lw_final-qmnum,

lw_qmel-erdat TO lw_final-erdat,

lf_maktx TO lw_final-maktx,

lf_lgort TO lw_final-lgort,

lw_qmfe-anzfehler TO lw_final-anzfehler,

lw_qmfe-fetxt TO lw_final-fetxt,

lw_qpct-kurztext TO lw_final-kurztext,

lw_qpct-codegruppe TO lw_final-codegruppe .

SELECT SINGLE lifnum FROM viqmel INTO lf_ven WHERE qmnum EQ lw_qmel-qmnum

AND lifnum IN so_lifnr.

IF sy-subrc EQ 0.

SELECT SINGLE name1 FROM lfa1 INTO lf_name WHERE lifnr EQ lf_ven.

IF sy-subrc EQ 0.

lw_final-lifnr = lf_ven.

lw_final-name1 = lf_name.

ENDIF.

ENDIF.

APPEND lw_final TO lt_final.

CLEAR: lw_final,lw_qmfe,lf_maktx,

lw_qpct.

*ENDIF.

ENDIF.

ENDIF.

ENDLOOP.

*READ TABLE lt_qmfe INTO lw_qmfe WITH KEY qmnum = lw_qmel-qmnum.

*IF sy-subrc EQ 0.

*ENDIF.

*ENDIF.

CLEAR lw_qmel.

ENDLOOP.

CASE pa_werks.

WHEN 'RILL'.

DELETE lt_final WHERE lifnr0(1) = 'H' OR lifnr0(1) = 'M' OR lifnr IS INITIAL.

WHEN 'RILH'.

DELETE lt_final WHERE lifnr0(1) = 'S' OR lifnr0(1) = 'M'.

WHEN 'RILM'.

DELETE lt_final WHERE lifnr0(1) = 'H' OR lifnr0(1) = 'S'.

ENDCASE.

ENDFORM. " FILL_FINAL

&----


*& Form BUILD_FEILDCAT

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM build_feildcat .

DATA: col_pos TYPE i .

col_pos = 1.

**********Added by shelly malik************

IF p1_but = 'X'.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'PRUEFLOS'.

lw_field-ref_fieldname = 'PRUEFLOS'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'QALS'.

lw_field-no_out = 'X'.

lw_field-emphasize = 'X'.

lw_field-key = 'X'.

  • fieldcatalog-do_sum = 'X'.

  • fieldcatalog-no_zero = 'X'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

ELSE.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'PRUEFLOS'.

lw_field-ref_fieldname = 'PRUEFLOS'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'QALS'.

lw_field-emphasize = 'X'.

lw_field-key = 'X'.

*lw_fieldcat-no_out = 'X'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

ENDIF.

*********added by shelly malik************

lw_field-col_pos = col_pos.

lw_field-fieldname = 'QMNUM'.

lw_field-ref_fieldname = 'QMNUM'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'QMEL'.

lw_field-emphasize = 'X'.

lw_field-key = 'X'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'ERDAT'.

lw_field-ref_fieldname = 'ERDAT'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'QMEL'.

lw_field-emphasize = 'X'.

lw_field-key = 'X'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'MATNR'.

lw_field-ref_fieldname = 'MATNR'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'MARA'.

lw_field-emphasize = 'C310'.

*lw_field-key = 'X'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'LIFNR'.

lw_field-ref_fieldname = 'LIFNR'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'LFA1'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'NAME1'.

lw_field-ref_fieldname = 'NAME1'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'LFA1'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'LGORT'.

lw_field-ref_fieldname = 'LGORT'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'MARD'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'MAKTX'.

lw_field-ref_fieldname = 'MAKTX'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'MAKT'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'CODEGRUPPE'.

lw_field-ref_fieldname = 'CODEGRUPPE'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'QPCT'.

*lw_field-seltext_m = 'CODEGROUP'.

*lw_field-seltext_l = 'CODEGROUP'.

*lw_field-seltext_s = 'CODEGROUP'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'ANZFEHLER'.

lw_field-ref_fieldname = 'ANZFEHLER'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'QMFE'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'KURZTEXT'.

lw_field-ref_fieldname = 'KURZTEXT'.

lw_field-tabname = 'LT_FINAL'.

lw_field-ref_tabname = 'QPCT'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_field-col_pos = col_pos.

lw_field-fieldname = 'FETXT'.

*lw_field-ref_fieldname = 'FETEXT'.

lw_field-seltext_l = 'Reason for Rejection'.

lw_field-tabname = 'LT_FINAL'.

*lw_field-ref_tabname = 'QMFE'.

APPEND lw_field TO lt_field.

CLEAR lw_field.

col_pos = col_pos + 1.

lw_layo-colwidth_optimize = 'X'.

lw_layo-zebra = 'X'.

lw_layo-box_fieldname = 'BOX'.

lw_layo-box_tabname = 'LT_FINAL'.

ENDFORM. " BUILD_FEILDCAT

&----


*& Form DISPLAY_FINAL

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM display_final .

*DELETE ADJACENT DUPLICATES FROM lt_final COMPARING erdat matnr.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

i_callback_program = lf_rep

  • I_CALLBACK_PF_STATUS_SET = ' '

  • i_callback_user_command = 'USER_COMMAND'

i_callback_top_of_page = 'TOP-OF-PAGE'

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ' '

  • I_GRID_TITLE = outtext

  • I_GRID_SETTINGS =

is_layout = lw_layo

it_fieldcat = lt_field

  • IT_EXCLUDING =

  • it_special_groups = gd_tab_group

  • IT_SORT =

  • IT_FILTER =

  • IS_SEL_HIDE =

i_default = 'X'

i_save = 'X'

  • IS_VARIANT =

it_events = gt_events

  • IT_EVENT_EXIT =

is_print = gd_prntparams

  • IS_REPREP_ID =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • I_HTML_HEIGHT_TOP = 0

  • I_HTML_HEIGHT_END = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • IR_SALV_FULLSCREEN_ADAPTER =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = lt_final

  • EXCEPTIONS

  • PROGRAM_ERROR = 1

  • OTHERS = 2

.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " DISPLAY_FINAL

&----


*& Form FETCH_MARD

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM fetch_mard .

IF NOT lt_mara IS INITIAL.

SORT lt_mara BY matnr.

SELECT lgort

matnr FROM mard

INTO TABLE lt_mard

FOR ALL ENTRIES IN lt_mara

WHERE werks EQ pa_werks

AND lgort EQ pa_lgort

AND matnr EQ lt_mara-matnr.

ENDIF.

IF sy-subrc EQ 0.

SORT lt_mard BY matnr.

ENDIF.

ENDFORM. " FETCH_MARD

&----


*& Form RADIOBUTTON-SELECTION

&----


FORM radiobutton-selection .

PERFORM fetch_mara.

PERFORM fetch_mard.

*PERFORM fetch_qals.

PERFORM fetch_qmel.

PERFORM fetch_qtxt_code.

PERFORM fill_final.

IF p1_but = 'X'.

PERFORM fetch_line_rejection_data.

ELSE.

PERFORM fetch_defect_recording_data.

ENDIF.

ENDFORM. " RADIOBUTTON-SELECTION

&----


*& Form FETCH_LINE_REJECTION_DATA

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM fetch_line_rejection_data .

SORT lt_final BY prueflos..

DELETE lt_final WHERE prueflos <> '000000000000'.

ENDFORM. " FETCH_LINE_REJECTION_DATA

&----


*& Form FETCH_DEFECT_RECORDING_DATA

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM fetch_defect_recording_data .

SORT lt_final BY prueflos..

DELETE lt_final WHERE prueflos = '000000000000'.

ENDFORM. " FETCH_DEFECT_RECORDING_DATA

&----


*& Form BUILD_LAYOUT

&----


FORM build_layout .

lw_layo-no_input = 'X'.

lw_layo-colwidth_optimize = 'X'.

lw_layo-totals_text = 'Totals'(201).

lw_layo-totals_only = 'X'.

  • lw_layo-nosubtotal = 'X'.

  • lw_layo-f2code = 'DISP'. "Sets fcode for when double

"click(press f2)

lw_layo-zebra = 'X'.

  • lw_layo-group_change_edit = 'X'.

  • lw_layo-header_text = 'helllllo'.

  • lw_layo-no_hline = 'X'.

ENDFORM. " BUILD_LAYOUT

&----


*& Form BUILD_EVENTS

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM build_events .

data: ls_event type slis_alv_event.

call function 'REUSE_ALV_EVENTS_GET'

exporting

i_list_type = 0

importing

et_events = gt_events[].

read table gt_events with key name = slis_ev_end_of_page

into ls_event.

if sy-subrc = 0.

move 'END_OF_PAGE' to ls_event-form.

append ls_event to gt_events.

endif.

read table gt_events with key name = slis_ev_end_of_list

into ls_event.

if sy-subrc = 0.

move 'END_OF_LIST' to ls_event-form.

append ls_event to gt_events.

endif.

ENDFORM. " BUILD_EVENTS

&----


*& Form BUILD_PRINT_PARAMS

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM build_print_params .

gd_prntparams-reserve_lines = '15'. "Lines reserved for footer

gd_prntparams-no_coverpage = 'X'.

ENDFORM. " BUILD_PRINT_PARAMS

----


  • Form TOP-OF-PAGE *

----


  • ALV Report Header *

----


FORM top-of-page.

*ALV Header declarations

DATA: t_header TYPE slis_t_listheader,

wa_header TYPE slis_listheader,

t_line LIKE wa_header-info,

ld_lines TYPE i,

ld_linesc(10) TYPE c.

data : v_plant(10) type c.

v_plant = 'PLANT :'.

                                            • Title

if p1_but = 'X'.

wa_header-typ = 'H'.

wa_header-info = 'LINE REJECTION REPORT '.

APPEND wa_header TO t_header.

CLEAR wa_header.

else.

wa_header-typ = 'H'.

wa_header-info = 'DEFECT RECORDING REPORT '.

APPEND wa_header TO t_header.

CLEAR wa_header.

endif.

                                              • Date

wa_header-typ = 'S'.

wa_header-key = 'Date: '.

CONCATENATE sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) INTO wa_header-info. "todays date

APPEND wa_header TO t_header.

CLEAR: wa_header.

wa_header-typ = 'S'.

wa_header-key = 'Plant: '.

wa_header-info = pa_werks.

APPEND wa_header TO t_header.

CLEAR wa_header.

                                  • Total No. of Records Selected

DESCRIBE TABLE lt_final LINES ld_lines.

if ld_lines is not initial.

ld_linesc = ld_lines.

CONCATENATE 'Total No. of Records Selected: ' ld_linesc

INTO t_line SEPARATED BY space.

wa_header-typ = 'A'.

wa_header-info = t_line.

APPEND wa_header TO t_header.

CLEAR: wa_header, t_line.

else.

wa_header-typ = 'A'.

wa_header-info = 'Oops No Record Found.....'.

APPEND wa_header TO t_header.

CLEAR: wa_header, t_line.

endif.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = t_header.

  • i_logo = 'Z_LOGO'.

ENDFORM.

&----


*& Form END_OF_PAGE

&----


form END_OF_PAGE.

data: listwidth type i,

ld_pagepos(10) type c,

ld_page(10) type c.

write: sy-uline(100).

skip.

write:/40 'Page:', sy-pagno .

endform.

&----


*& Form END_OF_LIST

&----


form END_OF_LIST.

data: listwidth type i,

ld_pagepos(10) type c,

ld_page(10) type c.

skip.

write:/40 'Page:', sy-pagno .

endform.

Tags:

Helpful Answer

by
Not what you were looking for? View more on this topic or Ask a question