PL/SQL - Cursor - Select in Select list

Hi. The following PLSQL compiles,
DECLARE
     CURSOR cur1 IS
          SELECT account_no
          FROM rnt_account;
BEGIN
     OPEN cur1;
     CLOSE cur1;
END;
<B>This does not, </B>
DECLARE
     CURSOR cur1 IS
          SELECT account_no
          FROM rnt_account;
BEGIN
     OPEN cur1;
     CLOSE cur1;
END;
<B> Are selects in the Select list of a cursor not allowed in PLSQL? </B>
THANKS IN ADVANCE

I am using 8i , and if I run the select statement in SQLPLUS as a simple select query it functions correctly.
So this works
select sysdate, (select sysdate from dual)
from dual;
If I try to declare the above as a cursor it fails.
with the following error message
ERROR at line 3:
ORA-06550: line 3, column 24:
PLS-00103: Encountered the symbol "SELECT" when expecting one of the following:
( - + mod not null others <an identifier>
I have tried aliases and they dont work.

Similar Messages

Getting List of SQL server and on selection of server get List of Databases using SMO

Hi,
I need to have functionality where I need to populate List of available SQL servers from local network, and when i select SQL server from list, get the list of Databases from that Server.
For this i referenced SQL SMO Dll's and placed two drop down, one lists Server names, and one lists Database names.
Dlls refered are:
Microsoft.SqlServer.ConnectionInfo.dll
Microsoft.SqlServer.Management.Sdk.Sfc.dll
Microsoft.SqlServer.Smo.dll
Microsoft.SqlServer.SqlClrProvider.dll
Microsoft.SqlServer.SqlEnum.dll
Above DLL's i have copied from SQL server SQL server 2008 installed location
C:\Program Files\Microsoft SQL Server\110\SDK\Assemblies
DLL version : 11.0.3000.0
Code i have used is:
private void MainForm_Load(object sender,
EventArgs e)
   DataTable dataTable = SmoApplication.EnumAvailableSqlServers(false);
   cmbServers.ValueMember = "Name";
   cmbServers.DataSource = dataTable;
//Now, load Databases on selection of Server combo box.
private void cmbServers_SelectedIndexChanged(object sender,
EventArgs e)
   cmbDatabases.Items.Clear();
   if (cmbServers.SelectedIndex != -1)
      string serverName = cmbServers.SelectedValue.ToString();
      Server server = new Server(serverName);
      try
         foreach (Database database in server.Databases)
            cmbDatabases.Items.Add(database.Name);
      catch (Exception ex)
         string exception = ex.Message;
It works where SQL server is installed, but in systems where no SQL server is installed, it is not working, it is not returning list of SQL server and so database list.
Query is> can you please help me in this regard, what i am missing here, do i need to install any client component to use this?, or anything else what i need to do to make this functionality work.
Thanks,
Hemal

Thanks Michael for replying.
I have gone through the reply, and the link on how to get the SMO library installed.
"To install the Client Tooks SDK without installing SQL Server, install Shared Management Objects from the SQL Server feature pack.
If you want to ensure that SQL Server Management Objects is installed on a computer that will run your application, you can use the Shared Management Objects .msi in the SQL Server feature pack."
I have few questions on "Shared Management Objects .msi"
Where do i get "Shared Management Objects .msi".
only installing this msi will install SMO?.
Can i ship this msi with my application installer?
do i need to install x86 on x86 system and x64 version of msi in x64 system, or x86 can work fine with both, my application
is x86 only.
Thanks,
Hemal

PL/SQL cursors vs. SQL*plus Select statement

Hi folks, hope you're doing well,
Here is a question that kept me wondering:
Why would I use cursors when i can achieve the same thing with a SQL+ Select statement which is much easier to formulate than a cursor (e.g. you need no declaration, loops etc)?.
Thanks so much,
-a

There is no such thing as a SQL*Plus SELECT statement. The SELECT command is part of the SQL Language - not part of the SQL*Plus (very limited small vocabulary) macro language.
All SQL SELECTs (from client languages) winds up in the SQL Engine as SQL cursors. A SQL Cursor is basically the:
- SQL source code
- SQL "compiled" code (instructions on how to fetch the rows)
On the client side, client cursors (not to be confused with SQL cursors) are used. A client cursor is created in the client language when it makes SQL calls via the database client driver (called the OCI/Oracle Call Interface for Oracle clients).
Typically this is what a client does. It makes a connection to the database and gets a database handler in return. The database handler is the "communication channel" from the client to the db. In Oracle, the database handler in the client refers to the Oracle session (for that client) on db server.
A SQL statement (source code) is used by the client. This can be a SELECT statement you type in at the SQL*Plus command line. It can be a SELECT statement for the PL/SQL cursor command in a stored procedure.
The client creates a SQL handle for this SQL statement, by calling the Oracle client driver. Note that this SQL handle is a client handle - a client cursor for that SQL statement.
E.g.
a) sqlHandle = CreateSQL( databaseHandle, 'SELECT ... FROM ...')
b) sqlHandle.Parse
c) sqlHandle.Execute
After the SQL handle (client cursor) has been executed, the client can fetch rows from it.
This is what SQL*Plus does automatically for you, without you having to write the code to do it. SQL*Plus CONNECT command create a database connection handle. You enter a SELECT statement and SQL*Plus creates a SQL handle (client cursor), executes it, fetches from it, displays the rows, and closes the SQL handle when done.
The same applies to PL/SQL. You can use a SELECT statement just like that in PL/SQL. E.g.
declare
i integer;
begin
select count(*) into i from emp where deptid = 123;
end;This is called an implicit cursor. PL/SQL creates (just like SQL*Plus) an implicit client cursor. It creates and disposes of that client SQL handle for you - you do not need to do it.
Or, you can create an explicit cursor. E.g. declare
cursor c is select count(*) from emp where deptid = 123;
i integer;
begin
open c;
fetch c into i;
close c;
end;The question as to when to use implicit (client) cursors versus explicit (client) cursors depends on your requirements. Do you need to cycle through the results of the SQL? Etc.
And keep in mind that in either case, the SQL Engine creates a SQL cursor anyway on its side.

CR+LF Code at the end of each record selected in sql cursor

i am selecting some data records in a sql cursor and writing it into a file using UTL_FILE.puT in a plsql procedure.
at the end of select statement if i add ||chr(13||chr(10) iam getting CR+CR+LF code
if i add only || chr(10) i am getting LF code.
What i need is only CR+LF code. Kindly help to use any other commands.
Thanks,
Shivaji.
Edited by: Shivaji M on Apr 22, 2010 12:11 AM
Edited by: Shivaji M on Apr 22, 2010 12:36 AM

It's in the book!
"PUT_LINE terminates the line with the platform-specific line terminator character or characters."
http://download.oracle.com/docs/cd/E11882_01/appdev.112/e10577/u_file.htm#i997640

Use of cursors insted of select statements

could any one please explain what is the advantage of using cursors instead of simple select statements
thanks
siby

A benefit to using an explicit cursor rather than a select statement, is for the NO_DATA_FOUND exception. Its kind of like a free IF statment. IF no data is found, then stop.
if you write a select statement, and no data is returned, you SHOULD code for the NO_DATA_FOUND exception. Often people say, "i'll ALWAYS get a row returned". but you should always cover your code "just in case". so you must code an exception...
declare
v_var varchar2(1);
procedure do_something(p_parm varchar2) is
begin
null;
end do_something;
procedure log_error is
begin
null;
end log_error;
begin <<main>>
do_something('x');
begin <<selectblock>>
select dummy
into v_var
from dual
where dummy = 'a';
do_something(v_var);
exception
when no_data_found then
log_error;
end selectblock;
do_something (v_var||'abc');
end main;
if you use an explicit cursor instead, you don't need to code for the NO_DATA_FOUND. If an explicit cursor opens and finds no rows, there are simply no rows. of course, you don't need a loop if you expect only 1 row returned under normal circumstances.
BTW, don' forget that SQL%ROWCOUNT and your_cursor%ROWCOUNT are not initialized. There is a null, until a row is successfully fetched. therefore if no rows are returned at all, %ROWCOUNT is NULL.
declare
v_var varchar2(1);
cursor my_cur is
select dummy
from dual
where dummy = 'a';
procedure do_something(p_parm varchar2) is
begin
null;
end do_something;
procedure log_error is
begin
null;
end log_error;
begin << main>>
for cur_rec in my_cur loop
dbms_output.put_line('inside');
begin <<loop_block>>
if nvl(my_cur%rowcount,0) > 1 then
do_something(cur_rec.dummy);
else
log_error;
end if;
end loop_block;
end loop;
end main;
/

By Default All Value Into Select List,If Select % In select List

Hi ,
i have created application process to extract state name in select list based on city name.
Now i need if i don't have city name and i have select % into City Name select List then All State Name Should Come into Select List.
Right Now if i select % into select List then It show me Blank In to state Name Select List.
How can i extract All State Name if i select % Into Select List.
My Application Process
BEGIN
OWA_UTIL.mime_header ('text/xml', FALSE);
HTP.p ('Cache-Control: no-cache');
HTP.p ('Pragma: no-cache');
OWA_UTIL.http_header_close;
htp.prn('<data>');
   HTP.prn ('<select>');
   FOR c IN (select S.NAME,S.CODE from STATE_MAS S,CITY_MAS C where C.STATE_CODE=S.CODE AND C.CODE =:SELECT5)
LOOP
HTP.prn ('<option value="' || c.CODE || '">' || c.NAME || '</option>');
   END LOOP;
   HTP.prn ('</select>');
htp.prn('</data>');
END;My City Name Table
CREATE TABLE "CITY_MAS"
   (     "CODE" VARCHAR2(3) NOT NULL ENABLE,
     "NAME" VARCHAR2(1000) NOT NULL ENABLE,
     "STATE_CODE" VARCHAR2(3) NOT NULL ENABLE
        )My State Name Table
CREATE TABLE "STATE_MAS"
   (     "CODE" VARCHAR2(3) NOT NULL ENABLE,
     "NAME" VARCHAR2(50) NOT NULL ENABLE
/How can i do this.
Thanks
Edited by: 805629 on Jan 25, 2011 2:06 AM

select S.NAME,S.CODE from STATE_MAS S join CITY_MAS C on (C.STATE_CODE=S.CODE)If you join two table you must have some equal data between this tables. and define it on your sql. Else you join will be cartesian join. if you dont want use this sql then create view
create view TEST1 as (
select S.NAME,S.CODE from STATE_MAS S,CITY_MAS C where C.STATE_CODE=S.CODE
select * from test1 where C.CODE =:SELECT5 OR :SELECT5 = '%' Edited by: Adigozalov Gurban on Jan 25, 2011 3:46 PM

How to get selected values from Select Many Choice List

Hello All -
I am using Select Many Choice List and wish to get the selected values in the bean. I have created method binding for valueChangeListener for the choice list, but not sure how to get the selected values.
I am facing problem in getting values from valueChangeEvent.getNewValue(). For Select One Choice List this returns int, but some list type object for Select Many Choice List.
When I try to print the value it comes something like:
ArrayList newVal = new ArrayList(Arrays.asList(valueChangeEvent.getNewValue()));
System.out.println(newVal);
[Ljava.lang.Integer;@870ad8
Could anyone please suggest how to type cast and use the return of valueChangeEvent.getNewValue() to get the selected values.
Regards -
Rohit

Hi Timo -
Thanks for the suggestion. I could get the values as below:
public void multiOpUnitValChange(ValueChangeEvent valueChangeEvent) {
// Add event code here...
BindingContainer bindings = BindingContext.getCurrent().getCurrentBindingsEntry();
DCIteratorBinding opUnitIter = (DCIteratorBinding)bindings.get("OperatingUnit2VOIterator");
Integer[] values = (Integer[])valueChangeEvent.getNewValue();
for (int i=0; i<values.length; i++){
Row row = opUnitIter.getRowAtRangeIndex(i);
System.out.println(row.getAttribute("OpUnitId"));
Thanks -
Rohit

How to get multiple selected fields in list

Hello all,
I am trying to get multiple selected value from a list but i dont know how to get multiple selected fields from a list though AS3.
Actually i want to pass the selected fields to php, so for that i need to get the selections and send to php.
Thankx..

i want to put the selected fields of list in an array through AS3....
actually......i figured it out how to do that...........
Its simple......use
list.selectedItems[index]
and to get the number of items selected......
list.selectedItems.length
simple.....

Selecting from a list to a table

need help.i have items in a list and combo box in which i want it in such away that when item is selected from the list and combo box it goes to the table i have in a panel.i want to discard the text area i used.thanks in advance
my code:
'\n'
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import javax.swing.border.*;
import javax.swing.table.*;
public class BreakFast extends JFrame implements ActionListener{
     private JList ingredient;
     private JTextArea meal;
     private JTable table;
     private DefaultTableModel model;
     private JButton move;
     private String[] food;
     private JComboBox box,box1;
     private String[] units;
     private double[] price={100,150,200,250,300,350,400};
     public BreakFast(){
          Container c=getContentPane();
          c.setLayout(new FlowLayout());
          food = new String[] {"Corn Flakes","Beans","Shredded Bread","Mushroom",
          "eggs","Milks","Butter","Sugar","water","Oil"};
          ingredient = new JList(food);
          ingredient.setSelectionMode(ListSelectionModel.MULTIPLE_INTERVAL_SELECTION);
          ingredient.setVisibleRowCount(4);
          JPanel p = new JPanel();
          p.setBorder(BorderFactory.createBevelBorder(BevelBorder.RAISED));
          //move = new JButton(">>>");
          //move.addActionListener(this);
          meal = new JTextArea(5,20);
          meal.setEditable(false);
          p.add(new JScrollPane(ingredient),"Wast");
          //p.add(move,"Center");
          p.add(new JScrollPane(meal),"East");
          JPanel p2 = new JPanel();
          p2.setBorder(new BevelBorder(BevelBorder.RAISED));
          units = new String[]{"2 cups","3 cups","4 cups","5 cups","1 mudu","2 mudu",
                    "3 mudu","4 mudu","5 mudu","6 mudu","7 mudu","8 mudu","9 mudu",
                    "1 bag"};
          box = new JComboBox(units);
          box.addActionListener(this);
          box1 = new JComboBox();
          //box1.setEditable(true);
          box1.addActionListener(this);
          for(int i=0;i<price.length;i++){
               box1.addItem(price);
          model = new DefaultTableModel();
          model.addColumn("No.");
          model.addColumn("Food Items");
          model.addColumn("Units");
          model.addColumn("Price");
          String[] cell={"1","Rice","2 cups","#20"};
          model.addRow(cell);
          table = new JTable(model);
          JScrollPane pane = new JScrollPane(table);
          pane.setPreferredSize(new Dimension(200,100));
          p2.add(box,"North");
          p2.add(box1,"South");
          p2.add(pane,"East");
          c.add(p);
          c.add(p2);
          setSize(450,300);
          setVisible(true);
          setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
     public void actionPerformed(ActionEvent e){
               Object[] value = ingredient.getSelectedValues();
               if(e.getSource() instanceof JComboBox){
                    for(int i=0;i<value.length;i++){
                         String word = (String)value[i];
                         meal.append(box.getSelectedItem()+" "+"of"+" "+word+" "+box1.getSelectedItem()+"\n");
     public static void main(String[] arg){
          new BreakFast();

So the problem is?
All you need to do is to create the JTable first of all (which you haven't done). Secondly, you create a TableModel for it so can manage its data effectively.
Thirdly, you replace the code in your actionPerformed method to add a new row containing the data you received from the list and combo box.
Now is that so hard? Okay, here is some code
DefaultTableModel model = new DefaultTableModel(0,3);
JTable table = new JTable(model);
public void actionPerformed(ActionEvent e){
    Object[] value = ingredient.getSelectedValues();
    if(e.getSource() instanceof JComboBox){
        for(int i=0;i < value.length;i++){
            String word = (String)value;
Vector<Object> data = new Vector<Object>();
data.addElement( box.getSelectedItem() );
data.addElement( "of" + " " + word );
data.addElement( box1.getSelectedItem());
model.addRow( data );
ICE

KDMAT need to be included in the current VA01 selection screen or list when

Hello SAP SD Consultants,
Please help me with below requirement or what user exit should we use to implement below requirement. I have discussed with with ABAP and gave some User exits that has related description, however, ABAP confirmed that none of below UE suits the requirement.
1. AD010002 - Delimit selection and/or filter data that is determined
2. CLCLRS01 - Additional Fields on the Result Screen
3. CLCLRS02 - Fill the Additional Fields on the Result Screen
4. V60P0001 - Data provision for additional fields for display in lists
5. WVLB0001 - Display additional data in subscreen for simulation list
Thus, kindly help us on how we can proceed with this.
000----
Requirement:
The field u201CCustomer-material numberu201D or field name KDMAT need to be included in the current VA01 selection screen or list when creating sales orders with reference from a contract.
Currently, customer have its own description or material code to classify or define the product they want to order which are sometimes not exactly the same as the material number maintained in the system or the product / material code used by the Company for sales. These material descriptions were manually entered in the system thru the use of customer-material number field or KDMAT. When sales orders or contracts are created for certain or specific customers, the user or the person who creates that contract / order manually inputs the description in the customer-material number field.
The said entry should also be seen in the Selection List for Reference Document. The transaction to be modified is VA01 under program screen SAPMV45A specific to screen number 4413.
Test Data used:
Reference Transaction: VA41 (create contract), VA43 (display contract)
Order Type: ZCQ (example)
Contract No. 40000040
Transaction: VA01
Order type: ZOR (example)
Contract No. 40000040
a. Go to tcode VA01, input the order type ZOR, click the button CREATE with REFERENCE.
b. Input the reference contract document, since our reference doc is a contract, go to tab CONTRACT and input the contract no..
Expected output:
Upon inputing the contract no. in the contract tab, click u201CSelection Listu201D.
The customer-material number or KDMAT should be included as one of the field and should be displayed in the Selection List for Reference Document window.
Edited by: ria sumagaysay on Mar 26, 2010 11:30 AM

Hello,
Thank you for the responce.
The reason why they want to reflect KDMAT in the selection list is that, during order creation, not all materials or KDMAT will be ordered by that customer, only specific materials. However, during order processing, the customer only gives the details of the KDMAT. Thus, if there are around hundreds of items inside that contract, the sales personnel who creates the order needs to exclude those material not included in the customer order list manually via checking table VBAP and compare the material code from the selection list.
This is very tedious on their part and commonly caused human error, however, when the KDMAT field is available, although the process has manual intervention, it will serve them well and lessen the burden.

Can i assign a collective srch help for select option in list display

can i assign a collective srch help for select option in list display

Hi,
Yes ,u can assign a collective search help for select-option in list display.
Eg:
Define your select option like this
SELECT-OPTIONS: s_vbeln FOR likp-vbeln MATCHCODE OBJECT vmva.
Regards,
Shiva.

Dynamic Select One Lookup List restricted to a subset of values

I'm working with JDeveloper 10.1.3. trying to put an application together that needs two Lookup List the first is a Manufacturer Name and the second is items manufactured based on the selection of the first Lookup List choice (Manufacturer Name). I have two tables that make a nice master-detail relationship also I have a view that has the manufacturer name and what they manufacture but I just can't get a handle on how to set up the second lookup list to provide the subset of manufactured items based on the selection made in the first list. So the basic question is how do you restrict a Dynamic Select One Lookup List to a subset of values from the table based on a value stored in the application (on the page or in a bean). This has me stumped and any help would be greatly appreaicated.

I am not sure if you have tried using the partial trigger on your second lookup list.
Here's an overview of how you can do it @
1.) Create a binding on the page to keep the selected value from your first LOV.
2.) Set autoSubmit = true on your first LOV ) [ so that your binding in the first step gets populated upon selection]
3.) Set up an ID value for the first LOV component.
4.) Set up the partial trigger property on your second LOV to the ID of your first LOV.
5.) In your page definition, use the value from the binding in step1 to assign value to any where clause parameters on the view object for your second LOV.
HTH,
Shishir
donnellypl wrote:
I'm working with JDeveloper 10.1.3. trying to put an application together that needs two Lookup List the first is a Manufacturer Name and the second is items manufactured based on the selection of the first Lookup List choice (Manufacturer Name). I have two tables that make a nice master-detail relationship also I have a view that has the manufacturer name and what they manufacture but I just can't get a handle on how to set up the second lookup list to provide the subset of manufactured items based on the selection made in the first list. So the basic question is how do you restrict a Dynamic Select One Lookup List to a subset of values from the table based on a value stored in the application (on the page or in a bean). This has me stumped and any help would be greatly appreaicated.

Setting button property after selecting data from list

I am not able to set the button property after selecting data from list.
I would like to say that
* If a user select an item from list, then user is only allowed to update or delete the data. The update and delete button should be enabled and save button should be disabled.
* If the users types data manually, then user is allowed only to save this as new entry. The update or delete button at this time should be disabled and only save button should be enabled.
I want to say that
In both case, value will be there
In one case, value will be from list and that is available for update or delete
in another case, value will be typed from keyboard that is available for save(new entry).
I do not want to use separate form for update/delete/save new record. I want to use single form for all these operations.
I am using Form 6i and oracle 8
Please guide me, I am trying to find this answer for last four days, but could not find the answer. Please help me. Waiting for you reply...

Thanks Mr. fdellipriscoli,
But where should this code be written and
Where the parameter be set to 'YES'
I think this code should be written somewhere when calling list.
But bydefault list is called by pressing F9 key. Then where the parameter be set to 'YES' .
Please help Mr. fdellipriscoli. Waiting for your reply...

Automize SQL TRACE for a selected session

Hi,
Should I automize the process of SQL Tracing for a particular session of our choice?
Lets say when there are several sessions, and we want to select the particular session for SQL TRACING, then the SQL tracing for that session enable via running a routine.
I used AFTER LOGON trigger for enabling SQL trace, but using this approach enable SQL TRACING all the sessions.
My Logon Trigger for enabling SQL Tracing:
create or replace trigger LOGON_SQL_TRACE
after logon on database
begin
execute immediate
'alter session set sql_trace=true';
end;
I want to use a perfect routine that first get the sid, serial# or username etc. from V$session, V$process or else, and then enable the SQL TRACING for the selected session.
Like SYS.DBMS.SYSTEM.SET_SQL_TRACE_IN_SESSION package is available for doing that or may be some others as well.
But how should we use these packages or other SQL tracing commands in a routine, which we can use for, enable SQL Tracing implicitly.
Any ideas will be great.
Bill

SYS.DBMS.SYSTEM.SET_SQL_TRACE_IN_SESSION is just fine.
You can get the SID and SERIAL# from v$session; you just have to know the username, osmachine, the OS process, ...
Fred

ALV grid list report when selected from selection screen

Hi folks,
            I need to get ALV grid display in my list report when selected the interval values from the selection screen. If I change the values in list of ALV grid it needs to be updated when I press UPDATE pushbutton. The output of list should be in ALV grid display.I need sorting ,flitering,totaling functionality in the list output.
For example if I selected BUKRS = 100 and 200 in the selection screen ,I need to display the ALV grid list in below the selection screen as ALV grid display...
Its urgent as I am new to ALV grid functionality...
Thanks in advance..

hi raja,
check with the folllowing code.
REPORT zca0m_zca0fcstftop NO STANDARD PAGE HEADING
                                MESSAGE-ID zcsv_usrtbl_maintain.
Type pools                                                           *
TYPE-POOLS : slis.                          " Used for ALV display
Tables
TABLES: zca0fcstftop,
        dd04t,                         "R/3 DD: Data element texts
        tactt.                         "Activities that can be protected
internal tables
DATA: BEGIN OF wa_zca0fcstftop .
        INCLUDE STRUCTURE zca0fcstftop.
DATA: END OF wa_zca0fcstftop.
DATA: t_zca0fcstftop LIKE STANDARD TABLE OF wa_zca0fcstftop.
DATA: BEGIN OF i_fcode OCCURS 0,
        fcode LIKE sy-ucomm,
      END OF i_fcode.
*Record for variant selection
DATA : BEGIN OF ws_variant,
         selected TYPE c,
         variant LIKE ltdx-variant, "Variant name
         text     LIKE ltdxt-text,    "Variant description
       END OF ws_variant.
*Table for variant selection
data : itab_variant LIKE STANDARD TABLE OF ws_variant WITH HEADER LINE.
Variant selection pop-up global variables
DECLARATION OF TABLECONTROL 'VARIANT_CNTL' ITSELF
CONTROLS: variant_cntl TYPE TABLEVIEW USING SCREEN 0200.
LINES OF TABLECONTROL 'VARIANT_CNTL'
DATA:     g_variant_cntl_lines LIKE sy-loopc.
DATA:grid1 TYPE REF TO cl_gui_alv_grid ,
     g_custom_container TYPE REF TO cl_gui_custom_container.
Work fields
DATA: table_name LIKE dd02l-tabname,   "To store table name
      field_name LIKE dd03l-fieldname, "To Store Field Name
      act_auth LIKE tactz-actvt,       "To pass Activity ID
      tab_maint LIKE dd02l-tabname,    "To pass Table Name to be Maintd.
      wg_confirm_ind,                  "To trap User responses
      flag,                            "To trap changes made to an entry
      f_copy,                          "To Identify 'COPY' Command Use
      f_select,                        "To decide between Select-options
                                       " and Internal Table
      l_transaction_code LIKE tstc-tcode,
      v_langu LIKE sy-langu,
      v_repid LIKE sy-repid,
      s_variant TYPE disvariant.
DATA: ok_code LIKE sy-ucomm.
DATA:selected_rows TYPE lvc_t_row ,
     sel_rows TYPE lvc_t_row WITH HEADER LINE.
DATA:t_lines TYPE i.
Constants                                                            *
CONSTANTS :
           c_x TYPE c VALUE 'X',             " Constant 'X'.
           c_f TYPE c VALUE 'F'.             " Constant 'F'.
Parameters and Selection Options
*Selection Screen for table maintenance
*Selection option for Plant
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-b01.
PARAMETERS: p_werks   LIKE zca0fcstftop-werks OBLIGATORY.
SELECT-OPTIONS: s_prdfml FOR zca0fcstftop-product_family,
                s_bmach   FOR zca0fcstftop-base_machine,
                s_factop FOR zca0fcstftop-factory_top,
                s_optval FOR zca0fcstftop-option_value,
                s_week    FOR zca0fcstftop-week.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-b02.
PARAMETERS     : p_varant LIKE ltdx-variant.          " ALV variant
SELECTION-SCREEN END OF BLOCK block2.
At selection screen                                                  *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_varant.
PERFORM alv_variant_f4 CHANGING p_varant.
AT SELECTION-SCREEN ON p_werks .
Validating Plant on the selection screen
PERFORM validate_plant.
Initialization
INITIALIZATION.
Check Authorization for the Transaction
Authorization Check For T Code
SELECT tcode
     INTO l_transaction_code
     FROM tstc UP TO 1 ROWS
     WHERE pgmna = sy-repid.
ENDSELECT.
AUTHORITY-CHECK OBJECT 'S_TCODE'
                      ID 'TCD' FIELD l_transaction_code.
IF sy-subrc NE 0.
    MESSAGE e001 WITH l_transaction_code.
ENDIF.
v_langu = sy-langu.                             " language
v_repid = sy-repid .                            " abap Program name
Start Of Selection
START-OF-SELECTION.
CALL SCREEN 0050.
*&      Form validate_plant                                           *
      Validating Plant on the selection screen                       *
FORM validate_plant .
DATA : l_werks LIKE t001w-werks.                          " Plant
IF p_werks IS NOT INITIAL.
    SELECT SINGLE werks
        FROM t001w
        INTO l_werks
        WHERE werks EQ p_werks.
    IF sy-subrc NE 0.
      MESSAGE e100(ra) WITH text-001 .
    ENDIF.
ENDIF.
AUTHORITY-CHECK OBJECT 'Z_PP_PLANT'
           ID 'ACTVT' FIELD '03'
           ID 'WERKS' FIELD p_werks
           ID 'TCD' FIELD l_transaction_code.
IF sy-subrc NE 0.
    MESSAGE e000(oo) WITH 'No authorization for plant:'(e80) p_werks.
ENDIF.
ENDFORM.                    " validate_plant
*&      Form get_data                                                 *
      Get data                                                       *
FORM get_data .
SELECT * FROM zca0fcstftop
    INTO TABLE t_zca0fcstftop
    WHERE werks           = p_werks
      AND product_family IN s_prdfml
      AND base_machine   IN s_bmach
      AND factory_top    IN s_factop
      AND option_value   IN s_optval
      AND week           IN s_week.
ENDFORM.                    " get_data
*&      Form fill_fcode
FORM fill_fcode USING    value(p_0029).
i_fcode-fcode = p_0029.
APPEND i_fcode.
CLEAR i_fcode.
ENDFORM.                               " fill_fcode
*&      Module STATUS_0100 OUTPUT
MODULE status_0100 OUTPUT.
SET PF-STATUS 'UPDATE'.
CLEAR flag.
ENDMODULE.                             " STATUS_0100 OUTPUT
*&      Module MODIFY_0100 OUTPUT
MODULE modify_0100 OUTPUT.
IF sy-ucomm = 'CHNG' OR
       sy-ucomm = 'PICK'.
    LOOP AT SCREEN.
      CHECK screen-group1 = 'CHG'.
      screen-required = '0'.
      screen-output   = '1'.
      screen-input    = '0'.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
Check if you are in create mode & if yes then set the screen elements
as mandatory
IF ok_code = 'CREA'.
    LOOP AT SCREEN.
      CHECK screen-group1 = 'CHG'.
      screen-required = '1'.
      screen-output   = '1'.
      screen-input    = '1'.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
ENDMODULE.                             " MODIFY_0100 OUTPUT
*&      Module Check_Exit INPUT
      text
MODULE check_exit INPUT.
IF ( sy-ucomm = 'BACK' OR sy-ucomm = 'CANC' OR sy-ucomm = 'EXIT' ) AND
       ( flag = 'Y' ).
    CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
      EXPORTING
        defaultoption = 'Y'
        textline1      = text-008
        textline2      = text-009
        titel          = text-004
        cancel_display = ' '
      IMPORTING
        answer         = wg_confirm_ind.
    CASE wg_confirm_ind.
      WHEN 'J'.                                             "Yes
        sy-ucomm = 'SAVE'.
        CLEAR flag.
      WHEN 'N'.                                             "No
        sy-ucomm = 'BACK'.
        CLEAR flag.
    ENDCASE.
ENDIF.
ENDMODULE.                             " Check_Exit INPUT
*&      Module Exit_0100 INPUT
      text
MODULE exit_0100 INPUT.
SET SCREEN 0. LEAVE SCREEN.
ENDMODULE.                             " Exit_0100 INPUT
*&      Module USER_COMMAND_0100 INPUT
      text
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
    WHEN 'SAVE'.                       "Save
    Check to see if the user has the appropriate authorization
      IF p_werks NE zca0fcstftop-werks.
      could not update - not in selection
        MESSAGE e000(oo) WITH 'Entry not within selection'.
        SET SCREEN 0. LEAVE SCREEN.
        PERFORM get_data.
      ENDIF.
      IF f_copy = 'X'.
        INSERT zca0fcstftop.
        IF sy-subrc = 0.
          MESSAGE s004.
          PERFORM initialize.
          SET SCREEN 0. LEAVE SCREEN.
          PERFORM get_data.
        ELSE.
          MESSAGE w005.
        ENDIF.
      ELSE.
        MODIFY zca0fcstftop.
        IF sy-subrc = 0.
          MESSAGE s004.
          PERFORM initialize.
          SET SCREEN 0. LEAVE SCREEN.
          PERFORM get_data.
        ELSE.
          MESSAGE w005.
        ENDIF.
      ENDIF.
      PERFORM get_data.
    WHEN 'BACK'.                       "Back
      SET SCREEN 0. LEAVE SCREEN.
    WHEN 'CANC'.                       "Cancel
      SET SCREEN 0. LEAVE SCREEN.
    WHEN OTHERS.
ENDCASE.
COMMIT WORK.
ENDMODULE.                             " USER_COMMAND_0100 INPUT
*&      Form Initialize
FORM initialize.
CLEAR :   table_name,
            field_name,
            wg_confirm_ind,
            f_copy,
            flag,
            t_zca0fcstftop,
            zca0fcstftop,
            wa_zca0fcstftop,
            i_fcode.
REFRESH: t_zca0fcstftop.
ENDFORM.                               " Initialize
*&      Form alv_variant_f4
      text
     <--P_VARIANT text
FORM alv_variant_f4 CHANGING variant.
DATA: rs_variant LIKE disvariant.
DATA nof4 TYPE c.
CLEAR nof4.
LOOP AT SCREEN.
    IF screen-name = 'VARIANT'.
      IF screen-input = 0.
        nof4 = 'X'.
      ENDIF.
    ENDIF.
ENDLOOP.
rs_variant-report   = sy-repid.
rs_variant-username = sy-uname.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = rs_variant
      i_save     = 'A'
    IMPORTING
      es_variant = rs_variant
    EXCEPTIONS
      OTHERS     = 1.
IF sy-subrc = 0 AND nof4 EQ space.
    variant = rs_variant-variant.
ENDIF.
ENDFORM.                               " ALV_VARIANT_F4
*&      Module STATUS_0050 OUTPUT
      text
MODULE status_0050 OUTPUT.
In this module Initialize the container and put the grid in it
DATA:grid_layout TYPE lvc_s_layo,
       fieldcat TYPE lvc_t_fcat,
       wa_fieldcat LIKE LINE OF fieldcat.
PERFORM set_auth.
SET PF-STATUS 'UPD_0050' EXCLUDING i_fcode.
SET TITLEBAR 'UPD_0050'.
IF g_custom_container IS INITIAL .
    CREATE OBJECT g_custom_container
       EXPORTING
          container_name = 'FTDATA'.
    CREATE OBJECT grid1
       EXPORTING
        i_parent = g_custom_container.
ELSE.
    CALL METHOD grid1->free.
    CALL METHOD g_custom_container->free.
    CREATE OBJECT g_custom_container
       EXPORTING
          container_name = 'FTDATA'.
    CREATE OBJECT grid1
       EXPORTING
        i_parent = g_custom_container.
ENDIF.
Every time refresh The variables
PERFORM initialize.
PERFORM get_data.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'ZCA0FCSTFTOP'
    CHANGING
      ct_fieldcat      = fieldcat.
grid_layout-grid_title = text-t01.
grid_layout-sel_mode = 'A'.
grid_layout-stylefname = 'CT'.
s_variant-report   = sy-repid.
s_variant-username = sy-uname.
s_variant-variant = p_varant.
CALL METHOD grid1->set_table_for_first_display
    EXPORTING
      i_structure_name = 'ZCA0FCSTFTOP'
      is_layout        = grid_layout
      is_variant       = s_variant
      i_save           = 'A'
    CHANGING
      it_outtab        = t_zca0fcstftop
      it_fieldcatalog = fieldcat.
Create Object to receive events and link them to handler methods.
When the ALV Control raises the event for the specified instance
the corresponding method is automatically called.
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->handle_button_click FOR grid1.
ENDMODULE.                 " STATUS_0050 OUTPUT
*&      Module USER_COMMAND_0050 INPUT
MODULE user_command_0050 INPUT.
CALL METHOD grid1->get_selected_rows
    IMPORTING
      et_index_rows = selected_rows.
DESCRIBE TABLE selected_rows LINES t_lines.
IF t_lines > 1 .
    MESSAGE e048(zcsv_sfdr).
ENDIF.
Clear Header
CLEAR wa_zca0fcstftop.
sel_rows[] = selected_rows .
READ TABLE sel_rows INDEX 1.
READ TABLE t_zca0fcstftop INTO wa_zca0fcstftop INDEX sel_rows-index.
CASE ok_code.
    WHEN 'EXIT'.
      PERFORM exit_program.
    WHEN 'CREA'.
      CLEAR zca0fcstftop.
      ok_code = sy-ucomm.
      zca0fcstftop-werks = p_werks.
      CALL SCREEN 100.
    WHEN 'COPY'.
      MOVE wa_zca0fcstftop TO zca0fcstftop .
      CLEAR wa_zca0fcstftop.
      f_copy = 'X'.
      CALL SCREEN 100.
    WHEN 'CHNG'.
      CHECK NOT wa_zca0fcstftop IS INITIAL.
      MOVE wa_zca0fcstftop TO zca0fcstftop .
      CLEAR wa_zca0fcstftop.
      ok_code = sy-ucomm.
      CALL SCREEN 100.
    WHEN 'DELE'.
      CHECK NOT wa_zca0fcstftop IS INITIAL.
      CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
        EXPORTING
          defaultoption = 'N'
          textline1      = text-005
          textline2      = text-006
          titel          = text-007
          cancel_display = ' '
        IMPORTING
          answer         = wg_confirm_ind.
      IF wg_confirm_ind EQ 'J'.
        DELETE zca0fcstftop FROM wa_zca0fcstftop .
        IF sy-subrc EQ 0.
          MESSAGE s004.
        ELSE.
          MESSAGE e005.
        ENDIF.
      ELSEIF wg_confirm_ind EQ 'N'.
      ENDIF.
ENDCASE.
CLEAR ok_code.
ENDMODULE.                 " USER_COMMAND_0050 INPUT
*&      Form exit_program
FORM exit_program .
CALL METHOD g_custom_container->free.
CALL METHOD cl_gui_cfw=>flush.
SET SCREEN 0.
LEAVE SCREEN.
ENDFORM.                    " exit_program
*&      Form set_auth
FORM set_auth.
REFRESH: i_fcode.
Check authorization for change
MOVE '02' TO act_auth.        "02 --> Change
MOVE 'ZCA0FCSTFTOP' TO tab_maint.
AUTHORITY-CHECK OBJECT 'ZZ:TABLMNP'
    ID 'ACTVT' FIELD act_auth
    ID 'TABLE' FIELD tab_maint.
IF sy-subrc NE 0.
    PERFORM fill_fcode USING 'CHNG'.
ENDIF.
Check for authorization for create
MOVE '01' TO act_auth.        "01 --> Create
MOVE 'ZCA0FCSTFTOP' TO tab_maint.
AUTHORITY-CHECK OBJECT 'ZZ:TABLMNP'
    ID 'ACTVT' FIELD act_auth
    ID 'TABLE' FIELD tab_maint.
IF sy-subrc NE 0.
    PERFORM fill_fcode USING 'CREA'.
    PERFORM fill_fcode USING 'COPY'.
ENDIF.
Check for authorization for delete
MOVE '06' TO act_auth.        "06 --> Delete
MOVE 'ZCA0FCSTFTOP' TO tab_maint.
AUTHORITY-CHECK OBJECT 'ZZ:TABLMNP'
    ID 'ACTVT' FIELD act_auth
    ID 'TABLE' FIELD tab_maint.
IF sy-subrc NE 0.
    PERFORM fill_fcode USING 'DELE'.
ENDIF.
ENDFORM.                    " set_auth
*&      Module check_change INPUT
MODULE check_change INPUT.
flag = 'Y'.
ENDMODULE.                 " check_change INPUT
regards,
vikas.
plz reward if helpful

PL/SQL - Cursor - Select in Select list

Similar Messages

Maybe you are looking for