前两年别人写的，无自定义表字段。。。直接使用：
*&---------------------------------------------------------------------*
*& Report ZFIR026
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZFIR026.
*&---------------------------------------------------------------------*
*& 包含 ZFIR101_TOP
*&---------------------------------------------------------------------*
TABLES : ANLA,BKPF,KNA1,CSKT, ANLZ,ANLC,ANLB,LFA1,T006A,ANLH,ANEP,T091P,T090NA,ANLP .
TYPE-POOLS:SLIS.
DATA : BEGIN OF GT_OUT OCCURS ,
BUKRS TYPE ANLA-BUKRS, "公司代码
ANLKL TYPE ANLA-ANLKL,
TXK50 TYPE ANKT-TXK50,
ANLN1 TYPE ANLA-ANLN1,
ANLN2 TYPE ANLA-ANLN2,
TXT50 TYPE ANLA-TXT50,
TXA50 TYPE ANLA-TXA50,
ANLHTXT TYPE ANLH-ANLHTXT,
INVZU TYPE ANLA-INVZU,
RAUMN TYPE ANLZ-RAUMN,
SERNR TYPE ANLA-SERNR,
AKTIV TYPE ANLA-AKTIV,
MENGE TYPE ANLA-MENGE,
UNIT TYPE T006A-MSEHT,
KOSTL TYPE ANLZ-KOSTL,
LTEXT TYPE CSKT-LTEXT,
FKBTX TYPE TFKBT-FKBTX,
BELNR TYPE ANEP-BELNR,
ORD42 TYPE ANLA-ORD42,
ORD41 TYPE ANLA-ORD41,
LIFNR TYPE ANLA-LIFNR,
LIEFE TYPE LFA1-NAME1,
HERST TYPE ANLA-HERST,
XZSRZPZ TYPE ANEP-BELNR, "新增时入账凭证
SYNX TYPE ANLB-NDJAR , "使用年限（月)
YTJYF TYPE ANLA-ORD44 , "已计提月份
ZCYZ TYPE ANLC-KANSW , "资产原值
LJZJ TYPE ANLC-KNAFA , "累计折旧
YTJZ TYPE ANLC-AUFWB , "已提减值
SYYF TYPE ANLC-KANSW, "剩余月份
DQJTJE TYPE ANLP-NAFAZ , "当期计提金额
ZCJZ TYPE ANLC-KANSW , "资产净值
CZ TYPE ANLC-KANSW, "残值
XSTIL TYPE ANLZ-XSTIL,
END OF GT_OUT . DATA : GS_OUT LIKE LINE OF GT_OUT . DATA : GT_ANLA TYPE TABLE OF ANLA WITH HEADER LINE,
GS_ANLA LIKE LINE OF GT_ANLA,
* GT_ANLA_T TYPE TABLE OF ANLA WITH HEADER LINE ,
* GS_ANLA_S LIKE LINE OF GT_ANLA_T ,
GT_ANLB TYPE TABLE OF ANLB WITH HEADER LINE,
GS_ANLB LIKE LINE OF GT_ANLB,
GT_ANLC TYPE TABLE OF ANLC WITH HEADER LINE,
GS_ANLC LIKE LINE OF GT_ANLC,
GT_ANLP TYPE TABLE OF ANLP WITH HEADER LINE,
GS_ANLP LIKE LINE OF GT_ANLP,
GT_ANKT TYPE TABLE OF ANKT WITH HEADER LINE,
GS_ANKT LIKE LINE OF GT_ANKT,
GT_TFKBT TYPE TABLE OF TFKBT WITH HEADER LINE,
GS_TFKBT LIKE LINE OF GT_TFKBT,
GT_CSKS TYPE TABLE OF CSKS WITH HEADER LINE,
GS_CSKS LIKE LINE OF GT_CSKS,
GT_CSKT TYPE TABLE OF CSKT WITH HEADER LINE,
GS_CSKT LIKE LINE OF GT_CSKT,
GT_BKPF TYPE TABLE OF BKPF WITH HEADER LINE,
GS_BKPF LIKE LINE OF GT_BKPF,
* GT_BKPF_T TYPE TABLE OF BKPF WITH HEADER LINE ,
* GS_BKPF_S LIKE LINE OF GT_BKPF_T ,
GT_LFA1 TYPE TABLE OF LFA1 WITH HEADER LINE,
GS_LFA1 LIKE LINE OF GT_LFA1,
GT_T006A TYPE TABLE OF T006A WITH HEADER LINE,
GS_T006A LIKE LINE OF GT_T006A,
* GT_ANLZ_T TYPE TABLE OF ANLZ WITH HEADER LINE ,
* GS_ANLZ_S LIKE LINE OF GT_ANLZ_T ,
GT_ANLZ TYPE TABLE OF ANLZ WITH HEADER LINE,
GS_ANLZ LIKE LINE OF GT_ANLZ,
GT_ANLH TYPE TABLE OF ANLH WITH HEADER LINE,
GS_ANLH LIKE LINE OF GT_ANLH,
GT_ANEP TYPE TABLE OF ANEP WITH HEADER LINE,
GS_ANEP LIKE LINE OF GT_ANEP,
GT_T091P TYPE TABLE OF T091P WITH HEADER LINE,
GS_T091P LIKE LINE OF GT_T091P,
GT_T090NA TYPE TABLE OF T090NA WITH HEADER LINE,
GS_T090NA LIKE LINE OF GT_T090NA. DATA:GS_FIELDCAT TYPE SLIS_FIELDCAT_ALV, GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, GS_LAYOUT TYPE SLIS_LAYOUT_ALV. SELECTION-SCREEN BEGIN OF BLOCK BLK01 WITH FRAME TITLE TEXT- .
*PARAMETERS : P_GJAHR LIKE BKPF-GJAHR .
SELECT-OPTIONS :
S_BUKRS FOR ANLA-BUKRS OBLIGATORY,
S_GJAHR FOR BKPF-GJAHR OBLIGATORY NO-EXTENSION NO INTERVALS,
S_MONAT FOR ANLP-PERAF ,
S_ANLKL FOR ANLA-ANLKL ,
S_ANLN1 FOR ANLA-ANLN1 ,
S_ANLN2 FOR ANLA-ANLN2 ,
S_KOSTL FOR ANLZ-KOSTL ,
S_ORD41 FOR ANLA-ORD41 .
PARAMETERS P_CH01 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK BLK01 . INITIALIZATION . START-OF-SELECTION . PERFORM FRM_GET_DATA . END-OF-SELECTION . PERFORM FRM_FILL_FIELDCAT .
PERFORM FRM_FILL_LAYOUT .
PERFORM FRM_LIST_DISPLAY . *&---------------------------------------------------------------------*
*& 包含 ZFIR101_F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA . CLEAR :GT_ANLA[] ,GT_BKPF[] ,GT_ANLZ[], GT_ANLB[],GT_ANLC[], GT_ANLP[],GT_CSKT[],GT_TFKBT[],GT_LFA1[],GT_CSKS[],GT_ANKT[],GT_T006A[],GT_ANLH[],GT_ANEP[],GT_T090NA[],GT_T091P[] . DATA:LINE TYPE I VALUE ,
SUM TYPE P DECIMALS VALUE ,
YEAR TYPE BKPF-GJAHR VALUE ,
MONTH TYPE BKPF-MONAT VALUE ,
BZDAT TYPE ANEP-BZDAT VALUE ''. IF P_CH01 ='X'.
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ANLA
FROM ANLA
* FOR ALL ENTRIES IN GT_ANLP
WHERE BUKRS IN S_BUKRS
* BUKRS IN S_BUKRS
AND ANLN1 IN S_ANLN1
AND ANLN2 IN S_ANLN2
AND ANLKL IN S_ANLKL
AND ORD41 IN S_ORD41 .
ELSEIF P_CH01 =''.
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ANLA
FROM ANLA
* FOR ALL ENTRIES IN GT_ANLP
WHERE BUKRS IN S_BUKRS
* BUKRS IN S_BUKRS
AND ANLN1 IN S_ANLN1
AND ANLN2 IN S_ANLN2
AND ANLKL IN S_ANLKL
AND ORD41 IN S_ORD41
AND AKTIV NE .
ENDIF . IF GT_ANLA[] IS NOT INITIAL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ANLP
FROM ANLP FOR ALL ENTRIES IN GT_ANLA
WHERE GJAHR IN S_BUKRS
AND BUKRS EQ GT_ANLA-BUKRS
AND PERAF IN S_MONAT
AND ANLN1 EQ GT_ANLA-ANLN1
AND ANLN2 EQ GT_ANLA-ANLN2. SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ANLH
FROM ANLH FOR ALL ENTRIES IN GT_ANLA
WHERE BUKRS EQ GT_ANLA-BUKRS
AND ANLN1 EQ GT_ANLA-ANLN1 . SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ANEP
FROM ANEP FOR ALL ENTRIES IN GT_ANLA
WHERE BUKRS EQ GT_ANLA-BUKRS
AND ANLN1 EQ GT_ANLA-ANLN1
AND ANLN2 EQ GT_ANLA-ANLN2. *
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ANKT
FROM ANKT FOR ALL ENTRIES IN GT_ANLA
WHERE ANLKL = GT_ANLA-ANLKL.
* WHERE ANLKL = S_ANLKL .
*
*
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_T006A"
FROM T006A FOR ALL ENTRIES IN GT_ANLA
WHERE MSEHI = GT_ANLA-MEINS .
*
*
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_LFA1
FROM LFA1 FOR ALL ENTRIES IN GT_ANLA
WHERE LIFNR = GT_ANLA-LIFNR .
*
*
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ANLZ
FROM ANLZ FOR ALL ENTRIES IN GT_ANLA
WHERE BUKRS = GT_ANLA-BUKRS
AND ANLN1 = GT_ANLA-ANLN1
AND ANLN2 = GT_ANLA-ANLN2.
** 去掉成本中心不在选择范围内的值 *
IF S_KOSTL IS NOT INITIAL AND GT_ANLZ[] IS NOT INITIAL.
DELETE GT_ANLZ WHERE KOSTL NOT IN S_KOSTL.
DELETE GT_ANLZ WHERE KOSTL IS INITIAL.
ENDIF.
*
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ANLB
FROM ANLB FOR ALL ENTRIES IN GT_ANLA
WHERE BUKRS = GT_ANLA-BUKRS
AND ANLN1 = GT_ANLA-ANLN1
AND ANLN2 = GT_ANLA-ANLN2.
*
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ANLC
FROM ANLC
FOR ALL ENTRIES IN GT_ANLA
WHERE BUKRS = GT_ANLA-BUKRS
AND ANLN1 = GT_ANLA-ANLN1
AND ANLN2 = GT_ANLA-ANLN2. SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_CSKS
FROM CSKS FOR ALL ENTRIES IN GT_ANLZ
* WHERE KOSTL IN S_KOSTL .
WHERE KOSTL = GT_ANLZ-KOSTL . IF GT_CSKS[] IS NOT INITIAL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_CSKT
FROM CSKT FOR ALL ENTRIES IN GT_CSKS
WHERE KOSTL = GT_CSKS-KOSTL
AND KOKRS = GT_CSKS-KOKRS . SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_TFKBT
FROM TFKBT FOR ALL ENTRIES IN GT_CSKS
WHERE FKBER = GT_CSKS-FUNC_AREA .
ENDIF. SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_T090NA
FROM T090NA FOR ALL ENTRIES IN GT_ANLB
WHERE AFASL = GT_ANLB-AFASL . SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_T091P
FROM T091P FOR ALL ENTRIES IN GT_T090NA
WHERE ANHWSL = GT_T090NA-ANHWSL .
ENDIF.
SORT GT_ANLZ BY KOSTL DESCENDING ADATU DESCENDING .
LOOP AT GT_ANLA INTO GS_ANLA.
GS_OUT-BUKRS = GS_ANLA-BUKRS .
GS_OUT-ANLKL = GS_ANLA-ANLKL .
GS_OUT-ANLN1 = GS_ANLA-ANLN1 .
GS_OUT-ANLN2 = GS_ANLA-ANLN2 .
GS_OUT-TXT50 = GS_ANLA-TXT50 .
GS_OUT-TXA50 = GS_ANLA-TXA50 .
GS_OUT-SERNR = GS_ANLA-SERNR .
GS_OUT-AKTIV = GS_ANLA-AKTIV .
GS_OUT-MENGE = GS_ANLA-MENGE .
* GS_OUT-MEINS = GS_ANLA-MEINS .
GS_OUT-INVZU = GS_ANLA-INVZU .
GS_OUT-ORD42 = GS_ANLA-ORD42 .
GS_OUT-ORD41 = GS_ANLA-ORD41 .
GS_OUT-LIFNR = GS_ANLA-LIFNR .
* GS_OUT-LIEFE = GS_ANLA-LIEFE .
GS_OUT-HERST = GS_ANLA-HERST .
READ TABLE GT_ANKT INTO GS_ANKT WITH KEY ANLKL = GS_ANLA-ANLKL .
IF SY-SUBRC = .
GS_OUT-TXK50 = GS_ANKT-TXK50 .
ENDIF.
READ TABLE GT_ANLH INTO GS_ANLH WITH KEY BUKRS = GS_ANLA-BUKRS
ANLN1 = GS_ANLA-ANLN1 .
IF SY-SUBRC = .
GS_OUT-ANLHTXT = GS_ANLH-ANLHTXT.
ENDIF. READ TABLE GT_LFA1 INTO GS_LFA1 WITH KEY LIFNR = GS_ANLA-LIFNR .
IF SY-SUBRC = .
GS_OUT-LIEFE = GS_LFA1-NAME1 .
ENDIF. READ TABLE GT_ANLZ INTO GS_ANLZ WITH KEY BUKRS = GS_ANLA-BUKRS
ANLN1 = GS_ANLA-ANLN1
ANLN2 = GS_ANLA-ANLN2 .
IF SY-SUBRC = . READ TABLE GT_CSKS INTO GS_CSKS WITH KEY KOSTL = GS_ANLZ-KOSTL .
IF SY-SUBRC = .
GS_OUT-KOSTL = GS_ANLZ-KOSTL .
GS_OUT-XSTIL = GS_ANLZ-XSTIL .
GS_OUT-RAUMN = GS_ANLZ-RAUMN .
READ TABLE GT_CSKT INTO GS_CSKT WITH KEY KOSTL = GS_ANLZ-KOSTL .
IF SY-SUBRC = .
GS_OUT-LTEXT = GS_CSKT-LTEXT .
ENDIF.
READ TABLE GT_TFKBT INTO GS_TFKBT WITH KEY FKBER = GS_CSKS-FUNC_AREA .
IF SY-SUBRC = .
GS_OUT-FKBTX = GS_TFKBT-FKBTX .
ENDIF.
ELSE.
IF S_KOSTL IS NOT INITIAL.
CLEAR GS_OUT.
CONTINUE.
ENDIF.
ENDIF .
ELSE.
CLEAR GS_OUT.
CONTINUE.
ENDIF . READ TABLE GT_ANLB INTO GS_ANLB WITH KEY BUKRS = GS_ANLA-BUKRS
ANLN1 = GS_ANLA-ANLN1
ANLN2 = GS_ANLA-ANLN2
AFABE = ''.
IF SY-SUBRC = .
GS_OUT-SYNX = GS_ANLB-NDJAR * + GS_ANLB-NDPER .
ENDIF. LOOP AT GT_ANEP INTO GS_ANEP WHERE BUKRS = GS_ANLA-BUKRS
AND ANLN1 = GS_ANLA-ANLN1
AND ANLN2 = GS_ANLA-ANLN2
AND AFABE = ''
AND BWASL = ''.
IF SY-SUBRC = .
IF GS_ANEP-LNSAN IS INITIAL .
IF GS_ANEP-BZDAT < BZDAT .
GS_OUT-XZSRZPZ = GS_ANEP-BELNR.
BZDAT = GS_ANEP-BZDAT .
ENDIF.
ENDIF.
ENDIF.
ENDLOOP . SORT GT_ANLP BY GJAHR PERAF .
LOOP AT GT_ANLP INTO GS_ANLP WHERE BUKRS = GS_ANLA-BUKRS AND
ANLN1 = GS_ANLA-ANLN1 AND
ANLN2 = GS_ANLA-ANLN2 AND
AFABER = '' .
IF SY-SUBRC = .
IF YEAR NE GS_ANLP-GJAHR OR MONTH NE GS_ANLP-PERAF.
YEAR = GS_ANLP-GJAHR .
MONTH = GS_ANLP-PERAF .
LINE = LINE + .
ENDIF.
ENDIF. ENDLOOP .
IF SY-SUBRC = .
GS_OUT-YTJYF = LINE + GS_ANLA-ORD44 .
ELSE .
GS_OUT-YTJYF = GS_ANLA-ORD44 .
ENDIF. READ TABLE GT_T006A INTO GS_T006A WITH KEY MSEHI = GS_ANLA-MEINS.
IF SY-SUBRC = .
GS_OUT-UNIT = GS_T006A-MSEHT .
ENDIF.
READ TABLE GT_ANLC INTO GS_ANLC WITH KEY BUKRS = GS_ANLA-BUKRS
ANLN1 = GS_ANLA-ANLN1
ANLN2 = GS_ANLA-ANLN2
AFABE = '' .
IF SY-SUBRC = .
GS_OUT-ZCYZ = GS_ANLC-KANSW + GS_ANLC-ANSWL .
* GS_OUT-LJZJ = ABSs（GS_ANLC-KNAFA + GS_ANLC-NAFAG）+（GS_ANLC-KAAFA + GS_ANLC-AAFAG）
GS_OUT-LJZJ = ABS( GS_ANLC-KNAFA + GS_ANLC-NAFAG + GS_ANLC-KAAFA + GS_ANLC-AAFAG ) .
GS_OUT-YTJZ = ABS( GS_ANLC-KAUFW + GS_ANLC-AUFWB ). ENDIF. * READ TABLE GT_BKPF INTO GS_BKPF WITH KEY MONAT = GS_ANLA-MONAT
* BUKRS = GS_ANLA-BUKRS . LOOP AT GT_ANLP INTO GS_ANLP WHERE BUKRS = GS_ANLA-BUKRS AND
ANLN1 = GS_ANLA-ANLN1 AND
ANLN2 = GS_ANLA-ANLN2.
SUM = SUM + GS_ANLP-NAFAZ .
ENDLOOP.
GS_OUT-DQJTJE = ABS( SUM ) .
IF GS_OUT-ZCYZ - GS_OUT-YTJZ > .
GS_OUT-ZCJZ = GS_OUT-ZCYZ - GS_OUT-LJZJ - GS_OUT-YTJZ .
ELSE .
GS_OUT-ZCJZ = .
ENDIF. GS_OUT-SYYF = GS_OUT-SYNX - GS_OUT-YTJYF . READ TABLE GT_T090NA INTO GS_T090NA WITH KEY AFASL = GS_ANLB-AFASL .
IF SY-SUBRC = .
READ TABLE GT_T091P INTO GS_T091P WITH KEY ANHWSL = GS_T090NA-ANHWSL .
IF SY-SUBRC = .
GS_OUT-CZ = GS_T091P-AHPROZ / * ( GS_ANLC-KANSW + GS_ANLC-ANSWL ) .
ENDIF .
ENDIF .
APPEND GS_OUT TO GT_OUT .
CLEAR :GS_OUT,GS_ANLA ,GS_BKPF ,GS_ANLZ, GS_ANLB,GS_ANLC, GS_ANLP,GS_CSKT,GS_TFKBT,GS_LFA1,GS_CSKS,GS_ANKT,GS_T006A,GS_ANLH,GS_ANEP,GS_T090NA,GS_T091P .
SUM = .
LINE = .
YEAR = .
MONTH = .
BZDAT = ''. ENDLOOP .
SORT GT_OUT BY ANLN1.
ENDFORM. " FRM_GET_DATA
*&---------------------------------------------------------------------*
*& Form FRM_LIST_DISPLAY
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_LIST_DISPLAY .
* CHECK GT_OUT[] IS NOT INITIAL .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = 'X'
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT = GS_LAYOUT
IT_FIELDCAT = GT_FIELDCAT
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
I_SAVE = 'A'
TABLES
T_OUTTAB = GT_OUT
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
IF SY-SUBRC <> .
* Implement suitable error handling here
ENDIF. ENDFORM. " FRM_LIST_DISPLAY DEFINE SET_FIELDCAT.
gs_fieldcat-FIELDNAME = &.
gs_fieldcat-COL_POS = &.
gs_fieldcat-seltext_l = &.
gs_fieldcat-ICON = &.
gs_fieldcat-no_zero = &.
gs_fieldcat-DECIMALS_OUT = &.
APPEND gs_fieldcat to gt_fieldcat.
END-OF-DEFINITION. FORM FRM_FILL_FIELDCAT .
CLEAR GS_FIELDCAT .
SET_FIELDCAT:
'BUKRS' '公司代码' '' '' '',
'ANLKL' '资产类别' '' '' '',
'TXK50' '资产类别名称' '' '' '',
'ANLN1' '资产编号' '' 'X' '',
'ANLN2' '资产次级编号' '' 'X' '',
'TXT50' '资产名称' '' '' '',
'TXA50' '型号' '' '' '',
'SERNR' '原资产编号' '' '' '',
'AKTIV' '资本化日期' '' '' '',
'MENGE' '数量' '' '' '',
'UNIT' '单位' '' '' '',
'KOSTL' '成本中心' '' '' '',
'LTEXT' '成本中心描述' '' '' '',
'FKBTX' '功能范围' '' '' '',
'ORD42' '经济用途' '' '' '',
'XSTIL' '是否停用' '' '' '',
'ORD41' '变动方式' '' '' '',
'LIFNR' '供应商编码' '' '' '',
'LIEFE' '供应商描述' '' '' '',
'HERST' '制造商' '' '' '',
'SYNX' '使用年限（月）' '' '' '',
'YtjYF' '已计提月份' '' '' '',
'ZCYZ' '资产原值' '' '' '',
'LJZJ' '累计折旧' '' '' '',
'YTJZ' '已提减值' '' '' '',
'DQJTJE' '当期计提金额' '' '' '',
'ANLHTXT' '文本' '' '' '' ,
'INVZU' '存放地' '' '' '' ,
'RAUMN' '保管人' '' '' '' ,
'XZSRZPZ' '新增时入账凭证' '' '' '' ,
'syyf' '剩余月份' '' '' '',
'CZ' '残值' '' '' '' ,
'ZCJZ' '资产净值' '' '' ''. ENDFORM. *&---------------------------------------------------------------------*
*& Form FRM_FILL_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_FILL_LAYOUT .
GS_LAYOUT-ZEBRA = 'X'.
"is_layout-no_keyfix = ''.
GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. ENDFORM. " FRM_FILL_LAYOUT