About AVG in ALV List

Dear Friends,
I know that we can use do_sum in the fieldcatalog to make AVG calculation, e.g do_sum = 'C'
but the function will automatically divide the total with the total line, what if I want to divide using static number, like 2?
Please advice.
Thank you,
Sam

hi sammyindra ,
Check the demo program ERGP2127 (One-Line List with Total and Subtotal).
It has logic for subtotals. You can use this logic for Averages.
ls_fieldcat-do_sum = 'X'.
ls_fieldcat-h_ftype = 'avg'.
note: fieldcat should be of lvc type to achive the above
1. Field Catalogue.
use alvfc-do_sum = 'C'.
C = average
X = Sum
2. In the mean time,
using screen we can do like this :
3. Show the alv list on screen first :
4. EDIT ---> Calculate ---> Mean Value
Regards
Saurabh Goel

Similar Messages

ALV List only 80 Columns when runinning as background job

Hello Guys,
I have a Problem with an ALV List.
We use the FM REUSE_ALV_HIERSEQ_LIST_DISPLAY for a Document Journal.
When I run it in foreground it works fine. But when I view the spool in background the list makes a break at excactly 80 signs, but the line size should be about 120.
In the report the Line-Size is set correctly, even the print parameters seem to be ok. We are running it with X_65_255.
I saw that there are some SAP Notes to this topic, but on our release (SAP_BASIS 700) the notes are already implemented.
Has anyone a solution to this topic?
Thanks and regards
Roland

Try this.
[ALV List only 80 Columns when running in background job|https://forums.sdn.sap.com/click.jspa?searchID=25735042&messageID=5686003]

Scrolling-problem in an editable ALV-list

Hi,
I have built an ALV-list with one of the fields open for input. The user wants to use the arrow to scroll down through the table and update that particular field in every row. I have 2 questions about this:
- First of all, the cursor moves in a strange way. The first number of rows it stays in the right column, but then, out of the blue, it jumps back and forth to other columns after scrolling.
- Secondly, the field I want to edit is always in Insert-mode. Is there any way I can get it into Overwrite-mode? I cannot use the Tab-key, because of the lead-selection.
Thanks in advance for your help.
Kind regards,
Andre Moniharapon

Hi Vijay,
please don't get me wrong, I really appreciate your attempts to help me, but my problem is that when I press the Down-arrow it doesn't always go to the next cell in the same column. It sometimes goes to the next cell in another column. And if I can't force it to stay in the same column in some way, than my problem cannot be solved and I must think of another solution. So, I don't want the cursor to stay in the same field, I want it to go to the next cell in the same column. You got that right. Again, I really appreciate your help, but it looks more and more that there's no solution to my problem.
Kind regards,
Andre

Printing ALV list with ADS (pdf printer) in non-english charset

Hello!
I have an issue about printing alv list with pdf printer in non-english charset. We have two printers. One for alv lists (SWINCF: Casc.Fonts SAPWIN Unicode) and one for pdf forms(adobe document service). I want to use one printer for any documents. But PDF printer prints non-english charset like ########.
What can I do ?

Hi, Roman!
I want to use PDF printer for both types of output. I have a dedicated java instance for ADS.
There is a device type for our Kyocera Printer. My pdf printer prints ALV list good exept russian charset.
It prints like #####

About filter in alv grid display

Hi,
   I am practicing on REUSE_ALV_GRID_DISPLAY in that i want to know about how to use some fields like
   *ITFILTER*_
   IT_ALV_GRAPHICS
   IT_HYPERLINK
   IT_ADD_FIELDCAT
   IT_EXCEPT_QINFO

Hi Rock.
I would like to suggest you a couple of references which quite relate to your case,
REUSE_ALV_GRID_DISPLAY - Output of a simple list (single-line)
[SDN - Reference for Using REUSE_ALV_GRID_DISPLAY - Basic Program|alv prog;
[SDN - Reference for Use of IT_FILTER in REUSE_ALV_GRID_DISPLAY |Doubts in ALV?;
[SDN - Reference for use of IT_FILTER with CODE in REUSE_ALV_GRID_DISPLAY|ALV Report;
[SDN - Refernce for Using IT_ALV_GRAPHICS in REUSE_ALV_GRID_DISPLAY|OOPs : SAVE and ALV Display Variant;
[SDN - Reference for Editing a graph in ALV (IT_ALV_GRAPHICS) using REUSE_ALV_GRID_DISPLAY|Edit Graph display ALV list display;
[SDN - Reference for use of IT_HYPERLINK in REUSE_ALV_GRID_DISPLAY|editable fields on ALV grid;
[SDN - Reference including example of IT_ADD_FIELDCAT in REUSE_ALV_GRID_DISPLAY|building top of page in ALV list;
[SDN - Reference for scenario for use of IT_EXCEPT_QINFO in REUSE_ALV_GRID_DISPLAY|Background ID in ALV Grid;
[SDN - Reference for application example of IT_EXCEPT_QINFO in REUSE_ALV_GRID_DISPLAY|PF Status in ALV list.;
Hope That's Usefull.
Good Luck & Regards.
Harsh Dave

Font is small while printing alv list report

Hi,
while printing ALV list report font is too small, can you tell me where i can increase the font size. I tried in GUI font ,In which i can increase the font for GUI, not for ALV priniting . Can any body help me to solve this problem?
Regards,
siva kumar

HI Kushboo,
I think You are talking about header text in ALV , while printing ALV list i need to increase all the font size.. In fieldcatlog there is no option called Style...for increasing ALV font line item details. Can you tell me which style you are talking about?
Regards,
siva kumar

ALV list problem

Hi all,
I am facing a strange problem in ALV. i have two internal tables one is for alv header and another is alv line items. i have a proper data in in both internal tables.
when i pass the data of these two internal tables to the function REUSE_ALV_HIERSEQ_LIST_DISPLAY i found in the output that line items date changes.
actually date is in format 04112005 but when i see the output its showing like this 05.20.0411 .
please help me to solve the problem.
Regards,
Lisa

Hii
use this func module
CONVERT_DATE_TO_INTERN_FORMAT
CONVERSION_EXIT_PDATE_INPUT
Thsi will give the dtae in YYYY.MM.DD format
check this program for reference
REPORT Z_50657_ALV_EX1
 MESSAGE-ID ZZ .
 Type Pools *
TYPE-POOLS: SLIS.
 Tables *
TABLES: LFA1, "Vendor Master
 LFB1, "Vendor Master (Company Code)
 LFM1. "purchasing organization data
 Internal Tables *
TABLE TO HOLD DATA FROM VENDOR MASTER
DATA: BEGIN OF IT_LFA1 OCCURS 0,
 LIFNR LIKE LFA1-LIFNR, "Account Number of Vendor
 KTOKK LIKE LFA1-KTOKK, "Vendor account group
 NAME1 LIKE LFA1-NAME1, "Name
 STRAS LIKE LFA1-STRAS, "House Number and Street
 ORT01 LIKE LFA1-ORT01, "City
 REGIO LIKE LFA1-REGIO, "Region
 PFORT LIKE LFA1-PFORT, "PO Box City
 PSTLZ LIKE LFA1-PSTLZ, "Postal Code
 PSTL2 LIKE LFA1-PSTL2, "P.O. Box
 TELF1 LIKE LFA1-TELF1, "First telephone number
 END OF IT_LFA1.
TABLE TO HOLD DATA ABOUT COMPANY
DATA: BEGIN OF IT_LFB1 OCCURS 0,
 LIFNR LIKE LFB1-LIFNR, "Account Number of Vendor
 BUKRS LIKE LFB1-BUKRS, "COMP CODE
 END OF IT_LFB1.
TABLE TO HOLD DATA ABOUT PURCHASING ORG
DATA: BEGIN OF IT_LFM1 OCCURS 0,
 LIFNR LIKE LFM1-LIFNR, "Account Number of Vendor
 EKORG LIKE LFM1-EKORG, "Purchasing Organization
 END OF IT_LFM1.
TABLE TO HOLD DATA FOR FINAL DISPLAY
DATA: BEGIN OF IT_FINAL OCCURS 0,
 LIFNR LIKE LFB1-LIFNR, "Account Number of Vendor
 BUKRS LIKE LFB1-BUKRS, "COMP CODE
 EKORG LIKE LFM1-EKORG, "Purchasing Organization
 KTOKK LIKE LFA1-KTOKK, "Vendor account group
 NAME1 LIKE LFA1-NAME1, "Name
 STRAS LIKE LFA1-STRAS, "House Number and Street
 ORT01 LIKE LFA1-ORT01, "City
 REGIO LIKE LFA1-REGIO, "Region
 PFORT LIKE LFA1-PFORT, "PO Box City
 PSTLZ LIKE LFA1-PSTLZ, "Postal Code
 PSTL2 LIKE LFA1-PSTL2, "P.O. Box
 TELF1 LIKE LFA1-TELF1, "First telephone number
 END OF IT_FINAL.
DATA: V_INDEX TYPE SY-TABIX.
 Work Areas *
*WORK AREAS DEFINED FOR ALV'S
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
 IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 L_LAYOUT TYPE SLIS_LAYOUT_ALV.
 Selection-Screen *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_LIFNR FOR LFA1-LIFNR, "ACCOUNT NUMBER
 S_BUKRS FOR LFB1-BUKRS, "COMPANY CODE
 S_EKORG FOR LFM1-EKORG, "PURCHASING ORG
 S_KTOKK FOR LFA1-KTOKK. "ACCOUNT GROUP
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS: LIST RADIOBUTTON GROUP G1, "ALV LIST DISPLAY
 GRID RADIOBUTTON GROUP G1. "ALV GRID DISPLAY
SELECTION-SCREEN END OF BLOCK B2.
 At Selection-Screen *
AT SELECTION-SCREEN.
PERFORM VALIDATION.
 Start of Selection *
START-OF-SELECTION.
*POPULATE DATA INTO ITAB_FINAL USING INNER JOINS OF IT_LFA1 IT_LFB1
*IT_LFM1
PERFORM GET_DATA.
*CHECK FOR RADIO BUTTON SELECTION AND ACCORDINGLY DISPLAY ALV GRID/LIST
PERFORM CHECK_SEL.
*& Form VALIDATION
 text
FORM VALIDATION.
IF S_LIFNR IS NOT INITIAL.
 SELECT SINGLE LIFNR FROM LFA1 INTO IT_LFA1 WHERE LIFNR IN S_LIFNR.
 IF SY-SUBRC <> 0.
 MESSAGE I000 WITH 'THIS IS NOT A VALID VENDOR NUMBER'.
 STOP.
 ELSE.
 IF S_BUKRS IS NOT INITIAL.
 SELECT SINGLE BUKRS FROM LFB1 INTO IT_LFB1-BUKRS WHERE BUKRS IN
 S_BUKRS.
 IF SY-SUBRC <> 0.
 MESSAGE I000 WITH 'THIS IS NOT A VALID COMPANY CODE'.
 STOP.
 ENDIF.
 ENDIF.
 ENDIF.
ENDIF.
CLEAR IT_LFA1.
CLEAR IT_LFB1.
ENDFORM. "VALIDATION
*& Form GET_DATA
 text
FORM GET_DATA.
SELECT LIFNR
 KTOKK
 NAME1
 STRAS
 ORT01
 REGIO
 PFORT
 PSTLZ
 PSTL2
 TELF1
 FROM LFA1
 INTO TABLE IT_LFA1
 WHERE LIFNR IN S_LIFNR AND KTOKK IN S_KTOKK.
SORT IT_LFA1 BY LIFNR.
IF NOT IT_LFA1[] IS INITIAL.
 SELECT LIFNR
 BUKRS
 FROM LFB1
 INTO TABLE IT_LFB1
 FOR ALL ENTRIES IN IT_LFA1 WHERE LIFNR = IT_LFA1-LIFNR AND
 BUKRS IN S_BUKRS.
 SORT IT_LFB1 BY LIFNR BUKRS.
 SELECT LIFNR
 EKORG
 FROM LFM1
 INTO TABLE IT_LFM1
 FOR ALL ENTRIES IN IT_LFA1 WHERE LIFNR = IT_LFA1-LIFNR.
 SORT IT_LFM1 BY LIFNR.
ENDIF.
IT_FINAL[] = IT_LFB1[].
LOOP AT IT_FINAL.
 V_INDEX = SY-TABIX.
 READ TABLE IT_LFA1 WITH KEY LIFNR = IT_FINAL-LIFNR BINARY SEARCH.
 IF SY-SUBRC = 0.
 MOVE: IT_LFA1-KTOKK TO IT_FINAL-KTOKK,
 IT_LFA1-NAME1 TO IT_FINAL-NAME1,
 IT_LFA1-STRAS TO IT_FINAL-STRAS,
 IT_LFA1-ORT01 TO IT_FINAL-ORT01,
 IT_LFA1-REGIO TO IT_FINAL-REGIO,
 IT_LFA1-PFORT TO IT_FINAL-PFORT,
 IT_LFA1-PSTLZ TO IT_FINAL-PSTLZ,
 IT_LFA1-PSTL2 TO IT_FINAL-PSTL2,
 IT_LFA1-TELF1 TO IT_FINAL-TELF1.
 ENDIF.
 READ TABLE IT_LFM1 WITH KEY LIFNR = IT_FINAL-LIFNR BINARY SEARCH.
 IF SY-SUBRC = 0.
 MOVE IT_LFM1-EKORG TO IT_FINAL-EKORG.
 ENDIF.
 MODIFY IT_FINAL INDEX V_INDEX.
ENDLOOP.
LOOP AT IT_LFA1.
 LOOP AT IT_FINAL WHERE LIFNR = IT_LFA1-LIFNR.
 MOVE IT_LFA1-KTOKK TO IT_FINAL-KTOKK.
 MODIFY IT_FINAL INDEX SY-TABIX.
 MOVE IT_LFA1-NAME1 TO IT_FINAL-NAME1.
 MODIFY IT_FINAL INDEX SY-TABIX.
 MOVE IT_LFA1-STRAS TO IT_FINAL-STRAS.
 MODIFY IT_FINAL INDEX SY-TABIX.
 MOVE IT_LFA1-ORT01 TO IT_FINAL-ORT01.
 MODIFY IT_FINAL INDEX SY-TABIX.
 MOVE IT_LFA1-REGIO TO IT_FINAL-REGIO.
 MODIFY IT_FINAL INDEX SY-TABIX.
 MOVE IT_LFA1-PFORT TO IT_FINAL-PFORT.
 MODIFY IT_FINAL INDEX SY-TABIX.
 MOVE IT_LFA1-PSTLZ TO IT_FINAL-PSTLZ.
 MODIFY IT_FINAL INDEX SY-TABIX.
 MOVE IT_LFA1-PSTL2 TO IT_FINAL-PSTL2.
 MODIFY IT_FINAL INDEX SY-TABIX.
 MOVE IT_LFA1-TELF1 TO IT_FINAL-TELF1.
 MODIFY IT_FINAL INDEX SY-TABIX.
 ENDLOOP.
ENDLOOP.
LOOP AT IT_LFM1.
 LOOP AT IT_FINAL WHERE LIFNR = IT_LFM1-LIFNR.
 MOVE IT_LFM1-EKORG TO IT_FINAL-EKORG.
 MODIFY IT_FINAL INDEX SY-TABIX.
 ENDLOOP.
ENDLOOP.
SORT IT_FINAL BY LIFNR BUKRS EKORG.
ENDFORM. "GET_DATA
*& Form CHECK_SEL
 text
FORM CHECK_SEL.
X_FIELDCAT-FIELDNAME = 'LIFNR'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-SELTEXT_L = 'VENDOR'.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = 10.
X_FIELDCAT-COL_POS = 1.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'BUKRS'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-SELTEXT_L = 'COMPANY'.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = 4.
X_FIELDCAT-COL_POS = 2.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'EKORG'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-SELTEXT_L = 'PURCHASING ORGANISATION'.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = 4.
X_FIELDCAT-COL_POS = 3.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'KTOKK'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-SELTEXT_L = 'ACCOUNT GROUP'.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = 4.
X_FIELDCAT-COL_POS = 4.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'NAME1'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-SELTEXT_L = 'VENDOR NAME'.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = 35.
X_FIELDCAT-COL_POS = 5.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'STRAS'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-SELTEXT_L = 'STREET'.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = 10.
X_FIELDCAT-COL_POS = 6.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'ORT01'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-SELTEXT_L = 'CITY NAME'.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = 20.
X_FIELDCAT-COL_POS = 7.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'REGIO'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-SELTEXT_L = 'REGION NAME'.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = 2.
X_FIELDCAT-COL_POS = 8.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
IF LIST = 'X'.
 CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = SY-REPID
 I_INTERNAL_TABNAME = 'IT_FINAL'
 I_INCLNAME = SY-REPID
 CHANGING
 CT_FIELDCAT = IT_FIELDCAT
 EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 2
 OTHERS = 3.
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 L_LAYOUT-ZEBRA = 'X'.
 CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 IS_LAYOUT = L_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
 TABLES
 T_OUTTAB = IT_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.
ELSE.
 CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = SY-REPID
 I_INTERNAL_TABNAME = 'IT_FINAL'
 I_INCLNAME = SY-REPID
 CHANGING
 CT_FIELDCAT = IT_FIELDCAT
 EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 2
 OTHERS = 3.
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 L_LAYOUT-ZEBRA = 'X'.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 IS_LAYOUT = L_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
 TABLES
 T_OUTTAB = IT_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.
ENDIF.
Regards
Naresh

ALV List with checkboxes

Hello experts,
I'm working on an object where in I need to display an ALV List (using Funct Modules) with checkboxes.
When I select the checkboxes,and click on a button (Eg.Refresh Button) , I need to get all the details of the selected rows (checked rows) in a seperate ALV List (in a Dailog).
Could any one of u please suggest me about selecting the row which has been checked(Checkboxes in ALV ).
Thanks in advance.
Sanghamitra

Hi sangha,
1. To get a taste of it,
 just copy paste this program.
2. It will display alv (t001)
 It will show CHECKBOXES (besides every row)
 TICK some rows,
and DOUBLE-CLICK ON any row.
3. It will display all the row numbers which have been checked/ticked.
4.
report abc.
TYPE-POOLS : slis.
Data
DATA : BEGIN OF itab OCCURS 0.
 INCLUDE STRUCTURE t001.
DATA : flag tyPE c,
 END OF itab.
DATA : alvfc TYPE slis_t_fieldcat_alv.
DATA : alvly TYPE slis_layout_alv.
Select Data
SELECT * FROM t001 INTO TABLE itab.
*------- Field Catalogue
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
 i_program_name = sy-repid
 i_internal_tabname = 'ITAB'
 i_inclname = sy-repid
CHANGING
 ct_fieldcat = alvfc
EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 OTHERS = 3.
Display
alvly-box_fieldname = 'FLAG'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
 it_fieldcat = alvfc
 i_callback_program = sy-repid "<-------Important
 i_callback_user_command = 'ITAB_USER_COMMAND' "<------ Important
 is_layout = alvly
TABLES
 t_outtab = itab
EXCEPTIONS
 program_error = 1
 OTHERS = 2.
CALL BACK FORM
FORM itab_user_command USING whatcomm TYPE sy-ucomm whatrow TYPE
slis_selfield.
data : msg(100) type c.
LOOP AT itab.
 if itab-flag = 'X'.
 msg = sy-tabix.
 condense msg.
 concatenate 'Row Number ' msg ' ' into msg
 separated by space.
 message msg type 'I'.
 endif.
ENDLOOP.
ENDFORM. "ITAB_user_command
regards,
amit m.

Changeable records on column in ALV LIST

Hi,
i want to change my records on alv list. I mean records look like parameters in alv list. But i dont know the code about this . I think i need to find code in slis_t_fieldcat_alv but i cant find it. If you can fix my problem i will be pleased.
Regards.

Hi You need to use STYLE attribute of layout & EDIT attribute of Fieldcatalog to do this.
Please refer the code snippet below :-
wa_fieldcat-fieldname   = 'NETPR'.
wa_fieldcat-scrtext_m   = 'Net Price'.
wa_fieldcat-edit        = 'X'. "sets whole column to be editable
wa_fieldcat-col_pos     = 7.
wa_fieldcat-outputlen   = 15.
wa_fieldcat-datatype     = 'CURR'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
Please search in SCN before you post such questions, you will get a lot of code snippets demonstarting the same.
Regards
Abhii

ALV List by calling SET_TABLE_FOR_FIRST_DISPLAY of CL_GUI_ALV_GRID

Hi All
I want to display the output as a ALV List by calling method SET_TABLE_FOR_FIRST_DISPLAY of CL_GUI_ALV_GRID.
I see there is a protected attribute M_BATCH_MODE. How can I set this attribute to be true.
Or is there any other option through which I can get ALV List Output
Please note that I do not want the grid display
Thanks in advance
Sriram

Hi All
Appreciate your replies
Let me say more as to what I am doing. Please have a look into DEMO_ABAP_OBJECTS_SPLIT_SCREEN. Where in, there are splitter containers CONTAINER_LEFT and CONTAINER_RIGHT (instances of CL_GUI_SPLITTER_CONTAINER). The ALV I am talking about in this thread is displayed in CONTAINER_RIGHT
Rob, are you sugesting not to use CL_GUI_SPLITTER_CONTAINER and use CL_GUI_DOCKING_CONTAINER or create a docking container object inside CONTAINER_RIGHT? Can you please throw some more light!
Also, one more point i want to stress, I want "ALV List" while running in foreground. I have check out
How to run ALV reports in batch
How do I tell the program to run in background for the purposes of this ALV alone?
Thanks
Sriram

How can I fixed alv list?

how can I fixed alv list?
alv list always change size(scaled) I mean cannot fixed
I did using some parameters following .I want to fixed the length of ALV column but still not work.
fieldcat_ln-intlen = 13
fieldcat_ln-outputlen   = 13.
becuase I need to know print size and so on etc..
What I have to do? anything wrong?

Hi Yi,
1. If u are talking about fixing
    the size of the column,
then u are right.
outputlen is the right property.
2. Along with that we need to do one more thing.
   This is regarding the column heading
   which appears either LONG, SHORt, MEDIUM,
   from the data element defition.
set ddictxt = M
or L, S (short)
Regards,
Amit M.

Alv list edit sample

hi experts
can someone give some samples of alv list about field editable and about event capture such as capture the enter event, capture the data changed event.

Hi,
WA_FIELDCAT-COL_POS = 4.
WA_FIELDCAT-TABNAME = 'GT_OUT'.
WA_FIELDCAT-FIELDNAME = 'DATAINS2'.
WA_FIELDCAT-SELTEXT_M = 'POD'.
WA_FIELDCAT-EDIT = 'X'. ( This statement Will edit )
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-EDIT = 'X'.
Thanks
Vikranth
Edited by: Khimavath Vikranth on Jun 16, 2008 10:32 AM

Differences between normal list and ALV list

Hi All,
where can i find the differences between a Normal SAP List and ALV List(Documentation part).

Imagine you have to write a report that lists out customer addresses. You will write code to get the input from the user via selection screen and then read the data based on the seletion from the database into an internal table(or a set of internal tables). Now once you have the data you will need to output this. In normal list reports, you will have to use 'WRITE' statements to format the output into columns and rows. Now suppose user wants some interactivity in it. Then you will have to provide some buttons and/or menu options through custom pf-status and then write logic for reacting to the user actions. After writing many such reportsm, you will feel like some of this can generalized and reused in every report.
That is exactly what ALV does. It takes out most of repeated sections of the code from out of you and provides you with excellent outputting functionality. It provides many standard functions like 'print', 'sort', 'filter', 'sum' etc by default. Imagine writing code yourself for all these if you were writing normal list program. One more major difference is the editing feature. If you were write a program that gives the user with editing features, then you will have to write a lot of logic. But with ALV, all the features like adding a row, deleting a row, copying a row, editing some fields of a row etc come by default.
Likewise, interactivity has become quite easy to implement. Like double clicking on a customer number, if the user wants to go to display customer transaction, it is very easy using ALV.
As pointed out here by others, go through the documentation of ALV and go through some of those demo programs and you will know the difference. ALV takes out a lot of burden of coding everything away from you and lets you worry about the business functionality that your report provides, rather than formatting the output or providing interactivity to the output.
Hope this helps,
Srinivas

Hide delete option is not working in ALV List Display- urgent

Hi All,
In my program i am displaying the output by using alv list display. after displaying the data i am displaying my own pf status here. in this i have few pushbuttons like
selest all, deselect all, hide . first two options are working fine. when i click hide button selected records are going to be hide.but this is not happening in my program. any body cam send me the code plz.
i am sending my code below. if possible please modify and resend the code asap.
my code:
type-pools : slis.
tables : zuser_secobjects.
data : t_header1 like zuser_secobjects.
data : begin of it_secobjects occurs 0.
 include structure t_header1.
*data : box,
 input(1) type c,
data : checkbox type c,
 flag type c,
 end of it_secobjects.
data : wa_ita like line of it_secobjects.
*data : it_secobjects like zuser_secobjects occurs 0 with header line.
data : i_field type slis_t_fieldcat_alv with header line.
data : w_field like line of i_field.
data : i_sort type slis_t_sortinfo_alv.
data : w_sort like line of i_sort.
data : it_filt1 type slis_t_filter_alv with header line.
data:
i_tabname type tabname,
i_repid like sy-repid,
is_lout type slis_layout_alv.
data : it_filt type slis_t_filter_alv with header line,
 it_evts type slis_t_event with header line.
DATA : is_vari type disvariant.
constants : c_default_vari value 'X',
 c_save_vari value 'U',
 c_checkfield type slis_fieldname value 'ACTION',
 c_f2code type sy-ucomm value '&ETA'.
data : chk_box type slis_fieldname.
selection-screen: begin of block b1 with frame title text-t01.
parameters : p_appln type zuser_secobjects-appln.
parameters : p_user type usr02-bname, "zuser_secobjects-appln_user,
p_partnr type zuser_secobjects-appln_partner,
p_ptype type zuser_secobjects-partner_type default '02',
p_upostn type zuser_secobjects-user_position,
p_sdate like likp-erdat default sy-datum,
p_edate(10) default '12/31/9999',
p_revnum type zuser_secobjects-revnum,
p_cted type zuser_secobjects-created_by,
p_cdate type zuser_secobjects-creation_date,
p_ctime type zuser_secobjects-creation_time,
p_chnby type zuser_secobjects-changed_by,
p_cdate1 type zuser_secobjects-changed_date,
p_ctime1 type zuser_secobjects-changed_time.
selection-screen: end of block b1.
form user_command using p_ucomm like sy-ucomm
rs_selfield type slis_selfield.
*DATA : it_filt type slis_t_filter_alv with header line.
case p_ucomm.
 when 'SELECT_ALL'. " SELALL is the FCODE of ur push button
 loop at it_secobjects into wa_ita.
 wa_ita-checkbox = 'X'.
 modify it_secobjects from wa_ita.
 endloop.
rs_selfield-refresh = 'X'. "<- ADD THIS
when 'DESLCT_ALL'.
 loop at it_secobjects into wa_ita.
 wa_ita-checkbox = ' '.
 modify it_secobjects from wa_ita.
 endloop.
rs_selfield-refresh = 'X'. "<- ADD THIS
 is_lout-f2code = c_f2code.
 is_lout-box_fieldname = c_checkfield.
 is_lout-get_selinfos = 'X'.
 is_lout-detail_popup = 'X'.
 is_lout-detail_initial_lines = 'X'.
when 'HIDE_DEL'.
 rs_selfield-exit = 'X'.
 it_filt-fieldname = 'CHECKBOX'.
 it_filt-tabname = '1'.
 it_filt-valuf = 'X'.
 it_filt-intlen = '1'.
 it_filt-inttype = 'C'.
 it_filt-datatype = 'CHAR'.
 it_filt-valuf_int = 'X'.
 it_filt-sign0 = 'E'.
 it_filt-optio = 'EQ'.
 if it_filt[] is initial.
 append it_filt.
 else.
 modify it_filt index 1.
 endif.
 perform display using i_object.
PERForm ALV_LIST_DISPLAY.
WHEN 'SHOW_DEL'.
 rs_selfield-exit = 'X'.
 free it_filt.
PERForm ALV_LIST_DISPLAY.
when 'SAVE1'.
 select * from zuser_secobjects where
 appln = zuser_secobjects-appln
 and appln_partner = zuser_secobjects-appln_partner
 and partner_type = zuser_secobjects-partner_type
 and start_date = zuser_secobjects-start_date
 and end_date = zuser_secobjects-end_date.
 endselect.
 if sy-subrc eq 0.
 message e000(ZV) with 'Duplicate Entry'.
 endif.
endcase.
endform.
*& Form delete
form delete.
data : begin of is_secobjects occurs 0.
 include structure zuser_secobjects.
data : checkbox type c.
data : end of is_secobjects.
is_secobjects-checkbox = 'X'.
modify is_secobjects
 from it_secobjects
 transporting checkbox
where checkbox = 'X'.
endform.
*& Form get_data
form get_data.
select * from zuser_secobjects
into table it_secobjects.
endform. " get_data
*& Form prepare_fieldcatalog
 text
--> p1 text
<-- p2 text
form prepare_fieldcatalog.
clear: w_field,i_field.
refresh:i_field.
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'.
i_field-input = 'X'.
i_field-fieldname = 'HEADER'.
i_field-outputlen = 0.
append i_field.
clear i_field.
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_USER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
endform. " prepare_fieldcatalog
*& Form ALV_LIST_DISPLAY
 text
--> p1 text
<-- p2 text
form alv_list_display.
i_repid = sy-repid.
is_lout-box_fieldname = 'CHECKBOX'.
it_filt-fieldname = 'CHECKBOX'.
call function 'REUSE_ALV_LIST_DISPLAY'
 exporting
 i_callback_program = i_repid
 i_callback_pf_status_set = 'PF_STATUS_SET'
 i_callback_user_command = 'USER_COMMAND'
 is_layout = is_lout
 it_fieldcat = i_field[]
 it_filter = it_filt[]
 it_events = it_evts[]
 i_default = c_default_vari
 i_save = c_save_vari
 is_variant = is_vari
 tables
 t_outtab = it_secobjects.
endform. " ALV_LIST_DISPLAY
*& Form display
 text
 -->P_I_OBJECT text
form display using object.
case object.
ENDCASE.
endform. " display
thanks,
maheedhar.t

Hi,
What do you mean by Hiding the records.
Deleting completely from the screen.
You can just delete the records from the internal table and pass to field catalog before displaying again.
or serach in the slis structrue for hiding the contents of the output.
reward if useful
regards,
Anji

Issue in ALV List display

Issue in ALV List display
Posted: Apr 5, 2008 10:25 AM Edit E-mail this message Reply
Hi Friends,
Can any one help me out in the logic to display the output in the ALV list.
i want to get the out put as
based on the field4 i have to display fieds5, field6 and field 7 values as mentioned below.
field1 field2 field3 field4 field5 field6 field7
0L 123 456 2008 001 123.00 456.00
- - - - 002 213.00 789.00
- - - 003 0.00 0.00
- - - 004 0.00 0.00
- - - 005 0.00 0.00
- - - 006 0.00 0.00
 336.00 1245.00
Thanks,
Vijay

for display you have to define fieldcatlaog and use Fm RESUE_ALV_GRID_DISPLAY,
Go through this program
*& Report Z_OPEN_CLOSE *
REPORT Z_OPEN_CLOSE MESSAGE-ID YW2 LINE-SIZE 231 LINE-COUNT 45
NO STANDARD PAGE HEADING.
Type Declaration *
TYPE-POOLS SLIS.
Tables *
TABLES: MKPF, " Material Document: Header Data
 MSEG, " Material Document: Item Data
 MARA,
 MARD,
 S031,
 EKKO,
 EKPO,
 LIKP,
 MAKT,
 J_1IWRKCUS,
 T001W,
 WB2_V_MKPF_MSEG2,
 MMIM_REP_PRINT,
 YW2_STKMOVEMENTS,
 YPLNT,
 MARDH.
Internal Tables *
DATA: I_WERKS LIKE J_1IWRKCUS OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_YPLNT OCCURS 0,
 PPLNT LIKE YPLNT-PPLNT,
 WPLNT LIKE YPLNT-WPLNT,
 END OF I_YPLNT.
DATA: BEGIN OF I_MKPF OCCURS 0,
 MBLNR LIKE MKPF-MBLNR,
 MJAHR LIKE MKPF-MJAHR,
 BUDAT LIKE MKPF-BUDAT,
 VGART LIKE MKPF-VGART,
 BWART LIKE MSEG-BWART,
 MATNR LIKE MSEG-MATNR,
 WERKS LIKE MSEG-WERKS,
 LGORT LIKE MSEG-LGORT,
 MENGE LIKE MSEG-MENGE,
 MEINS LIKE MSEG-MEINS,
 KUNNR LIKE MSEG-KUNNR,
 ZEILE LIKE MSEG-ZEILE,
 XAUTO LIKE MSEG-XAUTO,
 SHKZG LIKE MSEG-SHKZG,
 MATNR1 LIKE MSEG-MATNR,
 END OF I_MKPF.
DATA: BEGIN OF I_MARDH OCCURS 0,
 WERKS LIKE MARDH-WERKS,
 MEINS LIKE MARA-MEINS,
 MATNR LIKE MARDH-MATNR,
 LGORT LIKE MARDH-LGORT,
 LABST LIKE MARDH-LABST,
 LFGJA LIKE MARDH-LFGJA, "Added -MB
 LFMON LIKE MARDH-LFMON, "Added -MB
 PERIO(6),
 INSME LIKE MARDH-LABST,
 EINME LIKE MARDH-LABST,
 SPEME LIKE MARDH-LABST,
 RETME LIKE MARDH-LABST,
 O_STK LIKE MARDH-LABST, " Opening Stock
 C_STK LIKE MARDH-LABST, " Closing Stock
 END OF I_MARDH.
DATA: BEGIN OF I_MARD OCCURS 0,
 WERKS LIKE MARD-WERKS,
 MATNR LIKE MARD-MATNR,
 LGORT LIKE MARD-LGORT,
 LABST LIKE MARD-LABST,
 INSME LIKE MARD-LABST,
 MEINS LIKE MARA-MEINS,
 EINME LIKE MARD-LABST,
 SPEME LIKE MARD-LABST,
 RETME LIKE MARD-LABST,
 END OF I_MARD.
DATA: I_MARD1 LIKE I_MARD OCCURS 0 WITH HEADER LINE.
DATA: I_MARDH1 LIKE I_MARDH OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_MKPF1 OCCURS 0,
 MBLNR LIKE MKPF-MBLNR,
 WERKS LIKE MSEG-WERKS,
 MATNR LIKE MSEG-MATNR,
 BUDAT LIKE MKPF-BUDAT,
 BWART LIKE MSEG-BWART,
 MJAHR LIKE MKPF-MJAHR,
 VGART LIKE MKPF-VGART,
 LGORT LIKE MSEG-LGORT,
 MENGE LIKE MSEG-MENGE,
 MEINS LIKE MSEG-MEINS,
 XAUTO LIKE MSEG-XAUTO,
 SHKZG LIKE MSEG-SHKZG,
 END OF I_MKPF1.
DATA: BEGIN OF I_MKPF2 OCCURS 0,
 WERKS LIKE MSEG-WERKS,
 MATNR LIKE MSEG-MATNR,
 BUDAT LIKE MKPF-BUDAT,
 BWART LIKE MSEG-BWART,
 MJAHR LIKE MKPF-MJAHR,
 VGART LIKE MKPF-VGART,
 LGORT LIKE MSEG-LGORT,
 MENGE LIKE MSEG-MENGE,
 MEINS LIKE MSEG-MEINS,
 XAUTO LIKE MSEG-XAUTO,
 END OF I_MKPF2.
DATA: BEGIN OF I_FINAL5 OCCURS 0,
 WERKS LIKE MSEG-WERKS, " Plant
 MATNR LIKE MSEG-MATNR, " Material
 LGORT LIKE MSEG-LGORT, " Storage Location
 BUDAT LIKE MKPF-BUDAT, " Posting Date
 MTART LIKE MARA-MTART, " Material Type
 SPMON LIKE S031-SPMON, " Month
 MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
 MEINS LIKE MSEG-MEINS,
 O_STK LIKE MARDH-LABST, " opening stock
 TRECEP LIKE MARDH-LABST, " total receipts
 PRODU LIKE MARDH-LABST, " Net Receipts - Production
 RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
 SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
 TDISP LIKE MARDH-LABST, " total dispatches
 CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
 OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
 TLOSS LIKE MARDH-LABST, " Total Loss
 TRLOSS LIKE MARDH-LABST, " Transit Loss
 WHLOSS LIKE MARDH-LABST, " Warehouse Loss
 C_STK LIKE MARDH-LABST, " Closing Stock
 TRFSTK LIKE MARDH-LABST, "Transfer stock
 MENGE LIKE MSEG-MENGE,
 OTHADJ LIKE MARDH-LABST,
 END OF I_FINAL5.
DATA: BEGIN OF I_FINAL OCCURS 0,
 WERKS LIKE MSEG-WERKS, " Plant
 MATNR LIKE MSEG-MATNR, " Material
 BUDAT LIKE MKPF-BUDAT, " Posting Date
 MTART LIKE MARA-MTART, " Material Type
 SPMON LIKE S031-SPMON, " Month
 MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
 MEINS LIKE MSEG-MEINS,
 O_STK LIKE MARDH-LABST, " opening stock
 TRECEP LIKE MARDH-LABST, " total receipts
 PRODU LIKE MARDH-LABST, " Net Receipts - Production
 RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
 SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
 TDISP LIKE MARDH-LABST, " total dispatches
 CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
 OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
 TRFSTK LIKE MARDH-LABST, "Material Transfer stock
 TRLOSS LIKE MARDH-LABST, " Transit Loss
 WHLOSS LIKE MARDH-LABST, " Warehouse Loss
 TLOSS LIKE MARDH-LABST, " Total Loss
 C_STK LIKE MARDH-LABST, " Closing Stock
 OTHADJ LIKE MARDH-LABST,
 END OF I_FINAL.
DATA: I_FINAL1 LIKE I_FINAL OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_FINAL_TEMP OCCURS 0,
 WERKS LIKE MSEG-WERKS, " Plant
 MATNR LIKE MSEG-MATNR, " Material
 MTART LIKE MARA-MTART, " Material Type
 MAKTX LIKE MAKT-MAKTX, " Description
 MEINS LIKE MSEG-MEINS,
 O_STK LIKE MARDH-LABST, " opening stock
 TRECEP LIKE MARDH-LABST, " total receipts
 PRODU LIKE MARDH-LABST, " Net Receipts - Production
 RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
 SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
 TDISP LIKE MARDH-LABST, " total dispatches
 CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
 OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
 TRFSTK LIKE MARDH-LABST, "Material Transfer stock
 TRLOSS LIKE MARDH-LABST, " Transit Loss
 WHLOSS LIKE MARDH-LABST, " Warehouse Loss
 TLOSS LIKE MARDH-LABST, " Total Loss
 C_STK LIKE MARDH-LABST, " Closing Stock
 OTHADJ LIKE MARDH-LABST,
 END OF I_FINAL_TEMP.
For Materials
DATA: BEGIN OF I_MARA OCCURS 0,
 MATNR TYPE MARA-MATNR,
 MTART TYPE MARA-MTART,
 MEINS LIKE MARA-MEINS,
 LABST TYPE MARD-LABST,
 MAKTX LIKE MAKT-MAKTX,
 END OF I_MARA.
DATA: BEGIN OF I_STKMVMNTS OCCURS 0,
 BWART LIKE MSEG-BWART,
 SHKZG LIKE MSEG-SHKZG,
 VZBEW LIKE YW2_STKMOVEMENTS-VZBEW,
 END OF I_STKMVMNTS.
DATA: BEGIN OF I_FINALT OCCURS 0,
 WERKS LIKE MSEG-WERKS, " Plant
 MATNR LIKE MSEG-MATNR, " Material
 BUDAT LIKE MKPF-BUDAT, " Posting Date
 MTART LIKE MARA-MTART, " Material Type
 SPMON LIKE S031-SPMON, " Month
 MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
 MEINS LIKE MSEG-MEINS,
 O_STK LIKE MARDH-LABST, " opening stock
 TRECEP LIKE MARDH-LABST, " total receipts
 PRODU LIKE MARDH-LABST, " Net Receipts - Production
 RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
 SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
 TDISP LIKE MARDH-LABST, " total dispatches
 CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
 OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
 TRFSTK LIKE MARDH-LABST, "Material Transfer stock
 TRLOSS LIKE MARDH-LABST, " Transit Loss
 WHLOSS LIKE MARDH-LABST, " Warehouse Loss
 TLOSS LIKE MARDH-LABST, " Total Loss
 C_STK LIKE MARDH-LABST, " Closing Stock
 OTHADJ LIKE MARDH-LABST,
 MONTH(8) ,
 END OF I_FINALT.
DATA: IMKPFT LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
DATA: IMKPFT1 LIKE I_MKPF1 OCCURS 0 WITH HEADER LINE.
DATA: IMARDT LIKE I_MARD OCCURS 0 WITH HEADER LINE.
DATA: IMARDHT LIKE I_MARDH OCCURS 0 WITH HEADER LINE.
DATA: T_FINAL LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
DATA: IMKPFT2 LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
FCAT is used for the field catalog
DATA: FCAT TYPE TABLE OF SLIS_FIELDCAT_ALV WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
for excluding the ICONs from the application toolbar
 FEXC TYPE TABLE OF SLIS_EXTAB WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
FS_LAYO is used for Grid Layout
 FS_LAYO TYPE SLIS_LAYOUT_ALV,
FEVENTS to handle the events TOP OF PAGE & USER_COMMAND
 FEVENTS TYPE TABLE OF SLIS_ALV_EVENT WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
FHEADER is used for List header
 FHEADER TYPE TABLE OF SLIS_LISTHEADER WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
sort is used for sorting
 FSORT TYPE TABLE OF SLIS_SORTINFO_ALV WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 FCAT1 TYPE TABLE OF SLIS_FIELDCAT_ALV WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 FS_LAYO1 TYPE SLIS_LAYOUT_ALV,
 GT_LIST_TOP_OF_PAGE1 TYPE SLIS_T_LISTHEADER,
 FEVENTS1 TYPE TABLE OF SLIS_ALV_EVENT WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 FHEADER1 TYPE TABLE OF SLIS_LISTHEADER WITH NON-UNIQUE DEFAULT
 KEY WITH HEADER LINE INITIAL SIZE 0,
 G_STATU_071 TYPE SLIS_FORMNAME VALUE 'Z_PFSTATUS',
 ALV_VARIANT1 LIKE DISVARIANT.
Variable Declaration *
TYPES: TRFF_TYPE_DEC_6_5(6) TYPE P DECIMALS 5.
DATA: FYEAR(4),
 MON(2),
 FYEAR1(4),
 MON1(2),
 OBAL LIKE MARD-LABST,
 CBAL LIKE MARD-LABST,
 INDEX TYPE I,
 COUNT,
 COUNT1 TYPE I,
 O_STK TYPE P DECIMALS 3,
 C_STK TYPE P DECIMALS 3,
 V_MJAHR LIKE MKPF-MJAHR,
 MONTHS TYPE TRFF_TYPE_DEC_6_5,
 MONTH TYPE I.
Global variables for handling ALV functionality
DATA: ALV_KEYINFO TYPE SLIS_KEYINFO_ALV,
 ALV_VARIANT LIKE DISVARIANT,
 ALV_LAYOUT TYPE SLIS_LAYOUT_ALV,
 ALV_REPID LIKE SY-REPID,
 ALV_PRINT TYPE SLIS_PRINT_ALV,
 ALV_DETAIL_FUNC(30),
 ALV_DEFAULT_VARIANT LIKE DISVARIANT-VARIANT,
 ALV_COLOURIZE_FIELDS LIKE MMIM_REP_PRINT-COLOR.
RANGES: R_BUDAT FOR MKPF-BUDAT.
*Added by Prabhu for year on 26.4.05.
DATA: IDATE LIKE R_BUDAT OCCURS 0 WITH HEADER LINE.
Selection Screen Elements *
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_WERKS FOR MARD-WERKS OBLIGATORY NO INTERVALS.
PARAMETER: P_SPMON LIKE S031-SPMON NO-DISPLAY .
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR OBLIGATORY,
 S_LGORT FOR MSEG-LGORT NO-EXTENSION NO INTERVALS,
 S_MBLNR FOR MKPF-MBLNR,
 S_BUDAT FOR MKPF-BUDAT OBLIGATORY .
SELECTION-SCREEN END OF BLOCK BLK.
SELECTION-SCREEN BEGIN OF BLOCK BLK3 WITH FRAME TITLE TEXT-004.
 PARAMETER : MTART LIKE MARA-MTART DEFAULT 'FERT' NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK BLK3.
SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN END OF BLOCK BLK2.
ADDED BY PRABHU FOR DAY-WISE REPORT.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-007.
PARAMETERS: D1 RADIOBUTTON GROUP P1 DEFAULT 'X',
 M1 RADIOBUTTON GROUP P1,
 Y1 RADIOBUTTON GROUP P1.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-006.
PARAMETERS: ALV_DEF LIKE DISVARIANT-VARIANT.
SELECTION-SCREEN END OF BLOCK B2.
DATA: S_BUDAT1 LIKE S_BUDAT OCCURS 0 WITH HEADER LINE."prabhu
Initialization *
INITIALIZATION.
PERFORM ALV_INIT.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ALV_DEF.
PERFORM ALV_F4.
At Selection Screen
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_spmon.
PERFORM monat_f4.
At Selection Screen *
AT SELECTION-SCREEN.
checking for the layout
PERFORM ALV_CHECK.
authorisation check for the Plant
PERFORM auth_check.
Validation for the Plant
PERFORM VALIDITY_CHECK.
IF MTART NE 'FERT'.
 MESSAGE E041 WITH 'Material Type must be FERT Only...'.
ENDIF.
IF D1 = 'X'." On 26.4.05.
 P_SPMON0(4) = S_BUDAT-LOW0(4).
 P_SPMON4(2) = S_BUDAT-LOW4(2).
ELSE.
 P_SPMON0(4) = S_BUDAT-LOW0(4).
 P_SPMON4(2) = S_BUDAT-LOW4(2).
ENDIF.
LOOP AT S_BUDAT.
 IF S_BUDAT-HIGH IS INITIAL.
 S_BUDAT-HIGH = S_BUDAT-LOW.
 MODIFY S_BUDAT.
 ENDIF.
ENDLOOP.
IDATE-LOW = S_BUDAT-LOW.
IDATE-HIGH = S_BUDAT-HIGH.
CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
 EXPORTING
 I_DATE_FROM = IDATE-LOW
 I_DATE_TO = IDATE-HIGH
 IMPORTING
E_DAYS =
 E_MONTHS = MONTH
E_YEARS =
DATA: I(3) TYPE C.
I = S_BUDAT-LOW+4(2).
CLEAR: R_BUDAT.
REFRESH: R_BUDAT.
*added by Prabhu for Only for Oneday.on 18.5.5
IF MONTH EQ '0'.
 MONTH = MONTH + 1.
ENDIF.
*added by Prabhu for Only for Oneday.on 18.5.5
DO MONTH TIMES.
 R_BUDAT-LOW = S_BUDAT-LOW.
 APPEND R_BUDAT.
ENDDO.
I = 0.
LOOP AT R_BUDAT.
 R_BUDAT-LOW4(2) = S_BUDAT-LOW4(2) + I.
 I = I + 1.
 R_BUDAT-LOW+6(2) = '01'.
 MODIFY R_BUDAT.
ENDLOOP.
LOOP AT R_BUDAT.
 CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
 EXPORTING
 DAY_IN = R_BUDAT-LOW
 IMPORTING
 LAST_DAY_OF_MONTH = R_BUDAT-HIGH
 EXCEPTIONS
 DAY_IN_NO_DATE = 1
 OTHERS = 2
 MODIFY R_BUDAT.
ENDLOOP.
LOOP AT R_BUDAT.
 IF R_BUDAT-LOW4(2) = S_BUDAT-LOW4(2).
 R_BUDAT-LOW = S_BUDAT-LOW.
 MODIFY R_BUDAT.
 ENDIF.
 IF R_BUDAT-HIGH4(2) = S_BUDAT-HIGH4(2).
 R_BUDAT-HIGH = S_BUDAT-HIGH.
 MODIFY R_BUDAT.
 ENDIF.
For Summary on 26.4.05.
 IF Y1 = 'X'.
 CLEAR R_BUDAT.
 REFRESH R_BUDAT.
 R_BUDAT-LOW = S_BUDAT-LOW.
 R_BUDAT-HIGH = S_BUDAT-HIGH.
 APPEND R_BUDAT.
 CLEAR R_BUDAT.
 ENDIF.
ENDLOOP.
At Selection Screen *
AT SELECTION-SCREEN OUTPUT.
Start of Selection *
START-OF-SELECTION.
V_MJAHR = P_SPMON+0(4).
Get plant distinction warehouse/production
PERFORM GET_PLANT_DISTINCTION.
Collect the data from various tables
PERFORM GETDATA_FG_STOCK.
here the number of rows in the output table is found
PERFORM OUTPUT_TABLE_CHECK.
here the top of the page code is written, that is to be displayed
in the output
PERFORM Z_TOP_OF_PAGE.
here ALV layout properties are set
PERFORM Z_LAYOUT_SETTINGS.
ALV EVENTS for TOP OF PAGE and for USER COMMAND
PERFORM Z_ALV_EVENTS.
The field catalog is defined for the Primary List is defined in
the subroutine CREATE_FIELD_CATALOG include program ZPRRDOCR_FCAT
PERFORM Z_CREATE_FIELD_CATALOG.
This is for displaying the output
PERFORM Z_REUSE_ALV_GRID_DISPLAY.
*& Form getdata_fg_stock
Getting data from standard tables
FORM GETDATA_FG_STOCK.
For getting the Start date & end date of the month
PERFORM get_month_dates.
Getting the Opening Stock from MARDH table
IF MON EQ '01'.
 MON1 = MON.
 FYEAR1 = FYEAR.
 MON = '12'.
 FYEAR = FYEAR - 1.
ELSE.
 MON1 = MON.
 FYEAR1 = FYEAR.
 MON = MON - 1.
 FYEAR = FYEAR.
ENDIF.
PERFORM GET_RECORDS_FROM_DB.
*added for Month Summary on 26.4.05.
LOOP AT R_BUDAT.
 S_BUDAT-LOW = R_BUDAT-LOW.
 S_BUDAT-HIGH = R_BUDAT-HIGH.
*for Month
 P_SPMON0(4) = S_BUDAT-LOW0(4).
 P_SPMON4(2) = S_BUDAT-LOW4(2).
*for summary.
 IF Y1 = 'X'.
 LOOP AT S_BUDAT.
 S_BUDAT1-SIGN = 'I'.
 S_BUDAT1-OPTION = 'NB'.
 S_BUDAT1-LOW = S_BUDAT-LOW.
 S_BUDAT1-HIGH = S_BUDAT-HIGH.
 APPEND S_BUDAT1.
 CLEAR S_BUDAT1.
 ENDLOOP.
 ENDIF.
 IMKPFT[] = I_MKPF[].
 IMKPFT2[] = I_MKPF[].
 IMARDT[] = I_MARD[].
 IMARDHT[] = I_MARDH[].
 PERFORM MONTH_WISE.
 PERFORM PROCESS_MOVEMENTS.
 PERFORM CALCULATE_OPENING_STOCK.
 PERFORM UPDATE_NON_TRANSACTION_ITMS.
 PERFORM DELETE_EMPTY_RECORDS.
 CLEAR: IMARDHT,IMARDT,IMKPFT1,IMKPFT,I_FINAL,I_FINAL5.
 REFRESH: IMARDHT,IMARDT,IMKPFT1,I_FINAL,I_FINAL5,IMKPFT.
ENDLOOP.
CLEAR: R_BUDAT.
REFRESH: R_BUDAT.
*end of changes for month.
ENDFORM. " getdata_fg_stock
FORM MONAT_F4 *
F4-Hilfe für Monat *
FORM MONAT_F4.
DATA: BEGIN OF MF_DYNPFIELDS OCCURS 1.
 INCLUDE STRUCTURE DYNPREAD.
DATA: END OF MF_DYNPFIELDS.
DATA: MF_RETURNCODE LIKE SY-SUBRC,
 MF_MONAT LIKE ISELLIST-MONTH,
 MF_HLP_REPID LIKE SY-REPID.
FIELD-SYMBOLS: .
Wert von Dynpro lesen
GET CURSOR FIELD MF_DYNPFIELDS-FIELDNAME.
APPEND MF_DYNPFIELDS.
MF_HLP_REPID = SY-REPID.
DO 2 TIMES.
 CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 DYNAME = MF_HLP_REPID
 DYNUMB = SY-DYNNR
 TABLES
 DYNPFIELDS = MF_DYNPFIELDS
 EXCEPTIONS
 INVALID_ABAPWORKAREA = 01
 INVALID_DYNPROFIELD = 02
 INVALID_DYNPRONAME = 03
 INVALID_DYNPRONUMMER = 04
 INVALID_REQUEST = 05
 NO_FIELDDESCRIPTION = 06
 UNDEFIND_ERROR = 07.
 IF SY-SUBRC = 3.
Aktuelles Dynpro ist Wertemengenbild
 MF_HLP_REPID = 'SAPLALDB'.
 ELSE.
 READ TABLE MF_DYNPFIELDS INDEX 1.
Unterstriche durch Blanks ersetzen
 TRANSLATE MF_DYNPFIELDS-FIELDVALUE USING '_ '.
 EXIT.
 ENDIF.
ENDDO.
IF SY-SUBRC = 0.
Konvertierung ins interne Format
 CALL FUNCTION 'CONVERSION_EXIT_PERI_INPUT'
 EXPORTING
 INPUT = MF_DYNPFIELDS-FIELDVALUE
 IMPORTING
 OUTPUT = MF_MONAT
 EXCEPTIONS
 ERROR_MESSAGE = 1.
 IF MF_MONAT IS INITIAL.
Monat ist initial => Vorschlagswert aus akt. Datum ableiten
 MF_MONAT = SY-DATLO(6).
 ENDIF.
 CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
 EXPORTING
 ACTUAL_MONTH = MF_MONAT
 IMPORTING
 SELECTED_MONTH = MF_MONAT
 RETURN_CODE = MF_RETURNCODE
 EXCEPTIONS
 FACTORY_CALENDAR_NOT_FOUND = 01
 HOLIDAY_CALENDAR_NOT_FOUND = 02
 MONTH_NOT_FOUND = 03.
 IF SY-SUBRC = 0 AND MF_RETURNCODE = 0.
ASSIGN (MF_DYNPFIELDS-FIELDNAME) TO <MF_FELD>. " ==>> note 148804
<MF_FELD> = MF_MONAT.
 CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
 EXPORTING
 INPUT = MF_MONAT
 IMPORTING
 OUTPUT = MF_DYNPFIELDS-FIELDVALUE.
 COLLECT MF_DYNPFIELDS.
 CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 DYNAME = MF_HLP_REPID
 DYNUMB = SY-DYNNR
 TABLES
 DYNPFIELDS = MF_DYNPFIELDS
 EXCEPTIONS
 INVALID_ABAPWORKAREA = 01
 INVALID_DYNPROFIELD = 02
 INVALID_DYNPRONAME = 03
 INVALID_DYNPRONUMMER = 04
 INVALID_REQUEST = 05
 NO_FIELDDESCRIPTION = 06
 UNDEFIND_ERROR = 07. "<<== note 148804
 ENDIF.
ENDIF.
ENDFORM. "MONAT_F4
*& Form get_month_dates
Calculating the Month Start & End Date
FORM GET_MONTH_DATES.
IF M1 = 'X'.
 FYEAR = P_SPMON+0(4).
 MON = P_SPMON+4(2).
 CONCATENATE FYEAR MON '01' INTO R_BUDAT-LOW.
 R_BUDAT-SIGN = 'I'.
 R_BUDAT-OPTION = 'BT'.
 CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
 EXPORTING
 I_DATE = R_BUDAT-LOW
 IMPORTING
 E_DATE = R_BUDAT-HIGH.
 APPEND R_BUDAT.
 CLEAR S_BUDAT.
 REFRESH S_BUDAT.
 S_BUDAT-SIGN = 'I'.
 S_BUDAT-OPTION = 'BT'.
 S_BUDAT-LOW = R_BUDAT-LOW.
 S_BUDAT-HIGH = R_BUDAT-HIGH.
 APPEND S_BUDAT.
ELSE.
 FYEAR = P_SPMON+0(4).
 MON = P_SPMON+4(2).
 CONCATENATE FYEAR MON '01' INTO R_BUDAT-LOW.
 R_BUDAT-SIGN = 'I'.
 R_BUDAT-OPTION = 'BT'.
 CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
 EXPORTING
 I_DATE = R_BUDAT-LOW
 IMPORTING
 E_DATE = R_BUDAT-HIGH.
 APPEND R_BUDAT.
ENDIF.
ENDFORM. " get_month_dates
*& Form output_table_Check
checking for records for output
FORM OUTPUT_TABLE_CHECK .
DESCRIBE TABLE I_FINALT LINES INDEX.
IF INDEX EQ 0.
 MESSAGE I041 WITH TEXT-005.
 LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM. "OUTPUT_TABLE_CHECK
*& Form Z_TOP_OF_PAGE
for setting the details in the top of page *
has no formal paramters *
FORM Z_TOP_OF_PAGE.
DATA: V_MON(2),
V_YR(40),
V_FIN(18),
V_FIN1(48),
LOW(10),
HIGH(10).
V_MON = P_SPMON+4(2).
V_YR = P_SPMON+0(4).
FHEADER-TYP = 'H'.
FHEADER-INFO = 'Stock Register Report (FG Stock)'.
APPEND FHEADER.
CLEAR FHEADER.
*if m1 = 'X'.
CONCATENATE 'Month = ' v_mon '.' v_yr INTO v_fin.
fheader-typ = 'H'.
fheader-info = v_fin.
APPEND fheader.
CLEAR fheader.
*endif."prabhu on 18.5.5
IF D1 = 'X'.
 CLEAR S_BUDAT.
 LOOP AT S_BUDAT.
 CONCATENATE S_BUDAT-LOW6(2) '/' S_BUDAT-LOW4(2) '/'
 S_BUDAT-LOW+0(4) INTO LOW.
 CONCATENATE S_BUDAT-HIGH6(2) '/' S_BUDAT-HIGH4(2) '/'
 S_BUDAT-HIGH+0(4) INTO HIGH.
 CONCATENATE 'Date = ' LOW ' - ' HIGH INTO V_FIN1.
 FHEADER-TYP = 'H'.
 FHEADER-INFO = V_FIN1.
 APPEND FHEADER.
 CLEAR FHEADER.
 ENDLOOP.
ENDIF.
ENDFORM. " Z_TOP_OF_PAGE
*& Form Z_LAYOUT_SETTINGS
this is done for setting the properties for the layout of the *
grid *
has no formal paramters *
FORM Z_LAYOUT_SETTINGS.
FS_LAYO-ZEBRA = 'X'. " Output in Zebra pattern
FS_LAYO-DETAIL_POPUP = 'X'. " A popup window appears to give
FS_LAYO-DETAIL_TITLEBAR = TEXT-022.
FS_LAYO-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM. " Z_LAYOUT_SETTINGS
*& Form Z_ALV_EVENTS
This is used for handling the events TOP OF PAGE and the USER *
COMMAND event *
has no formal paramters *
FORM Z_ALV_EVENTS.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = FEVENTS[].
READ TABLE FEVENTS WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
 FEVENTS-FORM = 'Z_TOPOFPAGE'.
 MODIFY FEVENTS INDEX SY-TABIX.
 CLEAR FEVENTS.
ENDIF.
READ TABLE FEVENTS WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC = 0.
 FEVENTS-FORM = 'Z_USER_COMMAND'.
 MODIFY FEVENTS INDEX SY-TABIX.
 CLEAR FEVENTS.
ENDIF.
ENDFORM. "Z_ALV_EVENTS
*& Form Z_CREATE_FIELD_CATALOG
here the field catalog is created for the primary list *
no formal parameters *
FORM Z_CREATE_FIELD_CATALOG.
for the Plant
FCAT-FIELDNAME = 'WERKS'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '000005'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Plant'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material Type
FCAT-FIELDNAME = 'MTART'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '000006'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'MatTyp'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material No.
FCAT-FIELDNAME = 'MATNR'.
FCAT-KEY = 'X'.
fcat-hotspot = 'X'.
FCAT-OUTPUTLEN = '000018'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Material'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material Description
FCAT-FIELDNAME = 'MAKTX'.
FCAT-KEY = ''.
FCAT-OUTPUTLEN = '000040'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Description'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Unit of Measure
FCAT-FIELDNAME = 'MEINS'.
FCAT-KEY = ''.
FCAT-OUTPUTLEN = '03'.
FCAT-JUST = 'C'.
FCAT-SELTEXT_M = 'UOM'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'UNIT'.
APPEND FCAT.
CLEAR FCAT.
for the Plant
FCAT-FIELDNAME = 'MONTH'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '08'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'MONTH'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Opening Stock
FCAT-FIELDNAME = 'C_STK'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Opening Stock'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
fcat-do_sum = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Total Receipts
FCAT-FIELDNAME = 'TRECEP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Total Receipts'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Production
FCAT-FIELDNAME = 'PRODU'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Production'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Other Plant Receipts
FCAT-FIELDNAME = 'RECEP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Othr Plnt Recpts'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
Sales Return
FCAT-FIELDNAME = 'SAL_RET'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Sales Return'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
Total Dispatches
FCAT-FIELDNAME = 'TDISP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Total Dispatches'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.

About AVG in ALV List

Similar Messages

Maybe you are looking for