Clearing an Dynamic Cluster -HSRP and Dynamic Cluster -NAT ACL configuration

I am trying to upgrade a 2950-24 Catalyst Switch that wa previously configured with both Dynamic HSRP and NAT ACL as shown in the following extract below.
I would like to remove this configuration but it is proving so difficult, this is because, I dont understand how the configuration got here in the first place, please help
=========================================================
SW1#show access-list
Extended IP access list CMP-NAT-ACL
    Dynamic Cluster-HSRP deny   ip any any
    Dynamic Cluster-NAT permit ip any any
=========================================================
interface Vlan1
ip address 192.168.87.2 255.255.255.0
no ip route-cache
ip http server
ip access-list extended CMP-NAT-ACL
dynamic Cluster-HSRP deny   ip any any
dynamic Cluster-NAT permit ip any any
line con 0
exec-timeout 0 0
line vty 0 4

Similar Messages

ALV display using dynamic field catalog and dynamic internal table

hi ,
please guide me for ALV display using dynamic field catalog and dynamic internal table.
Thank you.

Hi Rahul,
maybe thread dynamic program for alv is helpful for you. More information about the [SAP List Viewer (ALV)|http://help.sap.com/saphelp_nw70/helpdata/EN/5e/88d440e14f8431e10000000a1550b0/frameset.htm]. Also have a look into the example programs SALV_DEMO_TABLE*.
Regards Rudi

How to create dynamic View Object and Dynamic Table

Dear ll
I want to create a dynamic view object and display the output in a dynamic table on the page.
I am using Jdeveloper 12c "Studio Edition Version 12.1.2.0.0"
This what I did:
1- I created a read only view object with this query "Select sysdate from dual"
2- I added this View object to the application module
3- I created a new method that change the query of this View object at runtime
    public void changeVoQuery(String dbViewName) {
        String sqlstm = "Select * From " + dbViewName;
        ViewObject dynamicVo = this.findViewObject("DynamicVo");
        if (dynamicVo != null) {
            dynamicVo.remove();
        dynamicVo = this.createViewObjectFromQueryStmt("DynamicVo", sqlstm);
        dynamicVo.executeQuery();
4- I run the application module for testing the method and I passed "Scott.Emp" as a parameter and the result was Success
5- Now I want to show the result of the view on the page, so I draged and dropped the method from the data control as a parameter form
6- I dragged and dropped the view Object "DynamicVo" as a table and I choose "generate Column Dynamically at runtime". This is the page source
<af:panelHeader text="#{viewcontrollerBundle.SELECT_DOCUMTN_TYPE}" id="ph1">
        <af:panelFormLayout id="pfl1">
            <af:inputText value="#{bindings.dbViewName.inputValue}" label="#{bindings.dbViewName.hints.label}"
                          required="#{bindings.dbViewName.hints.mandatory}"
                          columns="#{bindings.dbViewName.hints.displayWidth}"
                          maximumLength="#{bindings.dbViewName.hints.precision}"
                          shortDesc="#{bindings.dbViewName.hints.tooltip}" id="it1">
                <f:validator binding="#{bindings.dbViewName.validator}"/>
            </af:inputText>
            <af:button actionListener="#{bindings.changeVoQuery.execute}" text="changeVoQuery"
                       disabled="#{!bindings.changeVoQuery.enabled}" id="b1"/>
        </af:panelFormLayout>
    </af:panelHeader>
    <af:table value="#{bindings.DynamicVo.collectionModel}" var="row" rows="#{bindings.DynamicVo.rangeSize}"
              emptyText="#{bindings.DynamicVo.viewable ? 'No data to display.' : 'Access Denied.'}"
              rowBandingInterval="0" selectedRowKeys="#{bindings.DynamicVo.collectionModel.selectedRow}"
              selectionListener="#{bindings.DynamicVo.collectionModel.makeCurrent}" rowSelection="single"
              fetchSize="#{bindings.DynamicVo.rangeSize}" filterModel="#{bindings.DynamicVoQuery.queryDescriptor}"
              queryListener="#{bindings.DynamicVoQuery.processQuery}" filterVisible="true" varStatus="vs" id="t1"
              partialTriggers="::b1">
        <af:iterator id="i1" value="#{bindings.DynamicVo.attributesModel.attributes}" var="column">
            <af:column headerText="#{column.label}" sortProperty="#{column.name}" sortable="true" filterable="true"
                       id="c1">
                <af:dynamicComponent id="d1" attributeModel="#{column}"
                                     value="#{row.bindings[column.name].inputValue}"/>
            </af:column>
        </af:iterator>
    </af:table>
when I run the page this error is occured
<Nov 13, 2013 2:51:58 PM AST> <Error> <oracle.adfinternal.view.faces.webapp.rich.RegistrationFilter> <BEA-000000> <ADF_FACES-60096:Server Exception during PPR, #1
javax.el.ELException: java.lang.NullPointerException
Caused By: java.lang.NullPointerException
Can any body help me please
thanks

Have you seen Shay's video https://blogs.oracle.com/shay/entry/adf_faces_dynamic_tags_-_for_a
All you have to do is to use the dynamic table to get your result.
Timo

Dynamic internal table and dynamic read statements.

Hi,
My Scenario :
I have two dynamic internal tables.
I am looping at one internal table and trying to read another table.
In the read statement how do I mention the key dyamically.
Example code below :
LOOP AT <dyn_table> ASSIGNING <dyn_wa>.
read second dynamic internal table.
enloop.
The key which I want use for reading say it is keyed in the selection criteria....
Also based on the value I read I want to modify the first internal table field value.
Remember I dont want to explicity mention the key
How do I do that?
Thanks
Krishna.

Hi
U need to use the field-symbol, but u can't use a WHERE option, but u need to use the CHECK statament into the second loop:
LOOP AT <dyn_table> ASSIGNING <dyn_wa>.
    LOOP AT <DYN_TABLE2> ASSIGNING <DYN_WA2>.
        ASSIGN COMPONENT <COMPONENT> OF STRUCTURE   <DYN_WA2> TO <FS>.
        CHECK <FS> IN (=) .......
            ASSIGN COMPONENT <COMPONENT> OF STRUCTURE   <DYN_WA> TO <FS2>.
            <FS2> = .......
            EXIT.
    ENDLOOP.
ENDLOOP.
Max

Dynamic internal table and dynamic field catalog

hi
i need to decide the number of fields of the internal table at runtime
and then need to pass value to this internal table.
then i need to create the field catalog for this internal table (so here
field catalog is also dynamic) to display in alv.
how to achieve this dynamic internal table creation and dyanmic field catalog generation

Hi Ajay,
U can use the below code to create a dynamic internal table.
*adding the field names only once for the dynamic table     .
      MOVE 'PRCTR' TO gw_component-name.
      gw_component-type ?= cl_abap_elemdescr=>get_string( ).
      INSERT gw_component INTO TABLE gt_components.
      MOVE 'RCNTR' TO gw_component-name.
      gw_component-type ?= cl_abap_elemdescr=>get_string( ).
      INSERT gw_component INTO TABLE gt_components.
      MOVE 'RACCT' TO gw_component-name.
      gw_component-type ?= cl_abap_elemdescr=>get_string( ).
      INSERT gw_component INTO TABLE gt_components.
      MOVE 'RYEAR' TO gw_component-name.
      gw_component-type ?= cl_abap_elemdescr=>get_string( ).
      INSERT gw_component INTO TABLE gt_components.
      MOVE 'YTDBAL' TO gw_component-name.
      gw_component-type ?= cl_abap_elemdescr=>get_string( ).
      INSERT gw_component INTO TABLE gt_components.
      MOVE 'OBAL' TO gw_component-name.
      gw_component-type ?= cl_abap_elemdescr=>get_string( ).
      INSERT gw_component INTO TABLE gt_components.
*get structure descriptor -> GR_STRUCTDESCR
          gr_structdescr ?= cl_abap_structdescr=>create( gt_components ).
create work area of structure GR_STRUCTDESCR -> GR_WA
          CREATE DATA gr_wa TYPE HANDLE gr_structdescr.
          ASSIGN gr_wa->* TO <gw_wa>.
determine key components -> GT_KEYS
          MOVE lv_value1 TO gw_key-name.
          INSERT gw_key INTO TABLE gt_keys.
create descriptor for internal table -> GR_TABLEDESCR
          gr_tabledescr ?= cl_abap_tabledescr=>create( p_line_type = gr_structdescr
                                                       p_table_kind = cl_abap_tabledescr=>tablekind_hashed
                                                       p_unique     = abap_true
                                                       p_key        = gt_keys
                                                       p_key_kind   = cl_abap_tabledescr=>keydefkind_user ).
create internal table -> GR_ITAB
          CREATE DATA gr_itab TYPE HANDLE gr_tabledescr.
          ASSIGN gr_itab->* TO <gt_itab>.
          CREATE DATA gr_itab LIKE STANDARD TABLE OF <gw_wa>.
          ASSIGN gr_itab->* TO <gt_sttab>.
Now u r internal table named <gt_sttab> has been created with fields like RCNTR, PRCTR,RACCT, RYEAR etc whatever the field u need u can go ahead and create dynamically.
then by using the table <gt_sttab> u can create u r field catalog.
Regards,
Rose.

Dynamic File Name and File size

Hi All
I need some help in calling Dynamic File Name and Dynamic File size of a file in my adapter Module.
Could you please provided some help on the same?
I have tried the same through UDF it is working. Could anyone provide me the steps for the same
Regards
Abhishek Mahajan

Hi,
You can use the already available adapter module "DynamicConfigurationBean". Have this adapter module at the top of the module list in CC.
Have the parameter value as insert http://sap.com/xi/XI/System/File FileName and http://sap.com/xi/XI/System/File SourceFileSize (corresponding to the key names)
For more info:
http://help.sap.com/saphelp_nw04/helpdata/en/45/da2239feb22e98e10000000a155369/frameset.htm
There is also a SAP note available for the same....dont remember the note number:(.....
Regards,
Abhishek.

IDS 5.0 and Sun-Cluster

I want to make IDS 5.0 highly available using SunCluster. I have few questions about it.
1. Can I install IDS on local disk and make it highly availbale. Sun-Cluster doc says it should be on shared disk.
2. I have an already installed IDS I want to make it highly available using Sun-Cluster, what steps I should follow to achive this.

I suppose that the answer is that it is not a simple task and it depends on the kind of cluster you want to deploy.
I suggest that you carefully read the documentation of Sun Cluster and specifically the Directory Server specific parts.
The way to do it is different with Sun Cluster 2 and Sun Cluster 3.0....
Or you can request help from Sun Professional Services...
Regards,
Ludovic.

DAG 2010 Cluster IP address resource 'Cluster IP Address' cannot be brought online because the cluster network replication

Hello,
DAG Exchange 2010 SP3 RU6 with MAPI network and Replication network. All works correctly.
But, when the DAG member restarts , the cluster goes offline and i can't bring it online.
The message error:
Cluster IP address resource 'Cluster IP Address' cannot be brought online because the cluster network 'Cluster Network 1' is not configured to allow client access.
Cluster Network 1 is the replication network and it is normal that allow client access is unchecked
I already tried to check, apply then uncheck apply. it does anything.
Could you please help me to figure out the issue ?
Best regards

Hi,
Check below link.
http://forums.msexchange.org/Cluster_network_name_is_not_online/m_1800552315/tm.htm
I was able to resolve the issue without taking down any resources.
First, I noticed that the Failover Cluster Manager "Cluster Name" had the IP address of the replication network only..
After going back through the guide @
http://technet.microsoft.com/en-us/library/dd638104.aspx I changed the properties on the NICs for file sharing, etc..I then adjusted windows firewall rules to block traffic from my MAPI network destined for the replication network.
I then removed the IP from the replication network on the DAG leaving only the 1 MAPI network IP.
After an hour or so, I ran Get-DatabaseAvailabilityGroupNetwork and seen that the MAPIAccess property was finally set to true on my MAPI network. I went back to Failover Cluster Manager and my Cluster Core Resource Cluster Name dropped the IP address that was
associated (IP from the replication network) I added a new IP from my Mapi network range, updated the DAG IP in Exchange and the DNS record for the DAG and my cluster resource came online.

1 "simple" JMS topic and 2 cluster elements with OSB

Hi,
I have 1 simple jms topic (not distributed, not on migratable target) and cluster with 2 members - OSB as main application. My OSB proxy service reads from this topic and saves data to file.
The problem is that reading from topic appears twice - once by each cluster member. How to configure topic or proxy service for only one reading?

FYI - At this year's Oracle OpenWorld, which is being held in conjunction with this year's JavaOne, Oracle will be announcing a set of enhancements that are designed to cover this exact use case.
Tom Barnes
Session ID: S317469
Title: New Service-Oriented Architecture Patterns with Enterprise Grid Messaging
Abstract: Messaging systems are essential in enabling the flexibility and loosely coupled nature of a service-oriented architecture (SOA). Oracle WebLogic Java Message Service (JMS) includes new pub-sub capabilities that make architectures more adaptable, allowing message producers to be ignorant of who is the consumer of a message or how many consumers there are. It also enables easy scale out and dynamic adaptability through clustering and message-driven bean (MDB) enhancements, all while still guaranteeing strict message ordering. This session will outline new JMS capabilities and show how they enable new designs with Oracle WebLogic Server and Oracle Service Bus.
Speaker(s): Dongbo Xiao, Oracle, Principal Member of Technical Staff
Biography not available.
David Cabelus, Oracle USA, Senior Principal Product Manager
Dave Cabelus is a Senior Principal Product Manager in the WebLogic Server group at Oracle. Dave's responsibilities include product strategy and direction for various pieces of WebLogic Server, including Java Messaging, Operations and Management, Diagnostics, and various other initiatives, and previously included database connectivity, transactions, and Web tier integration. In the industry since 1996 and involved in Java since 1999, Dave worked at various software companies including Logic Works, Platinum Software, Kana, and a few startups before coming to Oracle (BEA) in 2001.
Event: JavaOne and Oracle Develop
Stream(s): ORACLE DEVELOP, DEVELOP
Track(s): Application Grid and Oracle WebLogic
Tags: Add
Session Type: Conference Session
Session Category: Features
Duration: 60 min.
Schedule: Thursday, September 23, 11:00AM | Hotel Nikko, Nikko Ballroom II Available
Edited by: TomB on Aug 12, 2010 1:21 PM

Variable Substitution and Dynamic Configuration

Hi All,
In Variable Substitution , the name that should be given the the receiver payload should be part of the Source Payload unlike the Dynamic Configuration wherein the file name can be generated dynamically during mapping.
I have the following questions
1.Dont we need to write the UDF for the Variable substitution?
2.Cant we do the Dynamic configuration without writing UDF?If so then how?
3.In Dynamic Configuration the file name is generated dynamically.But where does the file name come from if it is not the part of the source payload?
Thanks in advance

Hi Shwetha,
1.Dont we need to write the UDF for the Variable substitution?
No. Here we are accessing the contents of the payload to the target. So no UDF required.
2.Cant we do the Dynamic configuration without writing UDF?If so then how?
Yes and No.
Because we can set only few Dynamic configuration values without UDF.
If both source and target are File, then check ASMA on both sender and receiver. Then u can get the source directory name and source file name for target also without any UDF.Also some other parameters.
3.In Dynamic Configuration the file name is generated dynamically.But where does the file name come from if it is not the part of the source payload?
The file name comes along with the source in the payload as a attribute in header. U can view this in SXMB_MONI, and Dynamic Configuration.
In Dynamic Configuration the file name is generated dynamically.
No the file name is taken as it is from the source, if u want to change dynamically that u have to do in a UDF.
I hope this will clear all doubts,
If nt pl post
Babu

Cluster failure and don`t start

Hi.
First, one of cluster node is lost Witness share. After reboot servers cluster service do not started. In Event Viewer write some errors:
Event ID: 1090
The Cluster service cannot be started. An attempt to read configuration data from the Windows registry failed with error '2'. Please use the Failover Cluster Management snap-in to ensure that this machine is a member of a cluster. If you intend
to add this machine to an existing cluster use the Add Node Wizard. Alternatively, if this machine has been configured as a member of a cluster, it will be necessary to restore the missing configuration data that is necessary for the Cluster Service to identify
that it is a member of a cluster. Perform a System State Restore of this machine in order to restore the configuration data.
Event ID: 7024
The Cluster Service service terminated with service-specific error The system cannot find the file specified..
Event ID: 7031
The Cluster Service service terminated unexpectedly. It has done this 3 time(s). The following corrective action will be
taken in 240000 milliseconds: Restart the service.
Please, help my. Say, how i can manualy remove cluster from AD and uninstall feature Failover Cluster from server.
in cluster.log file:
00001e30.00001b60::2010/12/07-15:52:25.371 INFO -----------------------------+ LOG BEGIN +-----------------------------
00001e30.00001b60::2010/12/07-15:52:25.371 INFO [CS] Starting clussvc as a service
00001e30.00001b60::2010/12/07-15:52:25.371 INFO [CS] cluster service logging level is 5
00001e30.00002224::2010/12/07-15:52:25.371 INFO [CS] Creating cluster node <vector len='1'>
00001e30.00002224::2010/12/07-15:52:25.371 INFO <item>ClusSvc</item>
00001e30.00002224::2010/12/07-15:52:25.371 INFO </vector>
00001e30.00000864::2010/12/07-15:52:25.371 INFO [StartupConfig]: Initializing.
00001e30.00000864::2010/12/07-15:52:25.371 INFO [StartupConfig]: Local node name: MSK-MAIL1.
00001e30.00000864::2010/12/07-15:52:25.371 ERR [CS] Service CreateNodeThread Failed, ERROR_FILE_NOT_FOUND(2)' because of 'Open parameters key failed.'
00001e30.00000864::2010/12/07-15:52:25.371 ERR 000007fe:fddaaa7d( ERROR_MOD_NOT_FOUND(126) )
00001e30.00000864::2010/12/07-15:52:25.371 ERR 00000000:0109f650( ERROR_MOD_NOT_FOUND(126) )
00001e30.00000864::2010/12/07-15:52:25.371 ERR 00000000:00f1a260( ERROR_MOD_NOT_FOUND(126) )
00001e30.00000864::2010/12/07-15:52:25.371 ERR 00000000:ff96a368( ERROR_MOD_NOT_FOUND(126) )
00001e30.00000864::2010/12/07-15:52:25.371 ERR 00000000:0109f5c0( ERROR_MOD_NOT_FOUND(126) )
00001e30.00000864::2010/12/07-15:52:25.371 ERR 00000001:e06d7363( ERROR_MOD_NOT_FOUND(126) )

Sorry to reply to this old thread - just wanted to add a few comments as I've seen this even 1090 in an Exchange 2013 disaster recovery scenario.
Unfortunately in my case we had a 2 node Exchange 2013 DAG where both nodes had lost their cluster configuration and we had this error on both nodes when trying to start the cluster service. Datacenter Activation Coordination (DAC) mode was enabled on the
database and Stop-DatabaseAvailabilityGroup had been run against both AD sites (warning: please note this command actually clears the clusterconfigurations - it's not just a "stop and do nothing" command). The original filesharewitness (third site)
was unavailable. Restore-DatabaseAvailabilityGroup, Start-DatabaseAvailabilityGroup, net start clussvc /forcequorum (/fq) and lots of other tricks failed.
Eventually we had to:
1. Remove database replica from one node
2. Remove the node from the original DAG
3. Create a new DAG on the now "clean" node
4. Mount the database in the new DAG using database portability feature - see:
http://technet.microsoft.com/en-us/library/dd876926(v=exchg.150).aspx
This involved:
4a. An ESEUTIL /R E00 command against the old database
4b. Create a new database (used gui)
4c. Set-MailboxDatabase <DatabaseName> -AllowFileRestore $true against new database
4d. Move E00* and *.edb files from old database to new database directory and rename the edb file to its new name
4e. Mount-Database
4f. Get-Mailbox -Database <SourceDatabase> |where {$_.ObjectClass -NotMatch '(SystemAttendantMailbox|ExOleDbSystemMailbox)'}| Set-Mailbox -Database <TargetDatabase>
(at this point the mail service was re-established, Outlook clients started connecting again and queued mail was delivered to mailboxes)
4g. Get-Mailbox -Database <SourceDatabase> -Arbitration | Set-Mailbox -Database <TargetDatabase> -Arbitration
5. Remove the remaining remants of the original database and the original DAG from the second node
6. Join the second node to the new DAG
7. Re-establish database replication
Note: we used the "cluster node /forcecleanup" command and the -ConfigurationOnly switch for some of the powershell commands a few times for the above procedures to work.
Theoretically I would have thought the Restore-DatabaseAvailabilityGroup command should have given a "clean" cluster node (cluster node /forcecleanup) its cluster configuration based on the DAG configuration stored in Active Directoy but it seems
that's not how it works. Creating a new DAG works though so there must be some underlying commands in the Restore-DatabaseAvailabiltyGroup command that requires the cluster configuration to be at least partly present. Luckily creating a new DAG and using the
database portability feature saved the day for us - definitely something I will remember if I'm ever involved in a similar disaster again.

Rows as columns and dynamic alv display

Hi everyone,
I need to build a intenal table dynamically as well as dispaly few rows as columns in alv output.
I have seen posts where internal table has been created dynamicaaly as well seen the posts where rows of the table are displayed as columns but, can we achieve both the functionalities at same time.
I have table as:
SO     PO     Date    MAT    QTY
1        A       X    Y1      10
                       K1      15
                       M2      11
2       B       X1     Y2       5
                       M1      12
3       C       1x     Z1      15
                       K1       6
                       L1      10
Now the ouput has to be :
SO     PO   Date     MAT-Y1    MAT-K1    MAT-Y2   MAT-L1     Mat-Z1    MAT-M1   MAT-M2
1        A     X      10          15                                               11
2        B     X1                         5                             12
3        C     1X                  6                10          15
I will not be knowing the number of materials untill runtime(dynamic) and as well the rows has to be displayed as columns. Is it possible to do that.
Regards
Edited by: Madhu Posanipalli on Jun 6, 2011 4:51 PM

Hi,
Check below code. It will work definitly.
*& Report YTEST_PROG_RP
REPORT YTEST_PROG_RP.
type-POOLs slis.
TYPES: BEGIN OF ty_tab,
    so TYPE i,
    po TYPE c,
    date(2) TYPE c,
    mat(2) TYPE c,
    qty TYPE i,
END OF ty_tab.
DATA: itab TYPE STANDARD TABLE OF ty_tab INITIAL SIZE 0,
      jtab TYPE STANDARD TABLE OF ty_tab INITIAL SIZE 0,
      ktab TYPE STANDARD TABLE OF ty_tab INITIAL SIZE 0,
      wa_tab TYPE ty_tab, wa_j TYPE ty_tab, wa_k TYPE ty_tab.
FIELD-SYMBOLS: <t_dyntable> TYPE STANDARD TABLE,
               <fs_dyntable>,
               <fs_fldval> type any.
*ALV data declarations
data: fieldcatalog type LVC_T_FCAT, " with header line, "slis_t_fieldcat_alv with header line,
      fieldcatalog1 TYPE LVC_s_FCAT,
      fieldcatalog2 type slis_t_fieldcat_alv with header line,
      gd_tab_group type slis_t_sp_group_alv,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid,
      gt_events     type slis_t_event,
      gd_prntparams type slis_print_alv.
DATA t_newtable TYPE REF TO data.
DATA t_newline TYPE REF TO data.
DATA wa_flname TYPE string.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform dynamic_table.
perform build_layout.
perform build_events.
perform build_print_params.
perform display_alv_report.
*&      Form BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
form build_fieldcatalog.
DATA: lv_field1 TYPE string, lv_cnt LIKE sy-tabix VALUE 3, itab_lines TYPE i.
DATA: fieldname(20) TYPE c.
DATA: fieldvalue(10) TYPE c.
DATA: index(3) TYPE c.
DATA: wa_cat LIKE LINE OF fieldcatalog2,
wa_colno(2) TYPE n,
wa_flname(5) TYPE c. .
fieldcatalog1-fieldname   = 'SO'.
fieldcatalog1-seltext   = 'SO'.
fieldcatalog1-col_pos     = 1.
fieldcatalog1-outputlen   = 2.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
append fieldcatalog1 to fieldcatalog.
clear fieldcatalog1.
fieldcatalog1-fieldname   = 'PO'.
fieldcatalog1-seltext   = 'PO'.
fieldcatalog1-col_pos     = 2.
fieldcatalog1-outputlen   = 2.
append fieldcatalog1 to fieldcatalog.
clear fieldcatalog1.
fieldcatalog1-fieldname   = 'DATE'.
fieldcatalog1-seltext   = 'Date'.
fieldcatalog1-col_pos     = 3.
fieldcatalog1-outputlen   = 2.
append fieldcatalog1 to fieldcatalog.
clear fieldcatalog1.
LOOP AT itab INTO wa_tab.
    lv_cnt = lv_cnt + 1.
    CONCATENATE 'MAT-' wa_tab-mat into lv_field1.
    TRANSLATE lv_field1 TO UPPER CASE.
    fieldcatalog1-fieldname   = lv_field1.
   fieldcatalog1-seltext   = lv_field1.
    fieldcatalog1-col_pos     = lv_cnt.
    fieldcatalog1-outputlen   = 6.
    append fieldcatalog1 to fieldcatalog.
    clear fieldcatalog1.
    CLEAR: lv_field1, wa_tab.
ENDLOOP.
CLEAR lv_cnt.
Create dynamic internal table and assign to FS
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = fieldcatalog
    IMPORTING
      ep_table        = t_newtable.
ASSIGN t_newtable->* TO <t_dyntable>.
CREATE DATA t_newline LIKE LINE OF <t_dyntable>.
ASSIGN t_newline->* TO <fs_dyntable>.
DESCRIBE TABLE fieldcatalog LINES itab_lines.
loop at fieldcatalog INTO fieldcatalog1.
    CLEAR wa_cat.
    wa_cat-fieldname = fieldcatalog1-fieldname.
    wa_cat-seltext_s = fieldcatalog1-fieldname.
    wa_cat-outputlen = fieldcatalog1-outputlen.
    APPEND wa_cat TO fieldcatalog2.
    CLEAR fieldcatalog1.
ENDLOOP.
endform.                    " BUILD_FIELDCATALOG
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
form build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
gd_layout-totals_only        = 'X'.
gd_layout-f2code            = 'DISP'. "Sets fcode for when double
                                        "click(press f2)
gd_layout-zebra             = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text       = 'helllllo'.
endform.                    " BUILD_LAYOUT
*&      Form DISPLAY_ALV_REPORT
      Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
           i_callback_program      = gd_repid
           i_callback_top_of_page   = 'TOP-OF-PAGE' "see FORM
           i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
           is_layout               = gd_layout
            it_fieldcat             = fieldcatalog2[]
           it_special_groups       = gd_tabgroup
           it_events               = gt_events
           is_print                = gd_prntparams
           i_save                  = 'X'
           is_variant              = z_template
       tables
            t_outtab                = <t_dyntable>
       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_REPORT
*&      Form DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
DATA: lv_index LIKE sy-tabix.
wa_tab-so = 1.
wa_tab-po = 'A'.
wa_tab-date = 'X'.
wa_tab-mat = 'Y1'.
wa_tab-qty = 10.
append wa_tab to itab.
clear wa_tab.
wa_tab-mat = 'K1'.
wa_tab-qty = 15.
append wa_tab to itab.
CLEAR wa_tab.
wa_tab-mat = 'M2'.
wa_tab-qty = 11.
append wa_tab to itab.
CLEAR wa_tab.
wa_tab-so = 2.
wa_tab-po = 'B'.
wa_tab-date = 'X1'.
wa_tab-mat = 'Y2'.
wa_tab-qty = 5.
append wa_tab to itab.
CLEAR wa_tab.
wa_tab-mat = 'M1'.
wa_tab-qty = 12.
append wa_tab to itab.
CLEAR wa_tab.
wa_tab-so = 3.
wa_tab-po = 'C'.
wa_tab-date = '1x1'.
wa_tab-mat = 'Z1'.
wa_tab-qty = 15.
append wa_tab to itab.
CLEAR wa_tab.
wa_tab-mat = 'K1'.
wa_tab-qty = 6.
append wa_tab to itab.
CLEAR wa_tab.
wa_tab-mat = 'L1'.
wa_tab-qty = 10.
append wa_tab to itab.
CLEAR wa_tab.
LOOP AT itab INTO wa_tab.
    if wa_tab-so is NOT INITIAL AND wa_tab-po is NOT INITIAL AND wa_tab-date is NOT INITIAL.
      wa_j-so = wa_tab-so.
      wa_j-po = wa_tab-po.
      wa_j-date = wa_tab-date.
      lv_index = wa_tab-so.
    else.
      READ TABLE itab INTO wa_j WITH KEY so = lv_index.
    ENDIF.
    wa_j-mat = wa_tab-mat.
    wa_j-qty = wa_tab-qty.
    APPEND wa_j to jtab.
    CLEAR: wa_tab, wa_j.
ENDLOOP.
endform.                    " DATA_RETRIEVAL
Form TOP-OF-PAGE                                                 *
ALV Report Header                                                 *
Form top-of-page.
**ALV Header declarations
*data: t_header type slis_t_listheader,
     wa_header type slis_listheader,
     t_line like wa_header-info,
     ld_lines type i,
     ld_linesc(10) type c.
Title
wa_header-typ = 'H'.
wa_header-info = 'EKKO Table Report'.
append wa_header to t_header.
clear wa_header.
Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
              sy-datum+4(2) '.'
              sy-datum(4) INTO wa_header-info.   "todays date
append wa_header to t_header.
clear: wa_header.
Total No. of Records Selected
describe table it_ekko lines ld_lines.
ld_linesc = ld_lines.
concatenate 'Total No. of Records Selected: ' ld_linesc
                   into t_line separated by space.
wa_header-typ = 'A'.
wa_header-info = t_line.
append wa_header to t_header.
clear: wa_header, t_line.
call function 'REUSE_ALV_COMMENTARY_WRITE'
      exporting
           it_list_commentary = t_header.
           i_logo             = 'Z_LOGO'.
endform.                    "top-of-page
      FORM USER_COMMAND                                          *
      --> R_UCOMM                                                *
      --> RS_SELFIELD                                            *
FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
   WHEN '&IC1'.
Check field clicked on within ALVgrid report
   IF rs_selfield-fieldname = 'EBELN'.
    Read data table, using index of row user clicked on
     READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
    Set parameter ID for transaction screen field
     SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
    Sxecute transaction ME23N, and skip initial data entry screen
     CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
   ENDIF.
ENDCASE.
ENDFORM.                    "user_command
*&      Form BUILD_EVENTS
      Build events table
form build_events.
data: ls_event type slis_alv_event.
call function 'REUSE_ALV_EVENTS_GET'
      exporting
           i_list_type = 0
      importing
           et_events   = gt_events[].
read table gt_events with key name = slis_ev_end_of_page
                          into ls_event.
if sy-subrc = 0.
   move 'END_OF_PAGE' to ls_event-form.
   append ls_event to gt_events.
endif.
   read table gt_events with key name = slis_ev_end_of_list
                          into ls_event.
if sy-subrc = 0.
   move 'END_OF_LIST' to ls_event-form.
   append ls_event to gt_events.
endif.
endform.                    " BUILD_EVENTS
*&      Form BUILD_PRINT_PARAMS
      Setup print parameters
form build_print_params.
gd_prntparams-reserve_lines = '3'.   "Lines reserved for footer
gd_prntparams-no_coverpage = 'X'.
endform.                    " BUILD_PRINT_PARAMS
*&      Form END_OF_PAGE
form END_OF_PAGE.
data: listwidth type i,
        ld_pagepos(10) type c,
        ld_page(10)    type c.
write: sy-uline(50).
skip.
write:/40 'Page:', sy-pagno .
endform.                    "END_OF_PAGE
*&      Form END_OF_LIST
form END_OF_LIST.
data: listwidth type i,
        ld_pagepos(10) type c,
        ld_page(10)    type c.
skip.
write:/40 'Page:', sy-pagno .
endform.                    "END_OF_LIST
*&      Form dynamic_table
      text
--> p1        text
<-- p2        text
FORM dynamic_table .
DATA: lv_s1 TYPE string, lv_s2 TYPE string.
DATA lv_mat TYPE string.
DATA: fieldvalue(10) TYPE c.
ktab[] = jtab[].
delete ADJACENT DUPLICATES FROM ktab COMPARING so.
loop at ktab INTO wa_tab.
Field1
    wa_flname = 'SO'.
    fieldvalue = wa_tab-so.
    CONDENSE    fieldvalue NO-GAPS.
    ASSIGN COMPONENT wa_flname
        OF STRUCTURE <fs_dyntable> TO <fs_fldval>.
    <fs_fldval> = fieldvalue.
    CLEAR fieldvalue.
Field2
    wa_flname = 'PO'.
    fieldvalue = wa_tab-po.
    CONDENSE    fieldvalue NO-GAPS.
    ASSIGN COMPONENT wa_flname
        OF STRUCTURE <fs_dyntable> TO <fs_fldval>.
    <fs_fldval> = fieldvalue.
    CLEAR fieldvalue.
Field3
    wa_flname = 'DATE'.
    fieldvalue = wa_tab-date.
    CONDENSE    fieldvalue NO-GAPS.
    ASSIGN COMPONENT wa_flname
        OF STRUCTURE <fs_dyntable> TO <fs_fldval>.
    <fs_fldval> = fieldvalue.
    CLEAR fieldvalue.
    loop at jtab INTO wa_j WHERE so = wa_tab-so.
      CONCATENATE 'MAT-' wa_j-mat INTO lv_mat.
      wa_flname = lv_mat.
      fieldvalue = wa_j-qty.
      CONDENSE    fieldvalue NO-GAPS.
      ASSIGN COMPONENT wa_flname
          OF STRUCTURE <fs_dyntable> TO <fs_fldval>.
      <fs_fldval> = fieldvalue.
      CLEAR: wa_j, fieldvalue.
    ENDLOOP.
    APPEND <fs_dyntable> TO <t_dyntable>.
    CLEAR wa_tab.
    FREE <fs_dyntable>.
ENDLOOP.
ENDFORM.                    " dynamic_table
Ram.

Are field symbols and Dynamic internal tables consistant?

Hi,
Are field symbols and Dynamic internal tables
always consistent?
In my program I m creating a dynamic itab and assignig values to it using <FS>, sometimes the program fails to execute assign <Fs> statement...
this happens once in 3 to 4 runs
any solution...
I have proper clear and refresh statements in program.
Thanks,
Hardik

Anurag,
Thanks for a quick reply. Here I am sending a small piece of my code.
MOVE-CORRESPONDING OUTTAB TO DYNTAB.
      CLEAR IT_UDATE.
      CLEAR : T_KBETR .
      READ TABLE IT_UDATE WITH KEY UDATE = OUTTAB-UDATE.
      CONCATENATE 'DYNTAB-KBETR' IT_UDATE-CO_POS INTO T_KBETR.
      ASSIGN (T_KBETR) TO <FS> .
      SUBRC5 = SY-SUBRC .
      IF SUBRC5 = 0 .
          <FS> = OUTTAB-KBETR .
      ENDIF .
read statement will always return CO_POS .
while debuging this code a few times
<b>ASSIGN (T_KBETR) TO <FS> .</b>
returns sy-subrc = 4
and that was leading the program to short dump earlier.
now, as I have a check DYNTAB-KBETR holds no value on display.
this happens very few times. (most of the times report is displaying desired output)
Thanks,
Hardik

Dynamic Work Area and field symbol

Hi All,
I'm have a big internal table like this
data: begin of data occurs 0,
Field01,
Field02,
Field03,
*bucket 1
Field04,
Field05,
Field06,
*bucket 2
Field04,
Field05,
Field06,
*bucket 3
Field04,
Field05,
Field06,
Field 1, 2 3 will be the same for pernr, first last name.
Field 4, 5, 6 are the same format but different numbers (or values ) in different buckets.
Each bucket can be shown (or not) based on the condition of a person, for example if that person live in 2 states, it will show 2 bucket with 2 address info inside each.
I will run this under get pernr to sort out each person who have many address or not.
Can I use dynamic work area and field symbol here? if I can, how?
Really appreciate your help with points...

You can use the ASSIGN COMPONENT ... and than APPEND the work area to the table.
Check out this sample program:
REPORT ZTEST_NP.
DATA: BEGIN OF ITAB OCCURS 0,
      F1    TYPE I,
      F2    TYPE I,
      F3    TYPE I,
      END   OF ITAB.
DATA: WA_ITAB LIKE ITAB.
DATA: L_CNT TYPE I.
FIELD-SYMBOLS: <F_FLD> TYPE ANY.
DO 10 TIMES.    " I want 10 reocrds
CLEAR L_CNT.
DO 3 TIMES.   " I have 3 fields
    L_CNT = L_CNT + 1.
    ASSIGN COMPONENT L_CNT OF STRUCTURE WA_ITAB TO <F_FLD>.
    <F_FLD> = L_CNT.
ENDDO.
APPEND WA_ITAB TO ITAB.
CLEAR ITAB.
ENDDO.
LOOP AT ITAB INTO WA_ITAB.
WRITE: / WA_ITAB-F1,
           WA_ITAB-F2,
           WA_ITAB-F3.
ENDLOOP.
Regards,
Naimesh Patel

Dynamic radio button and group

Hi, we have create dynamic radio button and group on “application creation complete” event , but which I am try to get number of radio button its show zero, see below code
import flash.utils.setTimeout;
import mx.controls.Alert;
import mx.events.FlexEvent;
import spark.components.RadioButton;
import spark.components.RadioButtonGroup;
private var rbg:RadioButtonGroup;
private var rb1:RadioButton;
private var rb2:RadioButton;
private var dcount:int = 0;
protected function application1_creationCompleteHandler(event:FlexEvent):void
     // TODO Auto-generated method stub
     // TODO Auto-generated method stub
     rb1 = new RadioButton();
     rb2 = new RadioButton();
     rbg = new RadioButtonGroup();
     rb1.label = "Radio1";
     rb2.label = "Radio2";
     rb1.group = rbg;
     rb2.group = rbg;
     vbox1.addChild(rb1);
     vbox1.addChild(rb2);
     checkRadioButton ();
protected function checkRadioButton ():void
     Alert.show("In checkRadioButton function : " + rb1.group.numRadioButtons.toString());
If I put some Time interval to call checkRadioButton function its working fine,
//checkRadioButton ();
setTimeout(checkRadioButton,1000);
but this is not best practice.
why this happen ….can anybody clear this or any other way to do this.
Thanks in advance

@manjeet.patel,
Just write the below line of code
vbox1.validateNow();
You need not use setTimeout() function
vbox1.addChild(rb1);
vbox1.addChild(rb2);
vbox1.validateNow();
Thanks,
Bhasker

Clearing an Dynamic Cluster -HSRP and Dynamic Cluster -NAT ACL configuration

Similar Messages

Maybe you are looking for