Check bix in the list (report out put)

I have a field GW_FINAL-DECISION of char1 in an internal table.
After executing the selection screen the data from internal table is displayed on the list.
WRITE : GW_FINAL-DECISION AS CHECKBOX.
when I select the check box from the list, the value of the internal table is to be saved as 'X'.
please help me in this regard ASAP.

Hi,
I think its better if you use ALV to display the report output and you can handle the check box issue with user_command subroutine of Reuse_alv_grid_display function module. Its simplest approach to solve such problems.
Cheers
Phani.

Similar Messages

Runtime error alv list report out put

Runtime Errors GETWA_NOT_ASSIGNED
Date and Time 03.03.2014 13:11:56
Short text
 Field symbol has not yet been assigned.
What happened?
 Error in the ABAP Application Program
 The current ABAP program "SAPLKKBL" had to be terminated because it has
 come across a statement that unfortunately cannot be executed.
What can you do?
 Note down which actions and inputs caused the error.
 To process the problem further, contact you SAP system
 administrator.
 Using Transaction ST22 for ABAP Dump Analysis, you can look
 at and manage termination messages, and you can also
 keep them for a long time.
Error analysis
 You attempted to access an unassigned field symbol
(data segment 93).
This error may occur if
- You address a typed field symbol before it has been set with
ASSIGN
- You address a field symbol that pointed to the line of an
internal table that was deleted
- You address a field symbol that was previously reset using
UNASSIGN or that pointed to a local field that no
longer exists
- You address a global function interface, although the
respective function module is not active - that is, is
not in the list of active calls. The list of active calls
can be taken from this short dump.
to correct the error
If the error occures in a non-modified SAP program, you may be able to
find an interim solution in an SAP Note.
If you have access to SAP Notes, carry out a search with the following
keywords:
"GETWA_NOT_ASSIGNED" " "
"SAPLKKBL" or "LKKBLF99"
"GEN_FIELD_OUT2"
If you cannot solve the problem yourself and want to send an error
(data segment 93).
This error may occur if
- You address a typed field symbol before it has been set with
ASSIGN
- You address a field symbol that pointed to the line of an
internal table that was deleted
- You address a field symbol that was previously reset using
UNASSIGN or that pointed to a local field that no
longer exists
- You address a global function interface, although the
respective function module is not active - that is, is
not in the list of active calls. The list of active calls
can be taken from this short dump.
to correct the error
If the error occures in a non-modified SAP program, you may be able to
find an interim solution in an SAP Note.
If you have access to SAP Notes, carry out a search with the following
keywords:
"GETWA_NOT_ASSIGNED" " "
"SAPLKKBL" or "LKKBLF99"
"GEN_FIELD_OUT2"
If you cannot solve the problem yourself and want to send an error
Operating system..... "HP-UX"
Release.............. "B.11.23"
Hardware type........ "ia64"
Character length.... 16 Bits
Pointer length....... 64 Bits
Work process number.. 1
Shortdump setting.... "full"
Database server... "CFLDEV01"
Database type..... "ORACLE"
Database name..... "CD1"
Database user ID.. "SAPSR3"
Terminal.......... "CFINWL0115"
Char.set.... "C"
SAP kernel....... 701
created (date)... "Apr 2 2011 01:40:22"
create on........ "HP-UX B.11.23 U ia64"
Database version. "OCI_102 (10.2.0.4.0) "
Patch level. 137
Patch text.. " "
Database............. "ORACLE 10.1.0.*.*, ORACLE 10.2.0.*.*, ORACLE 11.2.*.*.*"
SAP database version. 701
Operating system..... "HP-UX B.11"
Memory consumption
 Roll.... 16192
 EM...... 20949200
 Heap.... 0
 Page.... 122880
 MM Used. 3677872
 MM Free. 509344
User and Transaction
 Client.............. 200
 User................ "GUEST"
 Language key........ "E"
 Transaction......... "SE38 "
 Transactions ID..... "5311AF68E99111BDE1000000C009C834"
 Program............. "SAPLKKBL"
 Screen.............. "SAPLKKBL 0500"
 Screen line......... 3
Information on where terminated
 Termination occurred in the ABAP program "SAPLKKBL" - in "GEN_FIELD_OUT2".
 The main program was "ZTEST_11 ".
 In the source code you have the termination point in line 2844
 of the (Include) program "LKKBLF99".
Source Code Extract
Line SourceCde
2814 gs_sfc97 = gs_out_fieldcat.
2815 when 98.
2816 assign component gs_out_fieldcat-fieldname
2817 of structure t_outtab_slave to <fs98>.
2818 gs_sfc98 = gs_out_fieldcat.
2819 when 99.
2820 assign component gs_out_fieldcat-fieldname
2821 of structure t_outtab_slave to <fs99>.
2822 gs_sfc99 = gs_out_fieldcat.
2823 endcase.
2824 endform. "field_assign_hier_slave
2825 *---------------------------------------------------------------------*
2826 * FORM GEN_FIELD_OUT2 *
2827 *---------------------------------------------------------------------*
2828 * ........ *
2829 *---------------------------------------------------------------------*
2830 form gen_field_out2.
2831 field-symbols <l_initial>.
2832
2833 case gs_out-field_colcount.
2834 when 001.
2835 if gs_out_flags-slave ne 'X'.
2836 assign <fm01> to <field>.
2837 gs_fc = gs_mfc01.
2838 else.
2839 assign <fs01> to <field>.
2840 gs_fc = gs_sfc01.
2841 endif.
2842 when 002.
2843 if gs_out_flags-slave ne 'X'.
>>>>> assign <fm02> to <field>.
2845 gs_fc = gs_mfc02.
2846 else.
2847 assign <fs02> to <field>.
2848 gs_fc = gs_sfc02.
2849 endif.
2850 when 003.
2851 if gs_out_flags-slave ne 'X'.
2852 assign <fm03> to <field>.
2853 gs_fc = gs_mfc03.
2854 else.
2855 assign <fs03> to <field>.
2856 gs_fc = gs_sfc03.
2857 endif.
2858 when 004.
2859 if gs_out_flags-slave ne 'X'.
2860 assign <fm04> to <field>.
2861 gs_fc = gs_mfc04.
2862 else.
2863 assign <fs04> to <field>.
Contents of system fields
Name Val.
Name Val.
SY-SUBRC 4
SY-INDEX 2
SY-TABIX 0
SY-DBCNT 1
SY-FDPOS 80
SY-LSIND 0
SY-PAGNO 1
SY-LINNO 4
SY-COLNO 13
SY-PFKEY STANDARD
SY-UCOMM
SY-TITLE Sales nformation
SY-MSGTY I
SY-MSGID SF
SY-MSGNO 616
SY-MSGV1 ZTEST_11
SY-MSGV2 RE
SY-MSGV3 EN
SY-MSGV4
SY-MODNO 0
SY-DATUM 20140303
SY-UZEIT 131156
SY-XPROG SAPCNVE
SY-XFORM CONVERSION_EXIT
Active Calls/Events
No. Ty. Program Include Line
 Name
 10 FORM SAPLKKBL LKKBLF99 2844
 GEN_FIELD_OUT2
 9 FORM SAPLKKBL LKKBLF99 797
 GEN_LINE_OUT
 8 FORM SAPLKKBL LKKBLF98 1359
 DATA_OUT_SIMPLE
 7 FORM SAPLKKBL LKKBLF01 457
 LIST_OUTPUT_NEW
 6 FORM SAPLKKBL LKKBLF01 6205
 FIRST_LIST_DISPLAY
 5 MODULE (PBO) SAPLKKBL LKKBLO01 11
 LIST_DISPLAY
 4 FUNCTION SAPLKKBL LKKBLU01 441
 K_KKB_LIST_DISPLAY
 3 FUNCTION SAPLSALV LSALVU07 504
 REUSE_ALV_LIST_DISPLAY
 2 FORM ZTEST_11 ZTEST_11 181
 DISPLAY
 1 EVENT ZTEST_11 ZTEST_11 103
 START-OF-SELECTION
Chosen variables
Name
Val.
 10 Ty. FORM
e GEN_FIELD_OUT2
SFC22
0000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000
0000222222222222222222222222222222222222222222222222222
0000000000000000000000000000000000000000000000000000000
OUT-FIELD_COLCOUNT
2
0000
0002
UMMY$$
0000
0000
2222
0000
REPID
SAPLKKBL
0000000000000000000000000000000000000000
0000000000000000000000000000000000000000
5454444422222222222222222222222222222222
310CBB2C00000000000000000000000000000000
OUT_FLAGS-SLAVE
0
 0
 2
 0
PACE
 0
 0
 2
 0
FM01>
 0000
 0000
 2222
 0000
FIELD>
 0000
 0000
 2222
 0000
S_FC
 ####BSARK 1
 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 0000454542222222222222222222222222322222222222222222222222222222222222222222222222222222222222
 01012312B0000000000000000000000000100000000000000000000000000000000000000000000000000000000000
S_MFC01
 ####BSARK 1
 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000

this is a report n im getiing runtime error Runtime Errors GETWA_NOT_ASSIGNED give the solution
TABLES : VBAK , VBAP , KNA1.
TYPE-POOLS : SLIS.
TYPES : BEGIN OF TY_VBAP,
 matnr type matnr,
 vbeln type vbeln, " order no
 ARKTX type ARKTX, "item name
 KWMENG type KWMENG, " order qua.
 audat type audat, " SD document item date (incoming or outgoing date)
 posnr type posnr,
 END OF TY_VBAP.
TYPES : BEGIN OF TY_KNA1,
 NAME1 TYPE NAME1,
* KUNNR TYPE KUNNR,
 END OF TY_KNA1.
TYPES : BEGIN OF TY_VBAK,
 VTWEG type VTWEG, " Distribution Channel
 BSARK type BSARK, "Customer purchase order type
 END OF TY_VBAK.
TYPES : BEGIN OF TY_FINAL,
 matnr type VBAP-matnr,
 vbeln type VBAP-vbeln, " order no
 ARKTX type VBAP-ARKTX, "item name
 KWMENG type VBAP-KWMENG, " order qua.
 audat type VBAP-audat, " SD document item date (incoming or outgoing date)
 posnr type VBAP-posnr,
 VTWEG type VBAK-VTWEG, " Distribution Channel
 BSARK type VBAK-BSARK, "Customer purchase order type
 NAME1 TYPE KNA1-NAME1,
* KUNNR TYPE KNA1-KUNNR,
 END OF TY_FINAL.
DATA : IT_VBAP TYPE TABLE OF TY_VBAP,
 IT_VBAK TYPE TABLE OF TY_VBAK,
 IT_KNA1 TYPE TABLE OF TY_KNA1,
 IT_FINAL1 TYPE TABLE OF TY_FINAL,
 IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : WA_VBAP LIKE LINE OF IT_VBAP,
 WA_VBAK LIKE LINE OF IT_VBAK,
 WA_KNA1 LIKE LINE OF IT_KNA1,
 WA_FINAL LIKE LINE OF IT_FINAL1,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
INITIALIZATION.
SELECTION-SCREEN BEGIN OF BLOCK BL WITH FRAME TITLE TEXT-001.
 SELECT-OPTIONS :
 SO_NO FOR VBAP-VBELN,
 M_NO FOR VBAP-MATNR,
 SO_DATE FOR VBAP-AUDAT OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BL.
 START-OF-SELECTION.
 SELECT VBELN MATNR AUDAT ARKTX KWMENG POSNR
 FROM VBAP INTO CORRESPONDING FIELDS OF TABLE IT_FINAL1 WHERE VBELN IN SO_NO
 AND MATNR IN M_NO
 AND AUDAT IN SO_DATE.
 SELECT NAME1 FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE IT_FINAL1 .
 LOOP AT IT_FINAL1 INTO WA_FINAL.
 SELECT SINGLE name1 FROM kna1 INTO WA_FINAL-name1 WHERE KUNNR = WA_FINAL-name1.
 MODIFY IT_FINAL1 FROM WA_FINAL TRANSPORTING NAME1.
 ENDLOOP.
SELECT VTWEG BSARK FROM VBAK INTO CORRESPONDING FIELDS OF TABLE IT_FINAL1.
* SELECT VTWEG BSARK FROM VBAK INTO CORRESPONDING FIELDS OF TABLE IT_VBAK
* FOR ALL ENTRIES IN IT_FINAL1
* WHERE VTWEG = IT_FINAL1-VTWEG
* AND BSARK = IT_FINAL1-BSARK.
 LOOP AT IT_FINAL1 INTO WA_FINAL.
 READ TABLE IT_VBAK INTO WA_VBAK WITH KEY VTWEG = WA_FINAL-VTWEG.
 READ TABLE IT_VBAK INTO WA_VBAK WITH KEY BSARK = WA_FINAL-BSARK.
 IF SY-SUBRC EQ 0.
 WA_FINAL-VTWEG = WA_VBAK-VTWEG.
 WA_FINAL-BSARK = WA_VBAK-BSARK.
 ENDIF.
 MODIFY IT_FINAL1 FROM WA_FINAL TRANSPORTING VTWEG BSARK.
 ENDLOOP.
 PERFORM BUILD.
 PERFORM DISPLAY.
*& Form BUILD
* text
* --> p1 text
* <-- p2 text
form BUILD .
*CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = '1'.
WA_FIELDCAT-FIELDNAME = 'BSARK'.
WA_FIELDCAT-SELTEXT_L = 'Order type'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = '2'.
WA_FIELDCAT-FIELDNAME = 'AUFNR'.
WA_FIELDCAT-SELTEXT_L = 'Order number'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = '3'.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-SELTEXT_L = 'Line No.'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = '4'.
WA_FIELDCAT-FIELDNAME = 'VTWEG'.
WA_FIELDCAT-SELTEXT_L = 'Dis Channel'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = '5'.
WA_FIELDCAT-FIELDNAME = 'audat'.
WA_FIELDCAT-SELTEXT_L = 'Order Date'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = '6'.
WA_FIELDCAT-FIELDNAME = 'audat'.
WA_FIELDCAT-SELTEXT_L = 'delivey date'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = '7'.
WA_FIELDCAT-FIELDNAME = 'name1'.
WA_FIELDCAT-SELTEXT_L = 'Name'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = '8'.
WA_FIELDCAT-FIELDNAME = 'ARKTX'.
WA_FIELDCAT-SELTEXT_L = 'Iem Name'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = '9'.
WA_FIELDCAT-FIELDNAME = 'KWMENG'.
WA_FIELDCAT-SELTEXT_L = 'Order quantitye'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
endform. " BUILD
*& Form DISPLAY
* text
* --> p1 text
* <-- p2 text
form DISPLAY .
 CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = sy-repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_STRUCTURE_NAME =
* IS_LAYOUT =
 IT_FIELDCAT = IT_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 =
* 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
* IR_SALV_LIST_ADAPTER =
* IT_EXCEPT_QINFO =
* I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = IT_FINAL1.
* 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

Hi gurus in ALV how to edit the fields on out put list

hi gurus in ALV how to edit the fields on out put list

hi
REPORT ZSB_ALV_EDITABLE_SAMPLE.
TABLES: SFLIGHT.
DATA: gc_container TYPE scrfname VALUE 'LIST_AREA',
gc_custom_container TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
gc_grid TYPE REF TO CL_GUI_ALV_GRID,
gs_layout TYPE LVC_S_LAYO,
gt_fieldcat TYPE LVC_T_FCAT.
DATA: ok_code TYPE SY-UCOMM.
DATA: gt_outtab TYPE TABLE OF SFLIGHT.
*DYNPRO
CALL SCREEN 100.
*& Module STATUS_0100 OUTPUT
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '100'.
CREATE OBJECT gc_custom_container
EXPORTING
container_name = gc_container
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6.
CREATE OBJECT gc_grid
EXPORTING
i_parent = gc_custom_container
EXCEPTIONS
error_cntl_create = 1
error_cntl_init = 2
error_cntl_link = 3
error_dp_create = 4
OTHERS = 5 .
PERFORM prepare_field_catalog CHANGING gt_fieldcat .
PERFORM prepare_layout CHANGING gs_layout .
PERFORM get_alv_display.
ENDMODULE.
*& Module USER_COMMAND_0100 INPUT
MODULE USER_COMMAND_0100 INPUT.
OK_CODE = SY-UCOMM.
IF OK_CODE = 'BACK'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR OK_CODE.
ENDIF.
ENDMODULE.
FORM prepare_field_catalog CHANGING gt_fieldcat TYPE LVC_T_FCAT.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
I_BUFFER_ACTIVE =
I_STRUCTURE_NAME = 'SFLIGHT'
I_CLIENT_NEVER_DISPLAY = 'X'
I_BYPASSING_BUFFER =
I_INTERNAL_TABNAME =
CHANGING
ct_fieldcat = gt_fieldcat[].
ENDFORM.
FORM prepare_layout changing p_gs_layout TYPE lvc_s_layo.
p_gs_layout-zebra = 'X'.
p_gs_layout-edit = 'X'.
ENDFORM. " prepare_layout
FORM get_alv_display .
SELECT * FROM sflight INTO TABLE gt_outtab UP TO 10 ROWS.
CALL METHOD gc_grid->set_table_for_first_display
EXPORTING
I_STRUCTURE_NAME = 'SFLIGHT'
IS_LAYOUT = gs_layout
CHANGING
it_outtab = gt_outtab
IT_FIELDCATALOG = gt_fieldcat
ENDFORM. " get_alv_display

I wish to generate reports from the database an out put it but i need to enter a date from and to ina html input box

i wish to generate reports from the database an out put it
but i need to enter a date from and to ina html input box
in the input box a data of range will be input from a start
to latest
latest being the default as today's date.
any help tips snipplets, concepts , turot=rails.
thanks

easycfm.com has tutorials for people who are brand new.
If you don't know much about sql, I have heard good things
about the book, Teach Yourself SQL in 10 Minutes by Ben
Forta.

Downloading the report out put for wchich split conatiner is used

hi friends i used split container for my report out put .here iam displaying two alvs in the two parts of the conainer.
i put some heading on the container in one box, is it possible to download all the out put into one excel file.

Hi sudheer ,
There is no standart functionality for this. You need to code for your custom excel output.

Getting report out put in another language (other than english).

Hi all,
can any one help me out in getting report out put in proper language (english).
actually i am running my layout through wizard.it show in english at report level but when i publish with oracle application it showing the out in another fassion.
please kindly help me out in this issue.

In the language preference panel of the system preferences?
LN

How to add storage location in the MBBS transaction out put

Hi experts,
I need to add the storage location in the MBBS Transaction report
out put . what will be the procedure. Is there any standard settings or else I have to copy the program. Plz help me.
Thanks&Regards,
Srinivasa rao.V

I've been able to store the contents of my camcorder on the Mac's HD. I've tried importing the clips from there and get the same result, whether I try to import one or several clips at once, it replies with the same error message as to the missing storage location/instructions. Interestingly, it will nonetheless import the first (or only) one of the clips that I highlight on the import screen.
When you suggest dragging the files, from where do you mean? The clips per se don't appear in the finder, but only on the import page. The finder show only various fragmented files that aren't complete clips (eg. separate video and index, even sound files), which is too much of a pain to deal with...
It's true that my original iMovie library was created from an upgrade, but I have since deleted the contents and attempted to reload the clips. Are you suggesting deleting the library completely and starting again, or should I just try creating another event and using that? Don't see why that shoudl work better than "updated projects", but perhaps it's worth a try...
Thanks again

How to Save Background job report out put in local / Network Drive?

Hello Techies,
How to Save Background job report out put in local / Network Drive.
Actually we have option to send mail aftr complete but i need to save in local drive or network drive .

Hi ,
Background job runs in application server , and your local /network drive is basically presentation server. So you cant save it in local /network drive from the job itself. But to download files, you can write the files to the application server using DATASET, in the background and then use the transaction CG3Y in the foreground to download the file.

Download the report out put.

how to down load the report output.

Hai Shyam,
After getting output,At the List you have an option called:
LIST>SAVE/SEND>FILE and then choose the format that you want to save the report output.
Hope now you do this.
Reward points if it helps you.
Regds,
Rama chary.Pammi

Report Out put by Push Button ???

Hi SAP-ABAP Experts .
Boss Please suggest me that i have to create a Screen in which only one Push Buton ,
As user Click this Push Button , a report should run and give it's output , the point is how selection screen will get a
perticular input when user will click this Push Button .
How to do this Boss .?
For Ex : program's Selection Screen has two input parameters
                                                         A = 5
                                                         B = 4
                              output of the report : C = 10 .
Requirement is when user click Puch Button , it will get out put C = 10 .
My Best Regards : rajneesh .

Hi,
Use Module pool program for this.
SAP ABAP Tutorial: Module Pool Programming. Part 2
Once the program 'ZSALESORDSCREEN' is created Saved and Activated, run Transaction SE51.
Enter screen number '9000'
Screen numbers can be up to 4 characters long, all of which must be digits. Screen numbers from 9000 are reserved for customer-specific screens.
In the Screen Painter enter a short Description and Activate the screen.
Once this is done you will be presented with a screen that will have three tabs, namely Attributes/Element List/Flow Logic
Click on Element List and type Ok_Code and Activate.
Now click on Flow Logic.
You should see the following code in the Flow Logic.
PROCESS BEFORE OUTPUT.
MODULE STATUS_9000.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_9000.
Create MODULE STATUS_9000 by double clicking on it. The following code will be automatically created.
INCLUDE ZSALESORDERTOP                          .                      "
INCLUDE ZSALESORDERO01                        .                    *
INCLUDE ZSALESORDERI01                          .                    *
INCLUDE ZSALESORDERF01                          .                    *
*&      Module STATUS_9000 OUTPUT
      text
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_9000 OUTPUT
Uncomment the following code.
SET PF-STATUS 'ZSALES'. -
Menu Bar for the custom Sales Order Screen.
SET TITLEBAR 'ZSL'.       -
Title.
Give appropriate names to PF-STATUS and TITLE BAR. Once the code is uncommented and the appropriate names are given. Double click on the name ZSALES. Once you see the prompt click on create object.
You will see the following three options in the resulting screen.
                                                                                Menu bar                                     Status for Sales Order Screen
Application toolbar                      Status for Sales Order Screen
Function keys                              Status for Sales Order Screen
Click on the Function Keys Drop Down Box. You will see the Standard Tool Bar with Icons that you normally see in the SAP Screen.
Enter the following values in the empty fields.
Standard Toolbar
Ente     SAVE     BACK     EXIT     CANCEL    PRINT     FIND     FINDNEXT   FIRSTPAGE PREVP     NEXT    LAST
Activate the PF-STATUS.
You will be prompted to enter the Function Text and Info Text for the button Enter.
Please enter the following values.
Function Text   'Ente'
Info Text          'Enter'
Execute Transaction SE80 and Activate the complete program by right clicking on it.
We will now create a transaction code for our program. To create a transaction code right click on the main program and from the pop-up menu select Create-----Transaction.
In the dialog box enter the following values.
Transaction Code     'ZSALESORD'
Short Description     'Create Sales Order'
And Click on Save.
You will now be asked to enter Program name and Screen Number. Enter the following values.
Program         ZSALESORDSCREEN
Screen            9000
Save and Activate the Program
Now we need to enter code to create the Sales order. We also need to create the Screen Elements.
In transaction SE80 in the left pane click on Screens and then double click on 9000.
Now from the menu click on LAYOUT button.
We need to create Labels and Text Boxes for the following fields.
Filed (Label Display)          Label Name              TextBox Name         Def Length
Order Type                           lblordtyp                     txtordtyp                               2
Sales Org                             lblsalesorg                  txtsalesorg                            4
Distribution Channel            lbldistchnl                   txtdistchnl                             2
Division                                lbldiv                           txtdiv                                    2
Sold-to Party                        lblsoldto                     txtsoldto                            10
Ship-to Party                        lblshipto                      txtshipto                            10
Purchase Ord                       lblpurchord                 txtpurchord                        10
Material                                lblmat                          txtmat                                18
Quantity                               lblqty                           txtqty                                 13
We also need to create a command button as follows
Label                                 Name
Create Order                     lblcreateord
We will now look at the property box which is displayed after double clicking on each screen element.
Order Type (Label)
                   Name                  lblordtyp
                   Text                    Order_Type
Order Type (Text Box)
                   Name                  txtordtyp
                   Text
                   Def. Length         2
Similarly fill the Property box for other fileds
Important
Property Box for Command Button in this case the Function Code is important
Create Order
                           Name                  cmdord
                           Text                    Create Order
                           Fct Code             ORDE

Report out put to Excel file

Hi,
Please help me in this requirement.
Is there any option to get the out put of report 6i out put to excel format file.

Its not possible to export data directly from 6i to excel but you can export in text file and then open it in excel it will open very easily but keep it in you mind first eliminate all report groups.
and
There is a trick to capture Oracle Reports output (text output) into a excel sheet.
Basic Steps :
1) Set the output format for the report to XML
2) Run the report to generate output.
3) Save the output file locally as a XML file.
4) Open the file using MS Excel.
5) To make it more beautiful, you may use a MS Excel Template
and read below may be this will be helpful to u
http://kr.forums.oracle.com/forums/thread.jspa?threadID=853876
Reports 6i Matrix Output in Excel Format

Csv report out put problem

am trying to generate delimited format report on command prompt.
out put is to huge and it gives error . To over come this when I turned page break to yes the report will be generated successfully but the out put number of rows are being doubled.
suppose initially I am getting 100 rows , With page break set to yes the out put in
report csv format will be 200

Its not possible to export data directly from 6i to excel but you can export in text file and then open it in excel it will open very easily but keep it in you mind first eliminate all report groups.
and
There is a trick to capture Oracle Reports output (text output) into a excel sheet.
Basic Steps :
1) Set the output format for the report to XML
2) Run the report to generate output.
3) Save the output file locally as a XML file.
4) Open the file using MS Excel.
5) To make it more beautiful, you may use a MS Excel Template
and read below may be this will be helpful to u
http://kr.forums.oracle.com/forums/thread.jspa?threadID=853876
Reports 6i Matrix Output in Excel Format

Report Out Put

Hi All
I want the out put of a report in DOC file so that user can make changes in that report and then can print. this one is the requirement. but using a reports 9i the out put can be in PDF and HTML file. is this one possible that i can get the out put in DOC file. if yes can any one give me a hint how i can implement.
Thanks in Advance

thanks its working. but when i am trying to open RTF file every time it appear a dialog box where i have to mention the target that i want to open in MS WORD or note pad. etc. may be because when i am using the command
WEBS('/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)|| '?'||'server='|| :global.reportserver ,'_blank');
there is no extension. so it ask me every time. so how i have to fix this that if mention my Report Destination Format to RTF is should be opened in MS Word.
Thanks

When I sort by artist, the list is out of order

I just started importing my music into Itunes one artist at a time. Everything was going good when I put in my artists that have numbers at the beginning of their name. But when I started with my Artist whose name's begin with A, they are placed above the number artists. Is this how Itunes is or how can I correct this? When I have used other programs artists with names that have numbers in them were always at the top. Here is a picture to help further understand my problem. Any help would be much appreciated.
http://i.imgur.com/aVuqq.jpg
[IMG]http://i.imgur.com/aVuqq.jpg[/IMG]

iTunes drops leading articles ("a", "an", "the" or local equivalents) so "The Beatles" gets sorted as "Beatles". It also places non-alpha characters last instead of first. Numerics are sorted alphabetically not by numeric value. This means numbers are not sorted in ascentding order. e.g. 1,112,25,200,3,4. I haven't checked exhaustively but it looks like leading symbols are now ignored so you can't use the old trick of adding a "!" at the beginning to force something to the top of the list.
You can tweak the order of things by adjusting the sort fields, Sort Artist, Sort Album Artist, etc. To make 112 appear first you could give them a Sort Album Artist of, for example, "AAA 112". To sort numeric items in value order you need to edit each one and create a sort value with an appropriate number of leading zeros. Currently I use 4 digits for Sort Artist & Sort Album Artist, 6 digits for Sort Album and don't bother to adjust Sort Name.
tt2

Creation of check boxes in the ALV report

Hi All,
 With all your support i'm gaining more knowledge, thank's for that,
in my ALV report i want to create a check boxes if the check boxs are elected and processed then the particular records is going to disappear,
How can we do this,
Thanks & Regards
Krishna

hi,
i have done this one.please check my code.
TYPE-POOLS : slis.
TYPES : BEGIN OF st_ekko,
 ebeln TYPE ekko-ebeln, "Purchasing Document Number
 bstyp TYPE ekko-bstyp, "Purchasing Document Category
 bsart TYPE ekko-bsart, "Purchasing Document Type
 aedat TYPE ekko-aedat, "record created on
 ernam TYPE ekko-ernam, "Person who Created the Object
 check(1),
 END OF st_ekko.
TYPES : BEGIN OF st_ekpo,
 ebeln TYPE ekko-ebeln,
 ebelp TYPE ekpo-ebelp, "Item Number of Purchasing Document
 ematn TYPE ekpo-ematn, "Material number
 matkl TYPE ekpo-matkl, "Material group
 netpr TYPE ekpo-netpr, "Net price in purchasing document
 END OF st_ekpo.
TYPES : BEGIN OF st_ebeln,
 ebeln TYPE ekpo-ebeln,
 END OF st_ebeln.
TYPES : BEGIN OF st_eine,
 ebeln TYPE ekko-ebeln,
 ekorg TYPE eine-ekorg,
 ekgrp TYPE eine-ekgrp,
 END OF st_eine.
TYPES : BEGIN OF st_check,
 check(1),
 END OF st_check.
DATA : it_ekpo TYPE STANDARD TABLE OF st_ekpo,
 it_ekko TYPE STANDARD TABLE OF st_ekko,
 wa_ekko LIKE LINE OF it_ekko,
 it_fieldcat TYPE slis_t_fieldcat_alv,
 wa_fieldcat LIKE LINE OF it_fieldcat,
 wa_layout TYPE slis_layout_alv,
 it_events TYPE slis_t_event,
 st_event LIKE LINE OF it_events,
 it_listheadr TYPE slis_t_listheader ,
 wa_listheadr LIKE LINE OF it_listheadr,
 st_printparams TYPE slis_print_alv,
 it_sortinfo TYPE slis_t_sortinfo_alv,
 wa_sortinfo LIKE LINE OF it_sortinfo,
 it_ekposortinfo TYPE slis_t_sortinfo_alv,
 wa_ekposortinfo LIKE LINE OF it_ekposortinfo,
 it_filter TYPE slis_t_filter_alv,
 it_ebeln TYPE STANDARD TABLE OF st_ebeln,
 it_eine TYPE STANDARD TABLE OF st_eine,
 wa_eine TYPE st_eine,
 it_popup TYPE STANDARD TABLE OF st_eine,
 wa_popup TYPE st_eine,
 it_check TYPE STANDARD TABLE OF st_check,
 wa_check TYPE st_check.
DATA : v_ebeln TYPE ekko-ebeln.
 SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE tit.
SELECT-OPTIONS: so_ebeln FOR v_ebeln OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b.
 INITIALIZATION
INITIALIZATION.
tit = text-000.
 AT SELECTION-SCREEN ON
AT SELECTION-SCREEN ON so_ebeln.
PERFORM validate_ebeln.
 START-OF-SELECTION
START-OF-SELECTION.
PERFORM get_ekko_data.
PERFORM get_eine_data.
 END-OF-SELECTION
END-OF-SELECTION.
PERFORM populate_fieldcat1.
PERFORM populate_layout.
PERFORM get_eventlist.
PERFORM get_ekkosortinfo.
PERFORM ekkodisplay_onalv.
*& Form POPULATE_FIELDCAT1
FORM populate_fieldcat1.
wa_fieldcat-fieldname = 'EBELN'.
wa_fieldcat-seltext_l = text-004.
wa_fieldcat-no_zero = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'BSTYP'.
wa_fieldcat-seltext_l = text-005.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'BSART'.
wa_fieldcat-seltext_l = text-006.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'AEDAT'.
wa_fieldcat-seltext_l = text-007.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'ERNAM'.
wa_fieldcat-seltext_l = text-008.
APPEND wa_fieldcat TO it_fieldcat.
ENDFORM. "POPULATE_FIELDCAT1
*& Form populate_fieldcat2
FORM populate_fieldcat2 .
CLEAR wa_fieldcat.
CLEAR it_fieldcat.
REFRESH it_fieldcat.
wa_fieldcat-fieldname = 'EBELN'.
wa_fieldcat-seltext_l = text-004.
wa_fieldcat-hotspot = 'X'.
wa_fieldcat-no_zero = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'EBELP'.
wa_fieldcat-seltext_l = text-009.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'EMATN'.
wa_fieldcat-seltext_l = text-010.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'MATKL'.
wa_fieldcat-seltext_l = text-011.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'NETPR'.
wa_fieldcat-seltext_l = text-012.
wa_fieldcat-datatype = 'CURR'. "Obligatory to perform SUM
wa_fieldcat-do_sum = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
ENDFORM. "populate_fieldcat2
*& Form GET_EVENTLIST
FORM get_eventlist.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = it_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 it_events WITH KEY name = slis_ev_pf_status_set INTO st_event.
IF sy-subrc EQ 0.
 st_event-form = 'SET_PF_STATUS1'.
 APPEND st_event TO it_events.
 CLEAR st_event.
ENDIF.
READ TABLE it_events WITH KEY name = slis_ev_end_of_page INTO st_event.
IF sy-subrc EQ 0.
 st_event-form = 'END_OF_PAGE'.
 APPEND st_event TO it_events.
 CLEAR st_event.
ENDIF.
ENDFORM. "GET_EVENTLIST
*& Form ekpodisplay_onalv
FORM ekpodisplay_onalv .
IF it_ekpo[] IS INITIAL.
 MESSAGE 'NO DATA FOUND' TYPE 'I'.
ELSE.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 i_callback_pf_status_set = 'SET_PF_STATUS'
 i_callback_user_command = 'AT_USER_COMMAND1'
 i_callback_top_of_page = 'TOP_OF_PAGE'
 I_CALLBACK_HTML_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_END_OF_LIST = ' '
 I_STRUCTURE_NAME = I_STRUCTURE_NAME
 I_BACKGROUND_ID = ' '
 I_GRID_TITLE = I_GRID_TITLE
 I_GRID_SETTINGS = I_GRID_SETTINGS
 is_layout = wa_layout
 it_fieldcat = it_fieldcat
 IT_EXCLUDING = IT_EXCLUDING
 IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS
 it_sort = it_ekposortinfo[]
 IT_FILTER = IT_FILTER
 IS_SEL_HIDE = IS_SEL_HIDE
 I_DEFAULT = 'X'
 I_SAVE = ' '
 IS_VARIANT = IS_VARIANT
 it_events = it_events
 IT_EVENT_EXIT = IT_EVENT_EXIT
 IS_PRINT = IS_PRINT
 IS_REPREP_ID = IS_REPREP_ID
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 I_HTML_HEIGHT_TOP = 0
 I_HTML_HEIGHT_END = 0
 IT_ALV_GRAPHICS = IT_ALV_GRAPHICS
 IT_HYPERLINK = IT_HYPERLINK
 IT_ADD_FIELDCAT = IT_ADD_FIELDCAT
 IT_EXCEPT_QINFO = IT_EXCEPT_QINFO
 IR_SALV_FULLSCREEN_ADAPTER = IR_SALV_FULLSCREEN_ADAPTER
IMPORTING
 E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER
 ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER
 TABLES
 t_outtab = it_ekpo
 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.
ENDFORM. "ekpodisplay_onalv
*& Form SET_PF_STATUS1
FORM set_pf_status1 USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'MENU' excluding rt_extab. "Copy from SALV .
ENDFORM. "SET_PF_STATUS1
*& Form SET_PF_STATUS
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'STANDARD' excluding rt_extab. "Copy from SALV .
ENDFORM. "SET_PF_STATUS
*& Form AT_user_command
FORM at_user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
CASE r_ucomm.
 WHEN '&IC1'.
 IF rs_selfield-fieldname EQ 'EBELN'.
 READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
 SELECT ebeln ebelp ematn matkl netpr
 FROM ekpo
 INTO TABLE it_ekpo
 WHERE ebeln EQ wa_ekko-ebeln.
 PERFORM populate_fieldcat2.
 PERFORM populate_layout2.
 PERFORM get_ekposortinfo.
 PERFORM ekpodisplay_onalv.
 ELSE.
 MESSAGE i020(z50871msg) WITH text-013.
 ENDIF.
 WHEN 'SE16'.
 CALL TRANSACTION 'SE16'.
 WHEN 'SE37'.
 CALL TRANSACTION 'SE37'.
 WHEN 'DISP'.
 PERFORM get_popupdata.
 PERFORM get_popupfcat.
 PERFORM display_popup.
ENDCASE.
ENDFORM. "AT_user_command
*& Form TOP_OF_PAGE
FORM top_of_page.
REFRESH it_listheadr.
wa_listheadr-typ = 'H'.
wa_listheadr-info = text-001.
APPEND wa_listheadr TO it_listheadr.
CLEAR wa_listheadr.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = it_listheadr[]
 i_logo = 'ENJOYSAP_LOGO'. "From OAER transaction
ENDFORM. "TOP_OF_PAGE
*& Form build_print_params
FORM build_print_params.
st_printparams-reserve_lines = '3'. "Lines reserved for footer
st_printparams-no_coverpage = 'X'.
ENDFORM. "build_print_params
*& Form end_of_page
FORM end_of_page.
REFRESH it_listheadr.
wa_listheadr-typ = 'H'.
wa_listheadr-info = sy-pagno.
APPEND wa_listheadr TO it_listheadr.
CLEAR wa_listheadr.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = it_listheadr[].
ENDFORM. "end_of_page
*& Form GET_EKPOSORTINFO
FORM get_ekposortinfo.
wa_ekposortinfo-up = 'X'.
wa_ekposortinfo-spos = 1.
wa_ekposortinfo-fieldname = 'EBELP'.
wa_ekposortinfo-tabname = 'EKPO'.
APPEND wa_ekposortinfo TO it_ekposortinfo.
CLEAR wa_ekposortinfo.
wa_ekposortinfo-up = 'X'.
wa_ekposortinfo-spos = 2.
wa_ekposortinfo-fieldname = 'EMATN'.
wa_ekposortinfo-tabname = 'EKPO'.
APPEND wa_ekposortinfo TO it_ekposortinfo.
CLEAR wa_ekposortinfo.
ENDFORM. "GET_EKPOSORTINFO
*& Form POPULATE_LAYOUT
FORM populate_layout.
wa_layout-colwidth_optimize = 'X'. "column width
wa_layout-zebra = 'X'.
wa_layout-no_hline = 'X'.
wa_layout-no_vline = 'X'.
wa_layout-cell_merge = 'X'.
wa_layout-box_fieldname = 'CHECK'.
wa_layout-box_tabname = 'IT_EKKO'.
wa_layout-window_titlebar = 'PURCHASE ORDER HEADER DETAILS'.
ENDFORM. "POPULATE_LAYOUT
*& Form get_EKKOsortinfo
FORM get_ekkosortinfo.
wa_sortinfo-up = 'X'.
wa_sortinfo-spos = 1.
wa_sortinfo-fieldname = 'EBELN'.
wa_sortinfo-tabname = 'EKKO'.
APPEND wa_sortinfo TO it_sortinfo.
CLEAR wa_sortinfo.
wa_sortinfo-up = 'X'.
wa_sortinfo-spos = 2.
wa_sortinfo-fieldname = 'BSTYP'.
wa_sortinfo-tabname = 'EKKO'.
APPEND wa_sortinfo TO it_sortinfo.
CLEAR wa_sortinfo.
wa_sortinfo-up = 'X'.
wa_sortinfo-spos = 3.
wa_sortinfo-fieldname = 'AEDAT'.
wa_sortinfo-tabname = 'EKKO'.
APPEND wa_sortinfo TO it_sortinfo.
CLEAR wa_sortinfo.
ENDFORM. "get_EKKOsortinfo
*& Form EKKODISPLAY_ONALV
FORM ekkodisplay_onalv.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 i_callback_pf_status_set = 'SET_PF_STATUS1'
 i_callback_user_command = 'AT_USER_COMMAND'
 is_layout = wa_layout
 it_fieldcat = it_fieldcat
 it_sort = it_sortinfo[]
 it_filter = it_filter
 it_events = it_events[]
 TABLES
 t_outtab = it_ekko[]
 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. "EKKODISPLAY_ONALV
*& Form validate_ebeln
FORM validate_ebeln.
SELECT ebeln
 FROM ekpo
 INTO TABLE it_ebeln
 WHERE ebeln IN so_ebeln.
IF sy-subrc NE 0.
 MESSAGE e020(z50871msg) WITH text-014.
ENDIF.
ENDFORM. "validate_ebeln
*& Form populate_layout2
FORM populate_layout2 .
CLEAR wa_layout.
wa_layout-colwidth_optimize = 'X'. "column width
wa_layout-zebra = 'X'.
wa_layout-no_hline = 'X'.
wa_layout-no_vline = 'X'.
wa_layout-cell_merge = 'X'.
wa_layout-window_titlebar = 'PURCHASE ORDER DETAILS SECOND SCREEN'.
ENDFORM. " populate_layout2
*& Form GET_POPUPDATA
FORM get_popupdata .
LOOP AT it_ekko INTO wa_ekko WHERE check = 'X'.
 READ TABLE it_eine INTO wa_eine WITH KEY ebeln = wa_ekko-ebeln.
 IF sy-subrc NE 0.
 MESSAGE i020(z50871msg) WITH text-015 wa_ekko-ebeln .
 ELSE.
 wa_popup-ebeln = wa_eine-ebeln.
 wa_popup-ekorg = wa_eine-ekorg.
 wa_popup-ekgrp = wa_eine-ekgrp.
 APPEND wa_popup TO it_popup.
 ENDIF.
ENDLOOP.
ENDFORM. " GET_POPUPDATA
*& Form GET_POPUPFCAT
FORM get_popupfcat .
CLEAR wa_fieldcat.
REFRESH it_fieldcat.
wa_fieldcat-fieldname = 'EBELN'.
wa_fieldcat-seltext_l = text-004.
wa_fieldcat-hotspot = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'EKORG'.
wa_fieldcat-seltext_l = text-016.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'EKGRP'.
wa_fieldcat-seltext_l = text-017.
APPEND wa_fieldcat TO it_fieldcat.
ENDFORM. " GET_POPUPFCAT
*& Form DISPLAY_POPUP
FORM display_popup .
LOOP AT it_ekko INTO wa_ekko WHERE check EQ 'X'.
 wa_check-check = wa_ekko-check.
 APPEND wa_check TO it_check.
ENDLOOP.
IF it_check[] IS INITIAL.
 MESSAGE i020(z50871msg) WITH text-018.
ENDIF.
IF NOT it_popup[] IS INITIAL.
 CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
 EXPORTING
 i_title = text-003
 i_allow_no_selection = 'X'
 i_scroll_to_sel_line = 'X'
 i_tabname = 'IT_POPUP'
 it_fieldcat = it_fieldcat
 i_callback_program = sy-repid
 TABLES
 t_outtab = it_popup
 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.
REFRESH it_check.
REFRESH it_popup.
ENDFORM. " DISPLAY_POPUP
*& Form get_ekko_data
FORM get_ekko_data .
SELECT ebeln bstyp bsart aedat ernam
 FROM ekko
 INTO CORRESPONDING FIELDS OF TABLE it_ekko
 WHERE ebeln IN so_ebeln.
IF sy-subrc NE 0.
 MESSAGE e020(z50871msg) WITH text-019.
ENDIF.
ENDFORM. " get_ekko_data
*& Form get_eine_data
FORM get_eine_data .
SELECT ebeln ekorg ekgrp
 FROM eine
 INTO TABLE it_eine
 WHERE ebeln IN so_ebeln.
ENDFORM. " get_eine_data
*& Form at_user_command1
FORM at_user_command1 USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
 CASE r_ucomm.
 WHEN 'SE16'.
 CALL TRANSACTION 'SE16'.
 WHEN 'SE37'.
 CALL TRANSACTION 'SE37'.
ENDCASE.
regards,
pavan t.

Check bix in the list (report out put)

Similar Messages

Maybe you are looking for