How to create blank line in alv output

Hi all,
Iam getting alv output with currency values like below
text1    20.0 10.0 30.0
text2    25.0 11.0 30.0
text3    27.0 19.0 30.0
text1    24.0 18.0 30.0
text2    27.0 16.0 30.0
text3    29.0 15.0 30.0
text1    23.0 17.0 30.0
text2    22.0 13.0 30.0
text3    21.0 14.0 30.0
and so on...
My requirement is to create blank line after text3. Since its currency field even i claer work area iam able to get 0.0.
If i use no-zero in field catalog i will be able to get blank values for all 0.0, but thats not required.
Can u help me out how to crate blank line after one set of values(text1, text2, text3) in alv display
Thanks

Hi,
If i use no-zero, then all 0.0 will be replaced by blank, but that is not required.
I want only blank line to be displayed after set of line items.
Skip doesn't help in alv. Secondly if i append blank work area i will be getting 0.0 as it is a currency field.

Similar Messages

How to insert blank lines in the ALV output.

Hi Friends,
Could any body help me out How to insert blank lines in the ALV output.?? Any Code pls...
Thank you,
Vikram.C

hi vikram
do like this
In the fieldcatalog table all the fields should be in editable mode
ie lw_fcat-edit = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_pf_status_set = 'SET_PF_STATUS'
i_callback_user_command = 'USER_COMMAND'
is_layout = lv_layout
it_fieldcat = lt_fcat[]
i_save = 'A'
is_variant = lv_variant
TABLES
t_outtab = lt_license[]
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_data
*& Form user_command
FORM user_command USING r_ucomm TYPE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE r_ucomm.
WHEN 'ADD'. "
data: lv_ind type i.
data: lv_line type i.
describe table lt_license lines lv_line.
loop at lt_license into lw_license.
lv_ind = sy-tabix.
if lv_ind = lv_line.
append initial line to lt_license.
endif.
endloop.
ENDCASE.
ENDFORM. "user_command
reward points if useful
Rohan

How to avoid blank column display in output in ALV TREE

how to avoid blank column display in output while decreasing the length of other columns in ALV Tree.
Example: please refer to BCALV_TREE_01 and see the output, then decrease the length of all columns . Then you can see a blank column appearing in screen at last, i.e in container. so how to avoid that.
Thanks for reply.
Edited by: morpeous on Jul 1, 2009 1:53 PM

Hi,
Check BCALV_TREE_02 on how to hide columns.
Thanks & Regards,
Anand Patil

CRXI Export to text - suppressed section creates blank lines

I'm using CRXI Proffesional - full version 11.5.11.1470
I have a report that uses the typical "stealth" subreport to obtain and pass info to the container, but remains invisible in preview mode. The fields in the subreport are all suppressed, the sections in the subreport are suppressed if blank and the subreport itself is suppressed when blank, the section that contains the subreport is also suppressed if blank.
This has always worked fine to get info into the container from the subreport while not creating any "white space" on the report.
Print preview and export to pdf both function just fine, omitting the blank lines.
It seems that exporting this to a text file is now creating blank lines for each occurence of the subreport.
I have seen this problem in a couple of forums but have not seen a resolution yet.
Does anybody have any idea how I can stop the exporting of suppressed blank sections ?

Good morning.
We've got something to get straight first
When you say "...from the Report Viewer. The report printed as expected on HP printer...", do you mean the viewer of the .NET app, or the viewer of the CR designer?
And version 12.0.0.683, is very old (well as far as CR is concerned anyhow ). That version is SP 1, we are now on SP 2. So that will be the place to start. Get to SP 2 which can be downloaded from here;
https://smpdl.sap-ag.de/~sapidp/012002523100009038092009E/cr2008win_sp2.exe
Ludek

How to remove blank lines in the end of list .

hi,
in a complex report ,when there are only 20 pages,and linecount is 65(2) ,in the last page only 27 lines are filled and data is completed.then blank lines are printing from 27th line to 63 line.then end of page is triggering.
so plz help me how to remove the blank lines here and immediately print the endof page.

Hi,
will this work for you.
SET BLANK LINES OFF.
These statements allow you to specify whether you want to output blank lines or not. Use SET BLANK LINES ON to output blank lines or SET BLANK LINES OFF to suppress them.
Regards
Viswanath Babu

How to create check box in ALV Reports?

how to create check box in ALV Reports?

Hi
check the report BCALV_TEST_GRID_EDITABLE
or
check this report
REPORT ZRFC346_TST.
TABLES:SFLIGHT,RL034.
TYPE-POOLS:SLIS.
INCLUDE:<ICON>,<SYMBOL>.
DATA: G_REPID          LIKE SY-REPID,
      G_FIELDCAT       TYPE SLIS_T_FIELDCAT_ALV,
      G_IT_SORT        TYPE SLIS_T_SORTINFO_ALV,
      G_LAYOUT         TYPE SLIS_LAYOUT_ALV,
      G_TABNAME_HEADER TYPE SLIS_TABNAME,
      G_TABNAME_ITEM   TYPE SLIS_TABNAME,
      G_KEYINFO        TYPE SLIS_KEYINFO_ALV,
      G_VARIANT        LIKE DISVARIANT,
      G_EXTAB          TYPE SLIS_T_EXTAB,
      I_SLIS_EXIT_BY_USER TYPE SLIS_EXIT_BY_USER.
DATA: XEVENT         TYPE SLIS_T_EVENT,
      AEVENT         TYPE SLIS_ALV_EVENT,
      VARIANT        LIKE DISVARIANT,
      LAYOUT         TYPE SLIS_LAYOUT_ALV,
      ASP_GROUP      TYPE SLIS_SP_GROUP_ALV,
      GT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      EXTAB          TYPE SLIS_T_EXTAB WITH HEADER LINE,
      XFIELD         TYPE SLIS_T_FIELDCAT_ALV,
      AFIELD         TYPE SLIS_FIELDCAT_ALV,
      G_SUCOMM      LIKE SY-UCOMM,
      G_SELFLD       TYPE SLIS_SELFIELD.
DATA: SAV_SY_REPID      LIKE SY-REPID.
CONSTANTS: CON_SFLIGHT TYPE LVC_FNAME VALUE 'SFLIGHT',
           CON_DISPLAY_FULL TYPE I VALUE 3.
Data to be displayed
DATA: BEGIN OF GT_SFLIGHT OCCURS 0.
        INCLUDE STRUCTURE SFLIGHT.
DATA:ACTIVATE(1).
DATA: END OF GT_SFLIGHT.
INITIALIZATION.
*........Initialisierung...............................................
PERFORM INITIALIZATION_RL034.
*........Field cata....................................................
PERFORM FIELD_CAT.
*........SPECIAL GROUP.................................................
PERFORM E07_SP_GROUP_BUILD USING GT_SP_GROUP[].
START-OF-SELECTION.
Selection
SELECT * FROM SFLIGHT INTO TABLE GT_SFLIGHT.
*........ALV CALL.......................................................
PERFORM ALV_CALL.
PERFORM USER_COMMAND_LOCAL USING G_SUCOMM G_SELFLD.
      FORM USER_COMMAND_LOCAL                                       *
--> G_UCOMM                                                       *
--> G_SELFIELD                                                    *
FORM USER_COMMAND_LOCAL USING G_UCOMM LIKE SY-UCOMM
                              G_SELFIELD TYPE SLIS_SELFIELD.
CASE G_UCOMM.
    WHEN 'ACT'.
ENDCASE.
ENDFORM.
      FORM ALV_CALL                                                 *
FORM ALV_CALL.
Call ABAP List Viewer (ALV)
G_LAYOUT-BOX_FIELDNAME = 'ACTIVATE'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
             EXPORTING
            I_BACKGROUND_ID         = 'ALV_BACKGROUND'
               I_BYPASSING_BUFFER                = SPACE
               I_BUFFER_ACTIVE                   = SPACE
                I_CALLBACK_PROGRAM                = SAV_SY_REPID
                I_CALLBACK_PF_STATUS_SET          = 'STATUS'
               I_CALLBACK_USER_COMMAND           = 'USER_COMMAND_LOCAL'
            I_CALLBACK_TOP_OF_PAGE            = ' '
            I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
            I_CALLBACK_HTML_END_OF_LIST       = ' '
             I_STRUCTURE_NAME                  = 'SFLIGHT'
            I_BACKGROUND_ID                   = ' '
            I_GRID_TITLE                      =
            I_GRID_SETTINGS                   =
              IS_LAYOUT                         = G_LAYOUT
              IT_FIELDCAT                       = XFIELD[]
            IT_EXCLUDING                      =
              IT_SPECIAL_GROUPS                 = GT_SP_GROUP[]
            IT_SORT                           =
            IT_FILTER                         =
             IS_SEL_HIDE                       = 'X'
            I_DEFAULT                         = 'X'
              I_SAVE                            = 'A'
            IS_VARIANT                        =
             IT_EVENTS                         = XEVENT
            IT_EVENT_EXIT                     =
            IS_PRINT                          =
            IS_REPREP_ID                      =
            I_SCREEN_START_COLUMN             = 0
            I_SCREEN_START_LINE               = 0
            I_SCREEN_END_COLUMN               = 0
            I_SCREEN_END_LINE                 = 0
            IT_ALV_GRAPHICS                   =
            IT_ADD_FIELDCAT                   =
            IT_HYPERLINK                      =
            I_HTML_HEIGHT_TOP                 =
            I_HTML_HEIGHT_END                 =
            IT_EXCEPT_QINFO                   =
          IMPORTING
            E_EXIT_CAUSED_BY_CALLER           =
            ES_EXIT_CAUSED_BY_USER            =
              TABLES
                T_OUTTAB                          = GT_SFLIGHT
          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.
      FORM status                                                   *
--> EXTAB                                                         *
FORM STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STAT' EXCLUDING EXTAB.
ENDFORM.                               " STATUS
*&      Form INITIALIZATION_RL034
      text
--> p1        text
<-- p2        text
FORM INITIALIZATION_RL034.
SAV_SY_REPID = SY-REPID.
ENDFORM.                    " INITIALIZATION_RL034
*&      Form DEFINE_EVENTS_RL034
      text
--> p1        text
<-- p2        text
FORM DEFINE_EVENTS_RL034.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 0
       IMPORTING
            ET_EVENTS   = XEVENT.
   exceptions
        list_type_wrong = 1
        others          = 2.
ENDFORM.                    " DEFINE_EVENTS_RL034
*&      Form FIELD_CAT
      text
--> p1        text
<-- p2        text
FORM FIELD_CAT.
DATA: LS_FCAT TYPE SLIS_FIELDCAT_ALV,
        L_LIN   TYPE I.
REFRESH XFIELD.
       1. per Default eingeblendete Felder                          *
*........Ikone/Symbol..................................................
CLEAR AFIELD.
DATA: LS1_FCAT TYPE SLIS_FIELDCAT_ALV,
        L_LIN1   TYPE I.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            I_STRUCTURE_NAME       = CON_SFLIGHT
            I_BYPASSING_BUFFER     = SPACE
            I_BUFFER_ACTIVE        = SPACE
       CHANGING
            CT_FIELDCAT            = XFIELD
       EXCEPTIONS
            INCONSISTENT_INTERFACE = 1
            PROGRAM_ERROR          = 2
            OTHERS                 = 3.
DESCRIBE TABLE XFIELD LINES L_LIN1.
ADD 1 TO L_LIN1.
CLEAR LS_FCAT.
LS1_FCAT-FIELDNAME = 'ACTIVATE'.
LS1_FCAT-CHECKBOX = 'X'.
LS1_FCAT-KEY       = 'X'.
LS1_FCAT-INPUT     = 'X'.
LS1_FCAT-EDIT     = 'X'.
LS1_FCAT-INTTYPE   = 'C'.
LS1_FCAT-DATATYPE = 'CHAR'.
LS1_FCAT-INTLEN    = 1.
LS1_FCAT-COL_POS   = L_LIN1.
LS1_FCAT-SELTEXT_S = LS1_FCAT-FIELDNAME.
LS1_FCAT-SELTEXT_M = LS1_FCAT-FIELDNAME.
LS1_FCAT-SELTEXT_L = LS1_FCAT-FIELDNAME.
LS1_FCAT-SP_GROUP = 'A'.
APPEND LS1_FCAT TO XFIELD.
ADD 1 TO L_LIN.
ENDFORM.                    " FIELD_CAT
FORM E07_SP_GROUP_BUILD USING E07_LT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV.
DATA: LS_SP_GROUP TYPE SLIS_SP_GROUP_ALV.
CLEAR LS_SP_GROUP.
LS_SP_GROUP-SP_GROUP = 'A'.
LS_SP_GROUP-TEXT     = 'SPECIAL'.
APPEND LS_SP_GROUP TO E07_LT_SP_GROUP.
ENDFORM.
Regards
Shiva

Displaying blank line in ALV header

How do I display a blank line in ALV header
For eg i want if i want the ALV header to display as follows
Document Datewise Report as of 31/10/2009
                                                 <-- BLANK LINE
Run On : 01/12/2009

Hi,
Are you using 'REUSE_ALV_COMMENTARY_WRITE' for displaying the header?
If yes, then I think it is not possible. Instead, use the events table to achieve it.
Use the 'REUSE_ALV_EVENTS_GET' FM to get all possible events and then modify
the events internal table to specify the form name to handle top-of-page event.
eg.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     I_LIST_TYPE           = 0
   IMPORTING
     ET_EVENTS             = V_EVENTS
* EXCEPTIONS
*    LIST_TYPE_WRONG       = 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.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
    WA_EVENT-FORM = 'TOP_OF_PAGE'.
    MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
FORM TOP_OF_PAGE.
* Use write statements to display the header data.
ENDFORM.
In write statement use '/' to go to new line. So to insert an empty line you can use something like
write : 'some text' / / 'some text' .
Hope this helps.
Regards,
Bhavesh.

How to create required field in alv?

hi friends^^
how to create required field in alv?
i don't find required option in fieldcatalog and others.
is it possible?

Source code..
PLANETYPE is key_sel = 'X'.
But does't required field...
REPORT zs32editable1 .
TYPE-POOLS : slis.
DATA : gt_sflight TYPE TABLE OF sflight.
DATA : gt_fieldcat TYPE slis_t_fieldcat_alv,
       gs_fieldcat LIKE LINE OF gt_fieldcat,
       gs_layout   TYPE slis_layout_alv.
START-OF-SELECTION.
SELECT *
    INTO CORRESPONDING FIELDS OF TABLE gt_sflight
    FROM sflight.
gs_layout-colwidth_optimize = 'X'.
gs_layout-edit = 'X'.
gs_fieldcat-fieldname = 'PLANETYPE'.
gs_fieldcat-key_sel = 'X'.
append gs_fieldcat to gt_fieldcat.
END-OF-SELECTION.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_STRUCTURE_NAME = 'SFLIGHT'
      is_layout        = gs_layout
      IT_FIELDCAT      = gt_fieldcat
    TABLES
      t_outtab         = gt_sflight
    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.

How to get check box in alv output

hi gurus
can anyone explian me how to get check box in alv output
it should not be a pop up window
i want to get in output itself
tahnk you
regards
kals.

Hi
by using rs_selfield
ty to call dynamic subroutine..
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield. "#EC CALLED
read table rs-selfield with key cond = 'X'
endform.
see the below example
REPORT Z_GET_REFRESH no standard page heading.
type-pools : slis.
tables : makt,
mara.
data : i_fieldcat type slis_t_fieldcat_alv.
CONSTANTS :
gc_refresh TYPE syucomm VALUE '&REFRESH'.
data : begin of i_makt occurs 0,
matnr like makt-matnr,
maktx like makt-maktx,
end of i_makt.
data : v_repid like sy-repid,
g_user_command type slis_formname value 'USER_COMMAND',
g_status_set type slis_formname value 'SET_PF_STATUS',
lt_event_exit TYPE slis_t_event_exit,
ls_event_exit TYPE slis_event_exit.
DATA:LC_GLAY TYPE LVC_S_GLAY.
select-options s_matnr for mara-matnr .
start-of-selection.
select matnr maktx from makt into table i_makt
where matnr in s_matnr.
end-of-selection.
Fill the fieldcatlog
perform fill_field.
Call the FM
perform call_fm.
*& Form fill_field
text
--> p1 text
<-- p2 text
FORM fill_field.
data wa_fieldcat type slis_fieldcat_alv.
clear : wa_fieldcat.
wa_fieldcat-tabname = 'I_MAKT'.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-outputlen = '18'.
wa_fieldcat-seltext_l = 'Material #'.
wa_fieldcat-col_pos = '1'.
append wa_fieldcat to i_fieldcat.
clear : wa_fieldcat.
wa_fieldcat-tabname = 'I_MAKT'.
wa_fieldcat-fieldname = 'MAKTX'.
wa_fieldcat-outputlen = '40'.
wa_fieldcat-seltext_l = 'Material Desc'.
wa_fieldcat-col_pos = '2'.
append wa_fieldcat to i_fieldcat.
ENDFORM. " fill_field
*& Form call_fm
text
--> p1 text
<-- p2 text
FORM call_fm.
v_repid = sy-repid.
LC_GLAY-EDT_CLL_CB = 'X'.
CLEAR ls_event_exit.
ls_event_exit-ucomm = gc_refresh. " Refresh
ls_event_exit-after = 'X'.
APPEND ls_event_exit TO lt_event_exit.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = v_repid
I_CALLBACK_PF_STATUS_SET = g_status_set
I_CALLBACK_USER_COMMAND = g_user_command
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS = LC_GLAY
IS_LAYOUT =
IT_FIELDCAT = i_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT = lt_event_exit
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT =
IT_HYPERLINK =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IT_EXCEPT_QINFO =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = i_makt
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. " call_fm
FORM USER_COMMAND *
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield. "#EC CALLED
data i_RSPARAMS like RSPARAMS occurs 0.
CASE R_UCOMM.
WHEN '&IC1'.
read table i_makt index rs_selfield-tabindex.
SET PARAMETER ID 'MAT' FIELD i_makt-matnr.
if not i_makt-matnr is initial.
call transaction 'MM02' and skip first screen.
endif.
when '&REFRESH'.
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
EXPORTING
CURR_REPORT = v_repid
IMPORTING
SP =
TABLES
SELECTION_TABLE = i_RSPARAMS
EXCEPTIONS
NOT_FOUND = 1
NO_REPORT = 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.
submit z_get_refresh with selection-table i_RSPARAMS.
rs_selfield-refresh = 'X'.
ENDCASE.
MOVE '&REFRESH' TO r_ucomm.
ENDFORM.
FORM set_pf_status *
FORM SET_PF_STATUS USING rt_extab TYPE slis_t_extab.
DELETE Rt_extab WHERE fcode = gc_refresh.
SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'
EXCLUDING Rt_extab.
*SET PF-STATUS 'STANDARD' EXCLUDING rt_extab.
SET TITLEBAR sy-tcode.
ENDFORM.

How to display the fields in ALV Output without using Field catalog?

How to display the fields in ALV Output without using Field catalog?
Could you pls tell me the coding?
Akshitha.

Hi,
u mean without building field catalog. is it? I that case, we can use the FM REUSE_ALV_FIELDCATALOG_MERGE.
data: itab type table of mara.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_structure_name = itab
CHANGING
ct_fieldcat = lt_fieldcat[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
*Pass that field catalog into the fillowing FM
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            i_grid_title            = 'REPORTING'
            is_layout              = gt_layout
            it_fieldcat             = lt_fieldcat[]
       tables
            t_outtab                = itab.

How to create a line type in data dictionary

How to create a line type in data dictionary?Please explain step by step?
Thanks & Regads,
Sairam

Hi,
the details abbout the line type.
The line type of a table type can be defined by:
o Specification of a type that already exists (data element,
structure, table type, table, view) whose properties are then copie
as properties of the defined table line.
o Direct type input, where data type, number of positions, and, if
required, decimal places, are entered directly.
o Specification of a reference type.
and SE11 and click on datatype and click on table type and enter the line type.
Thanks
Shiva

How to create secondary lists in ALV

Hi all,
Can u plz explain me how to create Secondary lists usingl ALV and how many secondary lists we can create.
Thanks in advance
Venkat

this is the very very simple program in HR module to demonstrate interactive ALV report.
If u have HR module implemented...just copy and paste this code and debug it...you will easily get the flow of the report...this is the simplest program..
i hope it helps...here u go......
REPORT ztej_alv_interactive.
TABLES: pa0000, pa0001.
DATA : BEGIN OF it0001 OCCURS 0,
          pernr LIKE pa0001-pernr,
          ename LIKE pa0001-ename,
       END OF it0001.
DATA : BEGIN OF it0000 OCCURS 0,
          pernr LIKE pa0000-pernr,
          begda LIKE pa0000-begda,
          endda LIKE pa0000-endda,
          massn LIKE pa0000-massn,
          massg LIKE pa0000-massg,
          aedtm LIKE pa0000-aedtm,
       END OF it0000.
TYPE-POOLS: slis.
DATA: v_repid LIKE sy-repid .
DATA: i_fieldcat TYPE slis_t_fieldcat_alv.
DATA: i_fieldcat1 TYPE slis_t_fieldcat_alv.
DATA: it_listheader TYPE slis_t_listheader.
DATA: it_listheader1 TYPE slis_t_listheader.
DATA: v_events TYPE slis_t_event,
      wa_event TYPE slis_alv_event.
DATA: alv_layout TYPE slis_layout_alv.
DATA: i_title_0001 TYPE lvc_title VALUE 'FIRST LIST DISPLAYED'.
DATA: i_title_0000 TYPE lvc_title.
DATA : temp_pernr LIKE pa0001-pernr.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
SELECTION-SCREEN SKIP.
SELECT-OPTIONS : s_pernr FOR pa0000-pernr DEFAULT '16240147'.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
v_repid = sy-repid.
PERFORM build_fieldcatlog USING i_fieldcat.
PERFORM event_call.
PERFORM populate_event.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM build_listheader USING it_listheader.
PERFORM display_alv_report.
*&      Form BUILD_FIELDCATLOG
      text
--> p1        text
<-- p2        text
FORM build_fieldcatlog USING temp_fieldcat TYPE slis_t_fieldcat_alv.
DATA : wa_temp_fieldcat TYPE slis_fieldcat_alv.
wa_temp_fieldcat-tabname = 'IT0001'.
wa_temp_fieldcat-fieldname = 'PERNR'.
wa_temp_fieldcat-seltext_m = 'Personnel Number'.
APPEND wa_temp_fieldcat TO temp_fieldcat.
CLEAR wa_temp_fieldcat.
wa_temp_fieldcat-tabname = 'IT0001'.
wa_temp_fieldcat-fieldname = 'ENAME'.
wa_temp_fieldcat-seltext_m = 'Name'.
APPEND wa_temp_fieldcat TO temp_fieldcat.
CLEAR wa_temp_fieldcat.
ENDFORM.                    " BUILD_FIELDCATLOG
*&      Form EVENT_CALL
      text
--> p1        text
<-- p2        text
FORM event_call.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
        EXPORTING
           i_list_type     = 0
        IMPORTING
           et_events       = v_events
       EXCEPTIONS
            LIST_TYPE_WRONG = 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.                    " EVENT_CALL
*&      Form POPULATE_EVENT
      text
--> p1        text
<-- p2        text
FORM populate_event.
READ TABLE v_events INTO wa_event WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc EQ 0.
    wa_event-form = 'TOP_OF_PAGE'.
    MODIFY v_events FROM wa_event TRANSPORTING form WHERE name =
wa_event-form.
ENDIF.
READ TABLE v_events INTO wa_event WITH KEY name = 'USER_COMMAND'.
IF sy-subrc EQ 0.
    wa_event-form = 'USER_COMMAND'.
    MODIFY v_events FROM wa_event TRANSPORTING form WHERE name =
wa_event-name.
ENDIF.
ENDFORM.                    " POPULATE_EVENT
*&      Form DATA_RETRIEVAL
      text
--> p1        text
<-- p2        text
FORM data_retrieval.
SELECT pernr ename
         FROM pa0001
         INTO TABLE it0001
         WHERE pernr IN s_pernr.
DELETE ADJACENT DUPLICATES FROM it0001.
ENDFORM.                    " DATA_RETRIEVAL
*&      Form BUILD_LISTHEADER
      text
     -->P_IT_LISTHEADER text
FORM build_listheader USING i_listheader TYPE slis_t_listheader.
DATA hline TYPE slis_listheader.
hline-info = 'This is Interactive ALV Program.'.
hline-typ = 'H'.
APPEND hline TO i_listheader.
ENDFORM.                    " BUILD_LISTHEADER
*&      Form DISPLAY_ALV_REPORT
      text
--> p1        text
<-- p2        text
FORM display_alv_report.
v_repid = sy-repid.
alv_layout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = v_repid
I_CALLBACK_PF_STATUS_SET          = ' '
     i_callback_user_command           = 'USER_COMMAND'
     i_callback_top_of_page            = 'TOP_OF_PAGE'
     i_grid_title                      = i_title_0001
I_GRID_SETTINGS                   =
   is_layout                         = alv_layout
     it_fieldcat                       = i_fieldcat[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
    i_default                         = 'ZLAY1'
     i_save                            = 'A'
    is_variant                        = i_variant
     it_events                         = v_events
    TABLES
      t_outtab                          = it0001
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.
REFRESH i_fieldcat.
CLEAR i_fieldcat.
REFRESH it_listheader.
CLEAR it_listheader.
ENDFORM.                    " DISPLAY_ALV_REPORT
*&      Form TOP_OF_PAGE
      text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = it_listheader
   i_logo                   =
   I_END_OF_LIST_GRID       =
ENDFORM.                    "TOP_OF_PAGE
*&      Form USER_COMMAND
      text
     -->R_UCOMM    text
     -->,          text
     -->RS_SLEFIELDtext
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
REFRESH i_fieldcat1.
REFRESH it_listheader1.
CASE r_ucomm.
    WHEN '&IC1'.
      READ TABLE it0001 INDEX rs_selfield-tabindex.
      IF sy-subrc = 0.
        temp_pernr = it0001-pernr.
        PERFORM build_fieldcatlog_0000 USING i_fieldcat1.
        PERFORM event_call_0000.
        PERFORM populate_event_0000.
        PERFORM data_retrieval_0000.
        PERFORM build_listheader_0000 USING it_listheader1.
        PERFORM display_alv_0000.
      ENDIF.
ENDCASE.
ENDFORM.                    "user_command
*&      Form BUILD_FIELDCATLOG_0000
      text
--> p1        text
<-- p2        text
FORM build_fieldcatlog_0000 USING temp_fieldcat TYPE slis_t_fieldcat_alv
DATA : wa_temp_fieldcat TYPE slis_fieldcat_alv.
wa_temp_fieldcat-tabname = 'IT0000'.
wa_temp_fieldcat-fieldname = 'BEGDA'.
wa_temp_fieldcat-seltext_m = 'From Date'.
APPEND wa_temp_fieldcat TO temp_fieldcat.
CLEAR wa_temp_fieldcat.
wa_temp_fieldcat-tabname = 'IT0000'.
wa_temp_fieldcat-fieldname = 'ENDDA'.
wa_temp_fieldcat-seltext_m = 'To Date'.
APPEND wa_temp_fieldcat TO temp_fieldcat.
CLEAR wa_temp_fieldcat.
wa_temp_fieldcat-tabname = 'IT0000'.
wa_temp_fieldcat-fieldname = 'MASSN'.
wa_temp_fieldcat-seltext_m = 'Action'.
APPEND wa_temp_fieldcat TO temp_fieldcat.
CLEAR wa_temp_fieldcat.
wa_temp_fieldcat-tabname = 'IT0000'.
wa_temp_fieldcat-fieldname = 'MASSG'.
wa_temp_fieldcat-seltext_m = 'Reason'.
APPEND wa_temp_fieldcat TO temp_fieldcat.
CLEAR wa_temp_fieldcat.
wa_temp_fieldcat-tabname = 'IT0000'.
wa_temp_fieldcat-fieldname = 'AEDTM'.
wa_temp_fieldcat-seltext_m = 'Action Run On'.
APPEND wa_temp_fieldcat TO temp_fieldcat.
CLEAR wa_temp_fieldcat.
ENDFORM.                    " BUILD_FIELDCATLOG
*&      Form EVENT_CALL_0000
      text
--> p1        text
<-- p2        text
FORM event_call_0000.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     i_list_type           = 0
   IMPORTING
     et_events             = v_events
EXCEPTIONS
LIST_TYPE_WRONG       = 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.                    " EVENT_CALL_0000
*&      Form POPULATE_EVENT_0000
      text
--> p1        text
<-- p2        text
FORM populate_event_0000.
READ TABLE v_events INTO wa_event WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc EQ 0.
    wa_event-form = 'F_TOP_OF_PAGE'.
    MODIFY v_events FROM wa_event TRANSPORTING form WHERE name =
wa_event-form.
ENDIF.
ENDFORM.                    " POPULATE_EVENT_0000
*&      Form TOP_OF_PAGE
      text
FORM f_top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = it_listheader1
   i_logo                   =
   I_END_OF_LIST_GRID       =
ENDFORM.                    "TOP_OF_PAGE
*&      Form USER_COMMAND
      text
     -->R_UCOMM    text
     -->,          text
     -->RS_SLEFIELDtext
*retreiving values from the database table ekko
FORM data_retrieval_0000.
SELECT pernr begda endda massn massg aedtm
         FROM pa0000
         INTO TABLE it0000
         WHERE pernr = temp_pernr.
ENDFORM.
*&      Form BUILD_LISTHEADER_0000
      text
     -->P_IT_LISTHEADER text
FORM build_listheader_0000 USING i_listheader1 TYPE slis_t_listheader.
DATA: hline1 TYPE slis_listheader.
hline1-typ = 'H'.
hline1-info = 'Actions Detail List'.
APPEND hline1 TO i_listheader1.
ENDFORM.                    " BUILD_LISTHEADER_0000
*&      Form DISPLAY_ALV_0000
      text
--> p1        text
<-- p2        text
FORM display_alv_0000.
CONCATENATE 'Actions For Personnel Number ' temp_pernr
               INTO i_title_0000 SEPARATED BY ' '.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = v_repid
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = 'F_USER_COMMAND'
     i_callback_top_of_page            = 'F_TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
     i_grid_title                      = i_title_0000
I_GRID_SETTINGS                   =
   is_layout                          = alv_layout
     it_fieldcat                      = i_fieldcat1[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         =
     i_save                            = 'A'
IS_VARIANT                        =
     it_events                         = v_events
    TABLES
      t_outtab                          = it0000
   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_ALV_0000
Regards,
Tejas

How to skip blank line (EOF char) at the end of the file while creating ?

Hi,
In my program I have to create a file in Text mode using OPEN DATASET statement. This file is being sent to a third party system for their processing. I came to know while creating the file using OPEN DATASET, one LF character is inserted end of the file resulting a blank line end of the file. Thus if my internal table contains 5 reocrds, in the created text file I can see 6 lines where last is a blank. My question is how to remove this blank line which is causing issue in the thirdparty system.
Here is the Code I have used.
   TRY.
Write the file in Text Mode
        OPEN DATASET lv_outpf FOR OUTPUT IN TEXT MODE ENCODING NON-UNICODE
                             WITH SMART LINEFEED
                              MESSAGE lv_msg.
        IF lv_msg IS NOT INITIAL.
          WRITE / lv_msg.
          EXIT.
        ENDIF.
        LOOP AT itab_new INTO st.
          TRANSFER st TO lv_outpf.
        ENDLOOP.
        CLOSE DATASET   lv_outpf.
      CATCH cx_root.                                    "#EC No Handler
    ENDTRY.

an effective way to do it:
open your dataset in binary mode, transfer the records but between each record transfer the LF (or CRLF according to your need)
after the last record you don't transfer the LF

How can print blank rows for XML output report..

Hi all,
I am working in XML output PO fix format report and in that report there is 3 sections. (1) Header section(2)Line section (3) Footer section. My requirement is like this, header and footer section print in all pages and line section break for next page after printing fix 15 lines in a page. And if any page has less then 15 lines then it generate remaining blank row to maintain footer position.
Please suggest me, how can i generate blank rows and break lines for page if there is more then 15 rows in Line section.
Thanks in Advance!

Hi,
<?for-each:ROW?>
<?end for-each?><xsl:variable name="cnt" select="count(//row|//ROW)" />
<?for-each:xdoxslt:foreach_number($_XDOCTX,1,15-count(ROW),1)?> <?end if?>
this will create 15 lines irrespective of you have that much rows of data in xml or not
if you want more help , drop me mail @ [email protected]

How to suppress blank line in top and end of portlet

I created one small report (portlet) however when i execute this one; i remarked there is one blank line in the top
and another one at the end of the report. How can i eliminate these lines. I need this space to be able to see
a lot of information in the same page.
I use portal 3.0.9.2

After developping a lot of portlet and read a lot of TAR on metalink and a lot of message on OTN i discovered the solution.
Wnen you create one report with the wizard there is no way to erase the first line ( header ) in the result.
Second for the last line of the results ( blank line ) ; the problem is with netsacpe 4.75 ( no problem with internet explorer )
with Netscape you will see one blank line and not with internet explorer ( confirm with Oracle support )
Anyway in the place of developping one report with the wizard ; you can copy and paste your sql statement of your report
inside one dynamic page and control all you want.
I will give you one example than i created; i hope it will help other persons like me
( we need to read a lot of thing to do something really simple with portal )
<HTML>
<HEAD>
<style type="text/css">

</style>
</HEAD>
<BODY>
<ORACLE>
begin
htp.p('<table cellspacing=0>');
for c in ( select '<a TARGET="_blank" HREF="http://'||ssdw_portal.pkg_globl.
fnc_get_server_port||'/pls/portal30/docs/FOLDER/SSDW_AIDE/'||replace(item.name,
' ','+')||'">'||item.display_name||'</a>' filename , to_char(item.updatedate,'dd/mm/yyyy hh24:mi') last_updated
FROM portal30.wwsbr_all_items item ,
portal30.wwsbr_all_folders folder
WHERE folder.name = 'SSDW_AIDE'
and folder.caid = item.caid
and folder.id = item.folder_id
and item.language = 'us'
and item.name like 'GUIDE%ANG%'
order by item.name ) loop
htp.p('<tr>');
htp.p('<td bgcolor=#CCCCCC width=325>');
htp.p('<font class="TabFontText" >');
htp.p(c.filename);
htp.p('</td>');
htp.p('</font>');
htp.p('<td bgcolor=#CCCCCC width=125>');
htp.p('<font class="TabFontText">');
htp.p(c.last_updated);
htp.p('</td>');
htp.p('</font>');
htp.p('</tr>');
end loop;
htp.p('</table>');
end;
</ORACLE>
</BODY>
</HTML>
Marc Fortin
[email protected]

How to create blank line in alv output

Similar Messages

Maybe you are looking for