Cin node and c++ code

Hi.
I need to make a LabVIEW program to call and use c++ code. Not only calculate numbers using the c++ code, the LabVIEW program needs to send boolian signals and be able to talk to the c++ code. Such things possible? Any good article or information to teach how to do it?
Thank you.
Airo

I'm not sure why it shouldn't be possible. At least as long as you are somewhat C savy and know how to configure your C compiler and linker to create specific output. However to be honest I think CIN programming has had its days. It does not really have that many advantages anymore but definitely some disadvantages above calling an external shared library through the Call Library Node.
As a reference about CIN or DLL usage in LabVIEW I recommend the online help documentation Using External Code in LabVIEW accessible through Help->Shearch the LabVIEW Bookshelf.
Rolf K
Rolf Kalbermatter
CIT Engineering Netherlands
a division of Test & Measurement Solutions

Similar Messages

Move code between MathScript Node and MathScript Window

It seems like there should be some way to easily move between the MathScript Node, block diagram view and the MathScript Window.
All I can find is saving to a script and reloading in the other view.
Am I missing something?

Hi wildcatherder,
That seems to be the only way that I've been able to see to interface the MathScript Node and the MathScript Window.
Is there a particular reason you're switching back and forth between the two?
Regards,
Joel I.
Applications Engineer
National Instruments

Using cin node in labview error happen

my name is Juan Chen , I wish to use cin node to calculate crc check code in la view. I use an array as input and a unsigned word as output. when I use while loop, error not enough memory or the memory can only read happen. what is the reason,please.

how to use the call library function node ? in vcplusplus6 environment , if I only do rebuild all that can generate a dll, and don't use command to convert to lsb file. could I need add files cin.obj, labview.lsvb,etl to the project ?

CIN node executes slower in LabVIEW 7.0 then 6.0.2

I have a VI that uses a CIN node to access a digital camera, recieve viewfinder data and return the data. This data is in turn displayed in a picture control, creating a real-time display on the front panel that shows what the camera is seeing. The whole process worked flawlessly in 6.0.2, the frame rate was fine. I recently upgraded to 7.0 and now the same VI runs a lot slower and the frame-rate has significantly slowed down (a drastic drop to about one frame per 5-10 seconds). I have watched the execution of the problem and have narrowed the problem down to the CIN node. I am wondering if anyone else has a solution/is experiencing the same problem. Any help will be greatly appreciated and the giver of such - worshipped
for generations to come.

Nevermind, found the answer. The CIN node wasn't declared to be "thread-safe" which caused the poor performance. All I had to do was add a snippet of code into my source code and the VI works like new. The code is available in the "Using External Code with LabVIEW" manual.

Can a CIN node raise an event?

Just curious. I am able to pass the event struture to a CIN node it appears as "LVUserEventRef *userEvent" (and I found 'typedef MagicCookie LVUserEventRef;' in extcode.h). But I am unable to find "cookie.cpp" mentioned in extcode.h So is the information available somewhere about this ???

Unfortunately the information you are looking for is part of the source code for LabVIEW and is National Instruments Confidential. It cannot be release to the public. I'm sorry for any inconvenience this creates.
Robert Mortensen
Software Engineer
National Instruments

Strange behaviour with ActiveX invoke node and Excel

I want to send a table of numbers from LV50.1f to Excel97. After getting a
reg to Excel8.Application I retrieve the Workbooks property, Invoke Item to
select a certain Workbook reference, retrieve the Worksheets collection
reference, Invoke Item and then get a reference to WORKBOOKS again.
Strangely, there is an example code from the NI web site that does exactly
the same, but in the last step a variant is returned in stead of a
reference, which is converted using Variant to G to a Worksheet reference.
when I copied that last invoke node to my VI I also had a variant returned,
so on one diagram I had to invoke nodes connected to the same sources, one
returning a ref, the other returning a variant!
Disco
nnecting the sources to my Invoke node and rewiring gave no change.
Also type casting the ref to workbooks to a worksheets ref, didn't work - I
get errors in the following property node that retrieves a Range - which
exists in Worksheet, but not in Workbooks.
Appearantly, LV gets the returned type mixed up sometimes, and there is no
way to fix it other then copying a invoke node from another diagram?
Finally I got it working though, but this behaviour puzzles me. Contrary to
the example from NI, I now managed to send a table (2d array of strings) in
one call to Excel (don;t need to loop over cells or columns).
PS
I used to do the same using DDE but ranges are different for each language
version of Excel (i.e. R1C1 for English and R1K1 for Dutch), so my VI's need
to know the language of Excel. Also with NT and Win98, getting a DDE
connection often hangs LV. But a big progress has been made - now I need
different VI's for each version of Excel!!!
Ferry Toth
Enraf BV, The Netherlan
ds

Hi Enric,
Can you try your queries again using the new release of DB XML? It contains some improvements in this area.
http://www.oracle.com/technology/software/products/berkeley-db/xml/index.html
John

Move node and its silings from one jtree to another

Hi,
I am trying to move JTree nodes and its siblings from one JTree to another. If anyone has the code, please post it on the website or mail to [email protected]
Thanks
Pavan

Pavan,
You may have to do a sanity check before adding it.
Better run the program in a debugger and have a break point at the clipBoard.put() line. Else system.out.println() lines will kill enormouse programming time rather than using debugger.
Also in following this thread, i found that you may have to be bit more thorough with the DefaultMutableTreeNode class first.
Thanks,
ananth
Thomas,
for (int p = 0; p < jtree.getSelectionCount(); p++) {
               System.out.println(".3.......p= "+p);
node =
=
(EuamDefaultMutableTreeNode)paths[p].getLastPathCompon
nt();
                    clipBoard.put(node.toString(), node);
               System.out.println(".4...........");
Giving error at clipBoard.put()
line....java.lang.NullPointerException
..Any idea why?
Thanks.
Pavan

How to create a new node and its subnodes(zreports) in Transaction SRET

Hi Expets,
My requirement is to create a new node and subnodes(zreports) in the Transaction SRET.
Where as i am able to create a subnode(zreports) under the existing node but not able to create a New Node and
Subnodes(zreports) under it.
To create the subnodes(zreports) i used Transaction SERP and i was able to create the new node in SERP but not able to find it in SRET.
So please help me out.
Thanks,
Krishna

Dear Pushpa,
Transaction Code :SHD0 is working fine.
Please accept my sincere thanks for your sharing your Knowledge.
I am able to fulfill my
Regarding the enhancement, I have not tried.
Once I will complete, I will award the fulll marks to you.
With Best Regards,
Raghu Sharma

Dynamic creation of context nodes and ui elements

Hi,
I have created context nodes dynamically. And i also want to create UI elements dynamically wherein i want to bind the attribute from the context node to it. For example i want to create a drop down by index and bind one of the attributes in the context nodes that i have earlier created dynamically to it. I do not know how to get the path to the attribute as i get IF_WD_CONTEXTNODE_INFO when i say get_child_node(). And the IF_WD_CONTEXTNODE_INFO does not have any method where in i can get IF_WD_CONTEXT_NODE from where i can get the path by get_meta_path( )
Here is the code. The problem is to get the path which is the i/p to cl_wd_dropdown_by_idx=>new_dropdown_by_idx( ) method.
DATA:
        lo_root_ui_elmnt              TYPE REF TO cl_wd_uielement_container,
        lo_drpdwn_by_idx              TYPE REF TO cl_wd_dropdown_by_idx,
        lo_txt_vw                     TYPE REF TO cl_wd_text_view,
        lo_qstn_node                  TYPE REF TO if_wd_context_node,
        lo_optn_node_info             TYPE REF TO if_wd_context_node_info,
        lv_optn_data_source_name      TYPE string,
        lt_child_nodes                TYPE wdr_context_child_map,
        lo_qstn_el                    TYPE REF TO if_wd_context_element,
        lo_optn_el                    TYPE REF TO if_wd_context_element,
        lv_text                       TYPE string,
        lo_qstn_node_info             TYPE REF TO if_wd_context_node_info.
FIELD-SYMBOLS:
*                 <ls_qstn>    LIKE LINE OF wd_this->mt_questions.
                <ls_child_node>         LIKE LINE OF lt_child_nodes.
lo_root_ui_elmnt ?= io_view->get_root_element( ).
lt_child_nodes = wd_context->get_child_nodes( ).
LOOP AT lt_child_nodes ASSIGNING <ls_child_node>.
   lo_qstn_node = <ls_child_node>-node.
    lo_qstn_el = lo_qstn_node->get_element( index = 1 ).
    lo_qstn_el->get_attribute(
          EXPORTING
            name = 'QUESTION_TEXT'
           IMPORTING
             value = lv_text ).
    lo_txt_vw =   cl_wd_text_view=>new_text_view( view = io_view ).
    lo_txt_vw->set_text( value = lv_text ).
    lo_qstn_node_info = lo_qstn_node->get_node_info( ).
    lo_optn_node_info = lo_qstn_node_info->get_child_node( 'OPTIONS' ).
*    lv_optn_data_source_name = lo_optn_node_info->get_meta_path( withoutcontroller = abap_true ).
*    CONCATENATE lv_optn_data_source_name '.' 'OPTION_TEXT' INTO lv_optn_data_source_name.
    lo_drpdwn_by_idx = cl_wd_dropdown_by_idx=>new_dropdown_by_idx(
                          bind_texts = lv_optn_data_source_name
                          view       = io_view ).
    lo_root_ui_elmnt->add_child( lo_txt_vw ).
    lo_root_ui_elmnt->add_child( lo_drpdwn_by_idx ).
ENDLOOP.
Regards,
Madhura Lobo
Edited by: Suhas Saha on Aug 2, 2011 11:04 AM

Hi Madhura,
Please check this thread and find Baskaran answer...
create new child-node in supply-function
Re: Creating Dynamic Node and Table
Cheers,
Kris.

How to Create Instances in the Transient Root Node and Sub Nodes from Root Node Query Method ?

Hi All,
I am Creating a BOPF BO with 3 Nodes,
Node 1) ROOT -- > contains a query,
using Root Node I have created Search UIBB Configuration in FBI.
In testing -- > when i enter Data in the Search Criteria Fields am able to get the details in to the query method
from Imporing parameter : 'IT_SELECTION_PARAMETERS'.
HERE I am fetching data from a standard table and trying to fill the data in the Node : 'MNR_SEARCH_RESULT'.
How to Append data to the Sub node 'MNR_SEARCH_RESULT' when there is no Node instance created in the ROOT Node ?
For This I have created an instance in the ROOT Node and Using that I tried to create Instance in the Sub Node 'MNR_SEARCH_RESULT'.
Below is my code which i have placed in the Query method ..
DATA : LR_DATA TYPE REF TO ZBO_S_ROOT1.
DATA : LR_SEARCH_RES TYPE REF TO ZBO_S_MNR_SEARCH_RESULT.
DATA : LO_CI_SERVICE_MANAGER TYPE REF TO /BOBF/IF_TRA_SERVICE_MANAGER,
        LO_TRANSACTION_MANAGER TYPE REF TO /BOBF/IF_TRA_TRANSACTION_MGR.
   LO_CI_SERVICE_MANAGER = /BOBF/CL_TRA_SERV_MGR_FACTORY=>GET_SERVICE_MANAGER( IV_BO_KEY = ZIF_BO_TEST_PO_C=>SC_BO_KEY ).
   LO_TRANSACTION_MANAGER = /BOBF/CL_TRA_TRANS_MGR_FACTORY=>GET_TRANSACTION_MANAGER( ).
CREATE DATA LR_DATA.
LR_DATA->KEY = LO_CI_SERVICE_MANAGER->GET_NEW_KEY( ).
LR_DATA->ROOT_KEY   = IS_CTX-ROOT_NODE_KEY.
LR_DATA->PIPO_MAT_ID = '100100'.
LR_DATA->PIPO_MAT_DESC = 'MATERIAL'.
LR_DATA->PIPO_SPRAS = 'E'.
LR_DATA->PIPO_MATL_TYPE = 'ZPMI'.
LR_DATA->PIPO_MATL_GROUP = 'ZKK'.
     DATA lt_mod      TYPE /bobf/t_frw_modification.
     DATA lo_change   TYPE REF TO /bobf/if_tra_change.
     DATA lo_message TYPE REF TO /bobf/if_frw_message.
     FIELD-SYMBOLS: <ls_mod> LIKE LINE OF lt_mod.
    APPEND INITIAL LINE TO lt_mod ASSIGNING <ls_mod> .
    <ls_mod>-node        =   ZIF_BO_TEST_PO_C=>sc_node-ROOT.
    <ls_mod>-change_mode = /bobf/if_frw_c=>sc_modify_create.
    <ls_mod>-key         = LR_DATA->KEY.
    <ls_mod>-data        = LR_DATA.
DATA : LT_CHG_FIELDS TYPE /BOBF/T_FRW_NAME.
DATA : LS_CHG_FIELDS LIKE LINE OF LT_CHG_FIELDS.
DATA : LV_KEY TYPE /BOBF/CONF_KEY.
CALL METHOD IO_MODIFY->CREATE
   EXPORTING
     IV_NODE            = ZIF_BO_TEST_PO_C=>sc_node-ROOT
     IV_KEY             = LR_DATA->KEY
     IS_DATA            = LR_DATA
     IV_ROOT_KEY        = IS_CTX-ROOT_NODE_KEY
   IMPORTING
     EV_KEY             = LV_KEY .
CREATE DATA LR_SEARCH_RES.
LR_SEARCH_RES->KEY           = LO_CI_SERVICE_MANAGER->GET_NEW_KEY( )..
LR_SEARCH_RES->PARENT_KEY    = LV_KEY.
LR_SEARCH_RES->ROOT_KEY    = LV_KEY.
LR_SEARCH_RES->MATNR    = '123'.
LR_SEARCH_RES->ERSDA    = SY-DATUM.
LR_SEARCH_RES->ERNAM    = SY-UNAME.
**LR_SEARCH_RES->LAEDA    = .
**LR_SEARCH_RES->AENAM    = .
**LR_SEARCH_RES->VPSTA    = .
*LR_SEARCH_RES->LVORM    = .
LR_SEARCH_RES->MTART    = 'ZPI'.
LR_SEARCH_RES->MBRSH    = 'ZTP' .
LR_SEARCH_RES->MATKL    = 'MAT'.
**LR_SEARCH_RES->BISMT    = ''
**LR_SEARCH_RES->MEINS    =
CALL METHOD io_modify->create
           EXPORTING
             iv_node            = ZIF_BO_TEST_PO_C=>sc_node-MNR_SEARCH_RESULT
             is_data            = LR_SEARCH_RES
             iv_assoc_key       = ZIF_BO_TEST_PO_C=>sc_association-root-MNR_SEARCH_RESULT
             iv_source_node_key = ZIF_BO_TEST_PO_C=>sc_node-root
             iv_source_key      = LV_KEY
             iv_root_key        = LV_KEY.
I am Unable to set data to the Node . I did not get any error message or Dump while executing . when i tried to retrive data I got the details from the node but am unable to view those details in the FBI UI and BOBT UI while testing .
Please provide your valuable Suggestions.
Thanks in Adv.
Thanks ,
Kranthi Kumar M.

Hi Kranthi,
For your requirement you need only two nodes. Root Node and Result node. Use the same structure for both.
To create Instance while search.
Create Query method with input type which has the required fields for selection criteria.
Fetch the data and create instance in the root node.
Pass the new instance key as exporting parameter form Query Method.
To Move data from ROOT to Result.
Create a action at root node.
Write a code to create new entries in Result node.
Then configure the Search UIBB and display result in List UIBB. Add button and assign the action MOVE_MAT_2_RESULT.
Create another List uibb to display data from Result node.
Connect the UIBBs using wire schema. SEARCH -> LIST(ROOT) ---> LIST(RESULT).
Give src node association for ROOT to RESULT Configuration.
Regards,
Sunil

Dynamic Table control with context nodes and attributes?

Hi all
I have node and attributes in context. i want to create table dynamically using this node and attributes, can anyone give code how to do this???
Thanks
Madhan.

Hi
Go through this [link|http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/80a3de18-ee00-2d10-bfb3-946d7e00fd91?quicklink=index&overridelayout=true].
Regards
Arun.P

Setting Dialog, Tree Node and Menu Font in JDeveloper 11.1.1.4/11.1.1.5

Hi,
I'm near sighted and thus dependent on being able to choose larger fonts. For the code editor, this poses no problem. For the widgets in the views surrounding the editor (containing tree nodes) and dialogs (with the Preferences dialog being one example), the font is very small at high screen resolutions (I don't want to resort to a lower resolution since I would like the fonts to appear as detailed as possible).
Is there any way to override the menu, tree node, and dialog font via command line switches and/or property/config files during JDeveloper startup in a platform independent way?
If it can't be done platform independently, what are the necessary steps on Linux (probably for the GTK lib) and Windows?
Thanks in advance!
Kind regards,
Holger

I previously developed under full screen option and my PC resolution was 1600x1200. But when the application was ran on other screens it was displaying with some page contents being cut out. It was due to other machines running on lower resoultion. I will need now redesign the pages to run on user defined lower resolution of 1280x1024. How do I setup Jdeveloper design tab to show for 1280x1024.
Thanks
Edited by: user5108636 on Feb 14, 2011 5:23 PM

GL should not shown in NOT ASSIGNED node in T-Code: F.01

Dear Gurus,
My user don't want to show few GLs in FSV (i.e., in T-Code: F.01), that too in Non Assigned Node also.
Is there any setting for the same?
Regards
JS

There is no setting for that. The only way that I can think of is to put them in the G/L account exclusion list in the selection screen of F.01. Click on Multiple Selection icon next to G/L account from to fields and paste those accounts in Exclude Single Values tab. To get the list of accounts under not assigned node, execute T Code OB58, highlight the financial statement version and click on Fin.statement items button. Now click on Check (Ctrl+F5) icon and carry out the checks to get the list of not assigned accounts at the chart of accounts level or for a specific company code.
Tip: You can create a selection variant for F.01 with the excluded accounts, so you do not have to do this everytime you run F.01.

Adding Node and Deleting Node in Tree

Hi,
I am building a tree dynamically.
I have a class which has set of properties.I am constructing as follows.
public class TreeNode
        public function TreeNode()
     public var friendlyName:String;
     public var icon:Class;
     [Bindable]
     public var children : Array;
     public var logicalName:String;
     public var neType:String;
     [Bindable]
     public var arrayColl:ArrayCollection = new ArrayCollection();
     public function addChild(node:TopoTreeNode):void
         if (this.children == null){
             this.children = new Array();
         children.push(node);
         arrayColl.source = children;
     public function clearChild():void
         children = null;
     public function removeChild(arrayIndex:int):void
         if(children != null)
         children.splice(arrayIndex,1);
         arrayColl.source = children;
Then I set the dataProvider as follows where treeModel is object that is injected.
<mx:Tree id="tree"
             dataProvider="{treeModel.rootNode.arrayColl}"
             labelFunction="{treeModel.getDisplayName}"
             iconFunction="{treeModel.setIcon}"
             width="100%"
             height="95%"
             rowCount="6"
             showScrollTips="true" showDataTips="true" dataTipFunction="{treeModel.getDisplayName}" allowMultipleSelection="true" click="treeModel.displayItemInWorkingView(tree.selectedItems);"/>
TreeModel has the following variables
        [Bindable]
        public var rootNode:TopoTreeNode = new TopoTreeNode(); // this is the rootNode.
        [Bindable]
        public var rootChild:TopoTreeNode = new TopoTreeNode(); // this is the child of the root node..
While constructing the tree, it is working fine.
But after this when i try to add a node (ie adding a node as child to rootNode), it is getting added to my rootNode object but it is not getting displayed
When i click on the items in the tree or click on the drop menu in the tree it is getting displayed.
But i want it to be shown in the tree without clicking anything.
Could anyone help on this?
Regards
Srini

Off the top of my head, you need to call a refresh of some sort, or executeBindings()... something like that.
You will also need to start at the root node and expand any parent branches down to the new leaf.
If you are still having trouble after looking into that, I can try and dig through some of old code and find my solution.

Problem when filling Node and Item tables for the metho add_nodes_and_items

Hi Experts,
I am facing problem when filling Node and Item internal tables for the method add_nodes_and_items.
as i have written the below logic:
LOOP AT gt_partner INTO wa_partner.
    CLEAR lvs_tc_root.
    l_key = l_key + 1.
    lvs_tc_root-node_key   = l_key. "wa_partner-sndprn.
* lvs_tc_root-relatkey = lvf_tc_node_key.
* lvs_tc_root-relatship = cl_gui_column_tree=>relat_last_child.
    lvs_tc_root-last_hitem = wa_partner-sndprn.
    lvs_tc_root-hidden     = ' '.
    lvs_tc_root-disabled   = ' '.
    lvs_tc_root-isfolder   = 'X'.
    lvs_tc_root-n_image    = icon_folder.
    lvs_tc_root-exp_image = icon_folder.
    lvs_tc_root-expander   = 'X'.
    APPEND lvs_tc_root TO gvt_tc_node_table.
    CLEAR lvs_tc_root.
    lvs_tc_root-node_key   = 'A'. "Successfull
    lvs_tc_root-relatkey   = l_key.
    lvs_tc_root-relatship = cl_gui_column_tree=>relat_last_child.
    lvs_tc_root-last_hitem = wa_partner-sndprn.
    lvs_tc_root-hidden     = ' '.
    lvs_tc_root-disabled   = ' '.
    lvs_tc_root-n_image    = icon_green_light.
    APPEND lvs_tc_root TO gvt_tc_node_table.
    CLEAR lvs_tc_root.
    lvs_tc_root-node_key   = 'B'. "Errors
    lvs_tc_root-relatkey   = l_key    .
    lvs_tc_root-last_hitem = wa_partner-sndprn.
    lvs_tc_root-hidden     = ' '.
    lvs_tc_root-disabled   = ' '.
    lvs_tc_root-n_image    = icon_red_light.
    APPEND lvs_tc_root TO gvt_tc_node_table.
    CLEAR lvs_tc_root.
    lvs_tc_root-node_key = 'C'. "Deleted
    lvs_tc_root-relatkey = l_key .
    lvs_tc_root-last_hitem = wa_partner-sndprn.
    lvs_tc_root-hidden    = ' '.
    lvs_tc_root-disabled = ' '.
    lvs_tc_root-n_image   = icon_yellow_light.
    APPEND lvs_tc_root TO gvt_tc_node_table.
*   LOOP AT gt_partner_item INTO wa_partner_item WHERE sndprn = wa_partner-sndprn
    LOOP AT gt_partner INTO wa_partner_item WHERE sndprn = wa_partner-sndprn.
      CLEAR lvs_item.
      lvs_item-node_key   = l_key.
      lvs_item-item_name = 'Column1'.
      lvs_item-text       = wa_partner-sndprn.
      lvs_item-class      = cl_gui_column_tree=>item_class_text.
      APPEND lvs_item TO gvt_tc_item_table. CLEAR lvs_item.
      lvs_item-node_key   = 'A'.
      lvs_item-item_name = 'Column1'.
      lvs_item-text       = 'Successful'.
      lvs_item-class      = cl_gui_column_tree=>item_class_text.
      APPEND lvs_item TO gvt_tc_item_table. CLEAR lvs_item.
      lvs_item-node_key   = 'B'.
      lvs_item-item_name = 'Column1'.
      lvs_item-text       = 'Errors'.
      lvs_item-class      = cl_gui_column_tree=>item_class_text.
      APPEND lvs_item TO gvt_tc_item_table. CLEAR lvs_item.
      lvs_item-node_key   = 'C'.
      lvs_item-item_name = 'Column1'.
      lvs_item-text       = 'Deleted'.
      lvs_item-class      = cl_gui_column_tree=>item_class_text.
      APPEND lvs_item TO gvt_tc_item_table. CLEAR lvs_item.
    ENDLOOP.
ENDLOOP.
CALL METHOD go_tree->add_nodes_and_items
    EXPORTING
      node_table                     = gvt_tc_node_table
      item_table                     = gvt_tc_item_table
      item_table_structure_name      = 'MTREEITM'
    EXCEPTIONS
      failed                         = 1
      cntl_system_error              = 3
      error_in_tables                = 4
      dp_error                       = 5
      table_structure_name_not_found = 6.
If the internal table has more than 1 record getting dump...Runtime Errors         MESSAGE_TYPE_X
Plase let me know how to overcome the problem..
Thanks,
Rajasekhar
Edited by: RajasekharReddy Nevali on Nov 29, 2010 3:43 PM
Edited by: Neil Gardiner on Nov 30, 2010 12:41 PM

Hi ,
U can undestand the code and one more thing dynamically display record for automcally here i am using root nodes please look at that one Same requiremtn i done previously.
cLEAR item.
item-node_key = c_nodekey-root.    "partner1
item-item_name = c_column-column1.
item-class = cl_gui_column_tree=>item_class_text.
item-alignment = cl_gui_column_tree=>align_at_top.
item-font = cl_gui_column_tree=>item_font_prop.
item-text = 'APPLICATION'.
item-length = 30.
APPEND item TO item_table.
DATA:lv_name TYPE tv_itmname VALUE '1',
       lv_nkey TYPE i,
       lv_nkey2 TYPE i,
       lv_nkey_c TYPE string,
       lv_nkey_c2 TYPE string,
       lv_nkey_c3 TYPE string,
       lv_nkey_c4 TYPE string,
       LV_NKEY_C5 TYPE STRING,
       lv_itmkey TYPE i,
       lv_itmkey_c TYPE string,
       LV_INDEX TYPE I.
************************************************LOOP FOR APPLICATION*********
LOOP AT i_otypes INTO wa_otypes.
    read table it_appl into wa_appl with key appl = wa_otypes-applic." BINARY SEARCH.
          if sy-subrc = 0.
            lv_apdes = wa_appl-text1.
          endif.
    CLEAR:item,lv_nkey_c.
    lv_nkey_c = sy-tabix.
    LV_INDEX = SY-TABIX.
    CONDENSE lv_nkey_c.
    CONCATENATE 'N' lv_nkey_c INTO lv_nkey_c.
    node-node_key = lv_nkey_c.
    node-relatkey = c_nodekey-root.
    node-relatship = cl_gui_list_tree=>relat_last_child.
    node-isfolder = 'X'.
    APPEND node TO node_table.
    CLEAR item.
    item-node_key = lv_nkey_c.
    item-item_name = c_column-column1.
    item-class = cl_gui_column_tree=>item_class_text.
    item-font = cl_gui_column_tree=>item_font_prop.
    item-text = wa_otypes-APPLIC.
    item-length = 30.
    APPEND item TO item_table.
     CLEAR item.
      item-node_key = lv_nkey_c.
      item-item_name = c_column-column2.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = lv_apdes.
      item-length = 30.
      APPEND item TO item_table.
     v_acount = v_acount + 1.
     v_acount1 = v_acount1 + 1.
clear lv_apdes.
*****************************************LOOP FOR ARCHIV OBJECTS***************************
    loop at it_obj into wa_obj where applic = wa_otypes-applic.
      CLEAR:item,lv_nkey_c2.
      lv_nkey_c2 = SY-TABIX.
      CONDENSE lv_nkey_c2.
      CONCATENATE 'SN' lv_nkey_c2 INTO lv_nkey_c2.
      node-node_key = lv_nkey_c2.
      node-relatkey = lv_nkey_c.
      node-relatship = cl_gui_list_tree=>relat_last_child.
      node-isfolder = 'X'.
      APPEND node TO node_table.
      CLEAR item.
      item-node_key = lv_nkey_c2.
      item-item_name = c_column-column1.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = wa_obj-object.
      item-length = 30.
      APPEND item TO item_table.
      CLEAR item.
      item-node_key = lv_nkey_c2.
      item-item_name = c_column-column2.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = wa_obj-objtext.
      item-length = 30.
      APPEND item TO item_table.
****count all object for final displaying*******
     v_ocount1 = v_ocount1 + 1.
      LV_STR = LV_STR + 1.
     ENDLOOP.
*********************LOOP FOR ARCH OBJECT ALL PROGRAMS*******************************************
   LOOP AT IT_PRG INTO WA_PRG WHERE OBJECT = WA_OBJ-OBJECT.
****************1PRG**********************
IF wa_PRG-REORGA_PRG IS NOT INITIAL.
read table it_trdirt into wa_trdirt with key name = wa_prg-reorga_prg BINARY SEARCH.
              if sy-subrc = 0.
              lv_text = wa_trdirt-text.
              endif.
     CLEAR:item,lv_nkey_c3.
      data : v_no type sy-tabix.
      v_no = v_no + 1.
      lv_nkey_c3 = v_no.
      CONDENSE lv_nkey_c3.
      CONCATENATE 'SSN' lv_nkey_c3 INTO lv_nkey_c3.
      node-node_key = lv_nkey_c3.
      node-relatkey = lv_nkey_c2.
      node-relatship = cl_gui_list_tree=>relat_last_child.
      node-isfolder = 'X'.
      NODE-N_image =' '.
      APPEND node TO node_table.
       CLEAR NODE.
      CLEAR item.
      item-node_key = lv_nkey_c3.
      item-item_name = c_column-column1.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = 'WRIT'."wa_PRG-REORGA_PRG.
      item-length = 30.
      APPEND item TO item_table.
      CLEAR item.
      item-node_key = lv_nkey_c3.
      item-item_name = c_column-column2.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = 'WRITE PROGRAM'."lv_text."'WRITE PROGRAM'.
      item-length = 30.
      APPEND item TO item_table.
       clear lv_text.
************************SSSN NODE***********************
        CLEAR:item,lv_nkey_c4.
      data : v_no1 type sy-tabix.
      v_no1 = v_no1 + 1.
      lv_nkey_c4 = v_no1.
      CONDENSE lv_nkey_c4.
      CONCATENATE 'SSSN' lv_nkey_c4 INTO lv_nkey_c4.
      node-node_key = lv_nkey_c4.
      node-relatkey = lv_nkey_c3.
      node-relatship = cl_gui_list_tree=>relat_last_child.
     node-isfolder = 'X'.
      NODE-N_image =' '.
      APPEND node TO node_table.
       CLEAR NODE.
      CLEAR item.
      item-node_key = lv_nkey_c4.
      item-item_name = c_column-column1.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = wa_PRG-REORGA_PRG.
      item-length = 30.
      APPEND item TO item_table.
      CLEAR item.
      item-node_key = lv_nkey_c4.
      item-item_name = c_column-column2.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = lv_text."'WRITE PROGRAM'.
      item-length = 30.
      APPEND item TO item_table.
        clear lv_text.
*******COUNT TYPE WRITE PROGRAMS****************
      V_WCOUNT = V_WCOUNT + 1.
CLEAR item.
V_WCOUNT = V_WCOUNT.
      item-node_key = lv_nkey_c3.
      item-item_name = c_column-column3.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = V_WCOUNT."lv_text."'WRITE PROGRAM'.
      item-length = 30.
      APPEND item TO item_table.
      CLEAR V_WCOUNT.
ENDIF.
*endif.
*****************2PRG*****************
IF wa_PRG-RETRIE_PRG IS NOT INITIAL.
read table it_trdirt into wa_trdirt with key name = wa_prg-retrie_prg.
              if sy-subrc = 0.
              lv_text = wa_trdirt-text.
              endif.
     CLEAR:item, NODE, lv_nkey_c3.
      v_no = v_no + 1.
      lv_nkey_c3 = v_no.
      CONDENSE lv_nkey_c3.
      CONCATENATE 'SSN' lv_nkey_c3 INTO lv_nkey_c3.
      node-node_key = lv_nkey_c3.
      node-relatkey = lv_nkey_c2.
      node-relatship = cl_gui_list_tree=>relat_last_child.
      node-isfolder = 'X'.
      APPEND node TO node_table.
      CLEAR item.
      item-node_key = lv_nkey_c3.
      item-item_name = c_column-column1.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = 'successful'."wa_PRG-RETRIE_PRG.
      item-length = 30.
      APPEND item TO item_table.
      CLEAR item.
      item-node_key = lv_nkey_c3.
      item-item_name = c_column-column2.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = 'sucessful PROGRAM'.
      item-length = 60.
      APPEND item TO item_table.
*********************************SSSN NODE*******************************
       CLEAR:item,lv_nkey_c4,node.
     data : v_no1 type sy-tabix.
      v_no1 = v_no1 + 1.
      lv_nkey_c4 = v_no1.
      CONDENSE lv_nkey_c4.
      CONCATENATE 'SSSN' lv_nkey_c4 INTO lv_nkey_c4.
      node-node_key = lv_nkey_c4.
      node-relatkey = lv_nkey_c3.
      node-relatship = cl_gui_list_tree=>relat_last_child.
     node-isfolder = 'X'.
      NODE-N_image =' '.
      APPEND node TO node_table.
       CLEAR NODE.
      CLEAR item.
      item-node_key = lv_nkey_c4.
      item-item_name = c_column-column1.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = wa_PRG-RETRIE_PRG.
      item-length = 30.
      APPEND item TO item_table.
      CLEAR item.
      item-node_key = lv_nkey_c4.
      item-item_name = c_column-column2.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = lv_text."'WRITE PROGRAM'.
      item-length = 30.
      APPEND item TO item_table.
        clear lv_text.
**********COUNT THE RELOADPR*******************
          V_WCOUNT = V_WCOUNT + 1.
CLEAR item.
V_WCOUNT = V_WCOUNT.
      item-node_key = lv_nkey_c3.
      item-item_name = c_column-column3.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = V_WCOUNT."lv_text."'WRITE PROGRAM'.
      item-length = 30.
      APPEND item TO item_table.
      CLEAR V_WCOUNT.
ENDIF.
ENDIF.
****************3PRG**********************
IF wa_PRG-DELETE_PRG IS NOT INITIAL.
read table it_trdirt into wa_trdirt with key name = wa_prg-delete_prg.
              if sy-subrc = 0.
              lv_text = wa_trdirt-text.
              endif.
     CLEAR:item, NODE, lv_nkey_c3.
      v_no = v_no + 1.
      lv_nkey_c3 = v_no.
      CONDENSE lv_nkey_c3.
      CONCATENATE 'SSN' lv_nkey_c3 INTO lv_nkey_c3.
      node-node_key = lv_nkey_c3.
      node-relatkey = lv_nkey_c2.
      node-relatship = cl_gui_list_tree=>relat_last_child.
      node-isfolder = 'X'.
      APPEND node TO node_table.
      CLEAR item.
      item-node_key = lv_nkey_c3.
      item-item_name = c_column-column1.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = 'DELETE'."wa_PRG-DELETE_PRG.
      item-length = 30.
      APPEND item TO item_table.
      CLEAR item.
      item-node_key = lv_nkey_c3.
      item-item_name = c_column-column2.
      item-class = cl_gui_column_tree=>item_class_text.
      item-font = cl_gui_column_tree=>item_font_prop.
      item-text = 'NAME OF DELETE PROGRAM'.
      item-length = 60.
      APPEND item TO item_table.
       CLEAR:item,lv_nkey_c4,node.
     data : v_no1 type sy-tabix.
      v_no1 = v_no1 + 1.
      lv_nkey_c4 = v_no1.
      endloop.

Cin node and c++ code

Similar Messages

Maybe you are looking for