i have written my report using alv and its working fine but its not displaying some header details. below is an extract of the source code:
DATA: BEGIN OF itab_zdip OCCURS 0,
rbtno LIKE zdiplomatic-rbtno, "rebate number
clr_dat LIKE zdiplomatic-clr_dat, "date of importation
exp_date LIKE zdiplomatic-exp_date, "expiry date
name1 LIKE zdiplomatic-name1, "full name
fax LIKE zdiplomatic-fax, "zim diplomatic id number
hse_num LIKE zdiplomatic-hse_num, "house number
street LIKE zdiplomatic-street, "street
city LIKE zdiplomatic-city, "city
make LIKE zdiplomatic-make, "vehicle make
model LIKE zdiplomatic-model, "vehicle model
reg_num LIKE zdiplomatic-reg_num, "reg num
chassis LIKE zdiplomatic-chassis, "chassis
engine_snr LIKE zdiplomatic-engine_snr,"engine number
station LIKE zdiplomatic-st_nam, "station
officer LIKE zdiplomatic-officer, "officer
END OF itab_zdip.
TOP-OF-PAGE.
FORMAT COLOR COL_NORMAL.
WRITE: 'Z I M B A B W E R E V E N U E A U T H O R I T Y'.
WRITE: / 'D I P L O M A T I C R E B A T E S E A R C H R E S U L T S'.
FORMAT COLOR OFF.
ULINE.
TYPE-POOLS:slis.
DATA:BEGIN OF itab1 OCCURS 0,
rbtno LIKE zdiplomatic-rbtno, "rebate number
clr_dat LIKE zdiplomatic-clr_dat, "date of importation
exp_date LIKE zdiplomatic-exp_date, "expiry date
name1 LIKE zdiplomatic-name1, "full name
fax LIKE zdiplomatic-fax, "zim diplomatic id number
hse_num LIKE zdiplomatic-hse_num, "house number
street LIKE zdiplomatic-street, "street
city LIKE zdiplomatic-city, "city
make LIKE zdiplomatic-make, "vehicle make
model LIKE zdiplomatic-model, "vehicle model
reg_num LIKE zdiplomatic-reg_num, "reg num
chassis LIKE zdiplomatic-chassis, "chassis
engine_snr LIKE zdiplomatic-engine_snr,"engine number
station LIKE zdiplomatic-st_nam, "station
officer LIKE zdiplomatic-officer, "officer
END OF itab1.
TYPES:BEGIN OF ty_it_final,
rbtno LIKE zdiplomatic-rbtno,
clr_dat LIKE zdiplomatic-clr_dat,
exp_date LIKE zdiplomatic-exp_date,
name1 LIKE zdiplomatic-name1,
fax LIKE zdiplomatic-fax,
hse_num LIKE zdiplomatic-hse_num,
street LIKE zdiplomatic-street,
city LIKE zdiplomatic-city,
make LIKE zdiplomatic-make,
model LIKE zdiplomatic-model,
reg_num LIKE zdiplomatic-reg_num,
chassis LIKE zdiplomatic-chassis,
engine_snr LIKE zdiplomatic-engine_snr,
station LIKE zdiplomatic-st_nam,
officer LIKE zdiplomatic-officer, "
END OF ty_it_final.
DATA:it_final TYPE TABLE OF ty_it_final WITH HEADER LINE.
DATA:x_fcat TYPE slis_fieldcat_alv,
t_fcat TYPE slis_t_fieldcat_alv.
DEFINE build_fieldcat.
clear x_fcat.
x_fcat-fieldname = &1.
x_fcat-seltext_l = &2.
x_fcat-col_pos = &3.
x_fcat-outputlen = &4.
append x_fcat to t_fcat.
END-OF-DEFINITION.
START-OF-SELECTION.
SELECTION-SCREEN BEGIN OF BLOCK bli WITH FRAME TITLE text-bli.
SELECT-OPTIONS: name1 FOR zdiplomatic-name1,
clr_dat FOR zdiplomatic-clr_dat,
exp_date FOR zdiplomatic-exp_date,
fax FOR zdiplomatic-fax,
reg_num FOR zdiplomatic-reg_num,
chassis FOR zdiplomatic-chassis,
make FOR zdiplomatic-make,
model FOR zdiplomatic-model,
st_nam FOR zdiplomatic-st_nam,
officer FOR zdiplomatic-officer,
eng_snr FOR zdiplomatic-engine_snr.
SELECTION-SCREEN END OF BLOCK bli.
SELECT rbtno "rebate number
clr_dat "date of importation
exp_date "expiry date
name1 "full name
fax "zim diplomatic id number
hse_num "house number
street "street
city "city
make "vehicle make
model "vehicle model
reg_num "reg num
chassis "chassis
engine_snr "engine number
st_nam "station
officer "officer
FROM zdiplomatic INTO CORRESPONDING FIELDS OF TABLE itab_zdip
WHERE name1 IN name1
AND clr_dat IN clr_dat
AND exp_date IN exp_date
AND fax IN fax
AND make IN make
AND reg_num IN reg_num
AND chassis IN chassis
AND model IN model
AND engine_snr IN eng_snr
AND chassis IN chassis
AND st_nam IN st_nam
AND officer IN officer.
IF sy-subrc NE 0.
WRITE / 'No Information found for the corresponding selection criteria!' COLOR COL_NEGATIVE.
ELSE.
APPEND itab_zdip.
LOOP AT itab_zdip WHERE rbtno NE 0.
it_final-rbtno = itab_zdip-rbtno.
it_final-clr_dat = itab_zdip-clr_dat.
it_final-exp_date = itab_zdip-exp_date.
it_final-name1 = itab_zdip-name1.
it_final-fax = itab_zdip-fax.
it_final-hse_num = itab_zdip-hse_num.
it_final-street = itab_zdip-street.
it_final-city = itab_zdip-city.
it_final-make = itab_zdip-make.
it_final-model = itab_zdip-model.
it_final-reg_num = itab_zdip-reg_num.
it_final-chassis = itab_zdip-chassis.
it_final-engine_snr = itab_zdip-engine_snr.
it_final-station = itab_zdip-station.
it_final-officer = itab_zdip-officer.
APPEND it_final.
HIDE: itab_zdip-rbtno.
ENDLOOP.
ENDIF.
build_fieldcat:
'RBTNO' 'Rebate No.' '1' '10',
'CLR_DAT' 'Clearing Date' '2' '10',
'EXP_DAT' 'Expiration Date' '3' '10',
'NAME1' 'Name' '4' '15',
'FAX' 'Fax' '5' '10',
'HSE_NUM' 'House Number' '6' '10',
'STREET' 'Street' '7' '10',
'CITY' 'City' '8' '10',
'MAKE' 'Make' '9' '10',
'MODEL' 'Model' '10' '10',
'REG_NUM' 'Registration No.' '11' '10',
'CHASSIS' 'Chassis' '12' '10',
'ENGINE_SNR' 'Serial No.' '13' '10',
'STATION' 'Station' '14' '10',
'OFFICER' 'Officer' '15' '10'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = t_fcat
TABLES
t_outtab = it_final.
AT LINE-SELECTION.
SET PARAMETER ID: 'AUN' FIELD itab_zdip-rbtno.
CALL TRANSACTION 'ZDIP'.
its no displaying the below part:
WRITE: 'Z I M B A B W E R E V E N U E A U T H O R I T Y'.
WRITE: / 'D I P L O M A T I C R E B A T E S E A R C H R E S U L T S'.
how can i display this text on top of my report.
Bluesky
