Internal table to node

Hi all,
Can somebody helpme with the following problem :
I have 3 in my repport 3 internal tables : itab1 , itab2 ad itab3.
Now i want to give the result as a tree with 3 nodes as follows :
Resultaat
Node1
Node2
Node3
And if the user klicks on a node ,the content of the corresponding internal table will be shown.
Regards,

Hi,
U have to use <b>Drill Down report</b> for this Purpose.
Check with below links and it help you lot
http://www.erpgenie.com/abap/drill_down_reports.htm
http://sap-img.com/abap/example-code-for-drill-down-report.htm
http://www.sap-img.com/abap/difference-between-drilldown-report-and-interactive-report.htm
Regards,
Padmam.

Similar Messages

How to create and use a node globally as well as internal table

HI,
Kindly let me know how can I create a node & internal table globally and which I can use them in various methods in view and controller as well, if u can provide an example it could be very help full.
my requirment is uploading a multiple files in wdp ABAP for this I just followd the link below
http://wiki.sdn.sap.com/wiki/display/WDABAP/UploadandDownloadfilesinWebdynproABAP
which for single upload and for making this for multiple upload I need a node could be usefull globally or a IT please check my code below
DATA lo_nd_n_upload TYPE REF TO if_wd_context_node.
    DATA lo_el_n_upload TYPE REF TO if_wd_context_element.
    DATA ls_n_upload TYPE wd_this->element_n_upload.
    DATA lo_nd_n_file_download TYPE REF TO if_wd_context_node.
    DATA lt_n_file_download TYPE wd_this->elements_n_file_download.
    data ls_file_upload TYPE ZFILE_UPLOAD1.
   ZFILE_UPLOAD_1 = wd_componentcontroller->Elements_ZFILE_UPLOAD_1.
     t_file_upload = ig_componentcontroller->ITAB1.
   t_file_upload = wd_this->zfile_upload1.
   navigate from <CONTEXT> to <N_FILE_DOWNLOAD> via lead selection
     lo_nd_n_file_download = wd_context->get_child_node( name = wd_this->wdctx_n_file_download ).
navigate from <CONTEXT> to <N_UPLOAD> via lead selection
    lo_nd_n_upload = wd_context->get_child_node( name = wd_this->wdctx_n_upload ).
get element via lead selection
    lo_el_n_upload = lo_nd_n_upload->get_element( ).
@TODO handle not set lead selection
    IF lo_el_n_upload IS not INITIAL.
get all declared attributes
    lo_el_n_upload->get_static_attributes(
      IMPORTING
        static_attributes = ls_n_upload ).
ls_n_upload will contain the File name file type and file contents *
   ls_n_upload-file_size = xstrlen( ls_n_upload-file_content ).
   ls_file_upload-FILE_NAME = ls_n_upload-FILE_NAME.
   ls_file_upload-FILE_TYPE = ls_n_upload-FILE_TYPE.
   ls_file_upload-FILE_SIZE = ls_n_upload-FILE_SIZE.
   ls_file_upload-FILE_CONTENTS = ls_n_upload-FILE_CONTENT.
   append ls_file_upload to t_file_upload.
   clear ls_file_upload.
lo_nd_n_file_download->bind_table( new_items = t_file_upload set_initial_elements = abap_true ).
ENDIF.
so here I would like use t_file_upload(node or IT ) to use globaly which can keep the previous data and I can add the existing data and in another method I would like to submit the data in t_file_upload to table
Regards
raj

Hi Chandra,
Resloved, I createa table type in SE11 by giving my table name as a line type and I used that as a Global IT in view "attributes" tab and I made the my code as follows its working now
    DATA lo_nd_n_upload TYPE REF TO if_wd_context_node.
    DATA lo_el_n_upload TYPE REF TO if_wd_context_element.
    DATA ls_n_upload TYPE wd_this->element_n_upload.
    DATA lo_nd_n_file_download TYPE REF TO if_wd_context_node.
    DATA lt_n_file_download TYPE wd_this->elements_n_file_download.
    data ls_file_upload TYPE ZFILE_UPLOAD1.
    data t_file_upload TYPE standard table of ZFILE_UPLOAD1.
   navigate from <CONTEXT> to <N_FILE_DOWNLOAD> via lead selection
     lo_nd_n_file_download = wd_context->get_child_node( name = wd_this->wdctx_n_file_download ).
navigate from <CONTEXT> to <N_UPLOAD> via lead selection
    lo_nd_n_upload = wd_context->get_child_node( name = wd_this->wdctx_n_upload ).
get element via lead selection
    lo_el_n_upload = lo_nd_n_upload->get_element( ).
@TODO handle not set lead selection
    IF lo_el_n_upload IS not INITIAL.
get all declared attributes
    lo_el_n_upload->get_static_attributes(
      IMPORTING
        static_attributes = ls_n_upload ).
ls_n_upload will contain the File name file type and file contents *
   ls_n_upload-file_size = xstrlen( ls_n_upload-file_content ).
   ls_file_upload-FILE_NAME = ls_n_upload-FILE_NAME.
   ls_file_upload-FILE_TYPE = ls_n_upload-FILE_TYPE.
   ls_file_upload-FILE_SIZE = ls_n_upload-FILE_SIZE.
   ls_file_upload-FILE_CONTENTS = ls_n_upload-FILE_CONTENT.
   append ls_file_upload to ME->wd_this->gt_file_upload .
   clear ls_file_upload.
lo_nd_n_file_download->bind_table( ME->wd_this->gt_file_upload ).
   endif.
thanks for the support.
Regards
Raj

Populate model node with an internal table

Dear experts
I have an internal table. I have a model node. I need to populate the data in my internal table onto my model node.
In case of a value node, I know how to do this.
I would appreciate if somebody can give me some 'code snippet' on how to do this in case of a model node.
I tried looking into some standard components but its bit confusing.
Any replies will be greatly appreciated.
Thanks in advance.
Raj

Hi Masood
Thanks for the reply. Actually I am familiar with using the method 'set_properties'. But my main confusion is on how to create an instance before calling this 'set_properties' method.
For eg: in case of value node, we will use
FIRST CREATE OBJECT
create object lv_value_node
exporting = ls_struct
THEN SET THE PROPERTY
lv_value_node->set_propety ( ).
But in the case of model node, I wont be able to use the statement
"create object lv_model_node
exporting = ls_struct"
So I need to create an instance of the BOL. This is where I am confused. And my BOL is FUSearchRes. It is a 'Search Result object' in Genil_model_browser. So I cannot create a root object. Also I don't see any parent for this.
So I am not sure of how to create objects for this particular BOL. Plz throw some light on this.
Thanks
Raj

To fetch internal table from context node

hi,
how do i fetch an internal table of a respective node?
Regards,
Ronita.

hi ronita....
you can use the method get_static_attributes_table in the interface if_wd_context_node.
---regards,
alex b justin

Create root node and child nodes while downloading data from internal table

Hi all,
i have to down load the details of three materials present in the internal table into
a XML file, the material number must be the root node, ERNAM,AENAM,VPSTA
fields must be its child nodes. in this way i have to display details of three
materials like material1,material2,material3.
how can i do that in 4.6c version.
Thanks,
satish.

Hi Satish,
Please look into the following programs. These are sample SAP programs to deal with XML in 46c.
BCCIIXMLT1
BCCIIXMLT2
BCCIIXMLT3
Hope these will helps,
Sumant.

(ABAP) Internal table of type context node (Urgent)

Hi All,
I created a internal table in a view say ABC_VIEW using a context node say ABC_NODE. This is did using following statement:
it_abc type table of if_abc_view=>element_abc_node.
Now I would like to pass this as a exporting parameter to a method in component controller. Kindly suggest how i can achieve this. I tried the following:
it_abc exporting element_abc_node.
But this does not work.
Kindly reply soon.
Regards,
Anoop
Message was edited by: Anoop Singh Saini

Hi Anoop,
Web Dynpro generates an internal table (and structure) for each context node in a controller's context. Such a definition is local to the controller where the node is defined, since a different controller could have a node of the same name with different attributes. Nonetheless, it is possible to transfer the data of a node to another controller by:
(a) Using a DDIC structure for a context node. The generated structure and the DDIC structure are the same then. The generated internal table is a standard table. If you define one in DDIC or somewhere else, you can use it for typing the parameter.
(b) Transfer the pointer to the node! You can still access it from any other place.
Best regards,
Thomas

Compare the elements data of the 2 context nodes using internal table

Hi,
How can i compare the elements data of the 2 context nodes using internal table?
Regards,
Ronita

hi ronita,
just get the nodes data into internal tables and just compare them......
node1->get_static_attributes_table(importing table = ITAB_node1)
node2->get_static_attributes_table(importing table = ITAB_node2)
now u have the data of ur 2 context nodes in 2 different internal tables ..
just compare them like
if ITAB_node1[ ] = ITAB_node2[ ].
write: / 'itab1 is equal to itab2'..
endif.
and u can use as many as comparision operators between these 2 tables to compare them....
regards....
srini,,,,

Sql queries from internal tables based on context node

Hi experts,
I want to select from my inetrnal table which is based on the context node, the rows which do not appear in another internal table based on the context node.
I have this data:
data lt_item_level type table of wd_this->element_item_level INITIAL SIZE 0.
data lt_item_level_cp type table of wd_this->element_item_level INITIAL SIZE 0.
data lt_po_items TYPE table of wd_this->element_po_items INITIAL SIZE 0.
I want to do this:
select * into CORRESPONDING FIELDS OF TABLE lt_item_level_cp from lt_item_level WHERE lt_po_items-po_number NE lt_item_level-item_number.
But i get an error:
"LT_ITEM_LEVEL" is not defined in the ABAP Dictionary as a table,
Is there a way to do it with select or should i loop over my internal tables?
thank u very much!!

hi,
You cannot use Select queries on internal table. do like this :
loop at itab into wa where wa-F1 NE wa-F2.
append wa to itab1.
endloop.
Here itab1 will have all the records as per your requiement.
I hope it is clear.
Edited by: Saurav Mago on Oct 26, 2009 5:37 PM

Sy-tabix for internal table in smartform

Hi friends,
How to capture the sy-tabix value for the entries in an internal table which has been looped into the loop of table node of a smartform?? I need to print something immedaitely after the end of the table
For every record the value of sy-tabix is showing 1 !!
Advance Thanks
Aadarsh

Hi Aadarsh,
Give ur sy-tabix at the end of the loop.
loop at itab.
//table node populations.
endloop.
give a seperate loop for this.
loop at itab.
sy-tabix.
endloop
get the total no and print it after the table.
If u r using do loop then give sy-index.
Hope tihs helps u,
Regards,
Nagarajan.
Message was edited by: Nagarajan Kumarappan

How to call Subroutines,Standard Text & using Internal Table in SmartForm

Hi all,
need help in the following areas.Its very urgent!
1.How to CAll Subroutines in Smart Forms
2.How to CAll Standard Text in Smart Forms
Situation:
We have an Internal Table T_SALES with all the data which am going to display in the smartform,How to retrive data from an internal table in Smart forms
Any Help in this direction would be highly appreciated.
Regards
Ramu

Hi,
When you are using quantity or currency fields, you have to mentiong the reference fileds in a tab called CURRENCY/QUANTITY FILEDS in the GLOBAL DATA node.
Specifying a Currency or Quantity Reference
Use
In the ABAP Dictionary, you can assign a currency or quantity field to a table field. In the output of these fields, the system can then insert the relevant currency or unit:
·        If the value field is in the same table as the corresponding currency or quantity field, the system recognizes the reference automatically, and formats the value field according to the currency or unit in the assigned field.
·        If the value field is in a different table from the currency or quantity field, the system cannot recognize this reference automatically.
In the second case, you must indicate this reference to the system in the form, to ensure that the value field is formatted correctly.
Procedure
You want to assign a currency or quantity field in one table (for example, CURTAB) to a value field in another table (for example, VALTAB).
       1.      Create the reference to the currency field by entering the following values:
-         Field Name: VALTAB-VALUE, if this is the value field of VALTAB that you want to display.
-         Reference Field: CURTAB-CURRENCY, which is the currency field of CURTAB.
       2.      Under Data Type, specify whether the data type is a currency or quantity.
Result
In the output of the PDF-based print form, the system formats the value field VALTAB-VALUE according to the assigned value in the currency or quantity field of the global variable CURTAB-CURRENCY.
Thanks and Regards,
Bharat Kumar Reddy.V
Message was Added by: Bharat Reddy V
Message was Added by: Bharat Reddy V

Fetching data from internal table in smartform

Hi,
I'm able to fetch data from one internal table, but in the table the fields are not coming perfectly, can anybody help me in this?
Thanks in advance.

Hi
You have to to specify the text node that you have created for the table that it belong to which cell in the table. Also you styles to format the text(eg: left aligned, center alinged etc)
If you have further query please post.
If this resolves your query close the thread and reward points
Cheers
Shafiq

Internal table in smartform

In driver program:
TYPES: BEGIN OF ty_output,
       var1 TYPE c,
      var2 type c,
TYPES: END OF ty_output.
DATA: gt_output TYPE TABLE OF ty_output.
how to declare this in smartforms?
Thanks

Hi,
You can do this in two ways....
1. If you need the interal table to be accessed globally in the smartform, you can declare the internal    table in global definitions
first you need to define TYPES for the internal table in Types tab.
and this needs to be given as reference in Global Data tab for the internal table.
2. You need the internal table to be local ,then you can create a program lines node and declare the internal table as you do in the ABAP program
Hope this helps
Regards,
Sujatha

Issue with WRITE statement from Internal Table

Hi All,
I have written the below code in a infoset query, the syntax check is ok & when i run the query in debugging mode, i find the internal table being filled with the values & the write statement outputing the values as well.
But the problem is when i execute the query the output does not show all the lines, instead just displays the last record . What could be the mistake?
Is it because i have defined Y_EBELN, Y_EBELP & Y_OPENQTY as nodes in the Extras Tab of the infoset & have chosen this for display in my query? How to display the output from my internal table in my query output?
Hope my problem is clear, await clarification.
Vivek
Code
types:
    Begin of itab,
      wl_ebeln   type eket-ebeln,
      wl_ebelp   type eket-ebelp,
      wl_openqty type eket-menge,
    End of itab.
Data: il_po type table of itab with header line.
*Display open PO for materials
SELECT EKETEBELN EKETEBELP EKETMENGE EKETWEMNG EKET~EINDT
     INTO (Y_EBELN, Y_EBELP, WL_MENGE, WL_WEMNG, Y_EINDT)
    FROM EKET
      INNER JOIN EKPO
         ON EKETEBELN     = EKPOEBELN
          AND EKETEBELP = EKPOEBELP
      INNER JOIN MARD
         ON EKPOMATNR     = MARDMATNR
          AND EKPOWERKS = MARDWERKS
          AND EKPOLGORT = MARDLGORT
    WHERE EKPO~MATNR = MARD-MATNR
      AND EKPO~WERKS = MARD-WERKS
      AND EKPO~LGORT = MARD-LGORT
      AND EKPO~LOEKZ = SPACE
      AND EKPO~ELIKZ = SPACE.
*Display only still open qty per schedule line
Y_OPENQTY = WL_MENGE - WL_WEMNG.
il_po-wl_ebeln = Y_EBELN.
il_po-wl_ebelp = Y_EBELP.
il_po-wl_openqty = Y_OPENQTY.
    append il_po.
ENDSELECT.
ENDIF.
Loop at il_po.
write:/ il_po-wl_ebeln, il_po-wl_ebelp, il_po-wl_openqty.
endloop.

Hi Vivek,
Try it like this.
Data: Begin of itab,
       lifnr type lfa1-lifnr,
       name1 type lfa1-name1,
       land1 type lfa1-land1,
      End of itab,
      it_lfa1 like table of itab with header line,
      lifnr like lfa1-lifnr,
      name1 like lfa1-name1,
      land1 like lfa1-land1.
select lifnr name1 land1 into (lifnr, name1, land1)
       from lfa1.
it_lfa1-lifnr = lifnr.
it_lfa1-name1 = name1.
it_lfa1-land1 = land1.
append it_lfa1.
endselect.
loop at it_lfa1.
write:/ it_lfa1-lifnr, it_lfa1-name1, it_lfa1-land1.
endloop.
Note:
In place of the above select you insert your join select statement. It is working for me.
You have declared your internal table wrongly. In the internal table instead of TYPE use LIKE, it will work.
Hope this will work for you.
Thanks & Regards
Haritha.

Download the KTOPL field data and GLT0 table data into one Internal table

Hi,
I have downloaded GLT0 table fields data to PC file . But i need to download KTOPL(Chart Of Accounts) data also. in GLT0 table there is no KTOPL field.
But in SKA1 table have KTOPL field. Then what is the issue is GLT0 data & KTOPL field data needs to download into one Internal Table.
anybody could you please solve this problem. immediately need to solve this.
Below is the code.
REPORT ZFXXEABL_1 NO STANDARD PAGE HEADING
                LINE-SIZE 200.
Tables Declaration
TABLES : GLT0.
Data Declaration
DATA :   FP(8)           TYPE C,
         YEAR           LIKE GLT0-RYEAR,
         PERIOD(3)       TYPE C,
         DBALANCE         LIKE VBAP-NETWR VALUE 0 ,
         CBALANCE         LIKE VBAP-NETWR VALUE 0.
*Internal table for for final data..
DATA : BEGIN OF REC1 OCCURS 0,
       BAL             LIKE GLT0-TSLVT value 0,
       COAREA          LIKE GLT0-RBUSA,
      CA(4)           TYPE C,
       KTOPL           LIKE ska1-ktopl,
       CCODE           LIKE GLT0-BUKRS,
       CREDIT          LIKE VBAP-NETWR,
       CURRENCY        LIKE GLT0-RTCUR,
       CURTYPE(2)      TYPE N,
       DEBIT           LIKE VBAP-NETWR,
       YEAR(8)         TYPE C,
       FY(2)           TYPE C,
       ACCOUNT         LIKE GLT0-RACCT,
       VER             LIKE GLT0-RVERS,
       VTYPE(2)        TYPE N,
       CLNT            LIKE SY-MANDT,
       S_SYS(3)        TYPE C,
       INDICATOR      LIKE GLT0-DRCRK,
       END OF REC1.
DATA : C(2) TYPE N,
       D(2) TYPE N.
DATA REC1_H LIKE REC1.
Variable declarations
DATA :
       W_FILES(4) TYPE N,
       W_DEBIT LIKE GLT0-TSLVT,
       W_CREDIT LIKE GLT0-TSLVT,
       W_PCFILE LIKE RLGRAP-FILENAME ,
       W_UNIXFILE LIKE RLGRAP-FILENAME,
       W_PCFILE1 LIKE RLGRAP-FILENAME,
       W_UNIXFIL1 LIKE RLGRAP-FILENAME,
       W_EXT(3) TYPE C,
       W_UEXT(3) TYPE C,
       W_PATH LIKE RLGRAP-FILENAME,
       W_UPATH LIKE RLGRAP-FILENAME,
       W_FIRST(1) TYPE C VALUE 'Y',
       W_CFIRST(1) TYPE C VALUE 'Y',
       W_PCFIL LIKE RLGRAP-FILENAME.
DATA: "REC LIKE GLT0 OCCURS 0 WITH HEADER LINE,
      T_TEMP LIKE GLT0 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF REC3 OCCURS 0.
      INCLUDE STRUCTURE GLT0.
DATA: KTOPL LIKE SKA1-KTOPL,
      END OF REC3.
DATA: BEGIN OF T_KTOPL OCCURS 0,
      KTOPL LIKE SKA1-KTOPL,
      SAKNR LIKE SKA1-SAKNR,
      END OF T_KTOPL.
Download data.
DATA: BEGIN OF I_REC2 OCCURS 0,
       BAL(17),        "             like GLT0-TSLVT value 0,
       COAREA(4),      "          like glt0-rbusa,
       CA(4),          " chart of accounts
       CCODE(4),       "           like glt0-bukrs,
       CREDIT(17),     "          like vbap-netwr,
       CURRENCY(5),    "       like glt0-rtcur,
       CURTYPE(2),     "      type n,
       DEBIT(17),      "           like vbap-netwr,
       YEAR(8),        " type c,
       FY(2),          " type c, fiscal yr variant
       ACCOUNT(10),    " like glt0-racct,
       VER(3),         "    like glt0-rvers,
       VTYPE(3),       " type n,
       CLNT(3),        "like sy-mandt,
       S_SYS(3),       "like sy-sysid,
       INDICATOR(1),   "   like glt0-drcrk,
      END OF I_REC2.
Selection screen.                                                    *
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1.
SELECT-OPTIONS : COMPCODE FOR GLT0-BUKRS,
                  GLACC FOR GLT0-RACCT,
                  FISYEAR   FOR GLT0-RYEAR,
                no intervals no-extension,      "- BG6661-070212
                   FISCPER FOR GLT0-RPMAX,
                 busarea   for glt0-rbusa,
                  CURRENCY FOR GLT0-RTCUR.
SELECTION-SCREEN END   OF BLOCK BL1.
SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-BL2.
PARAMETERS:
P_UNIX AS CHECKBOX,                  "Check box for Unix Option
P_UNFIL LIKE RLGRAP-FILENAME,        " Unix file Dnload file name
   default '/var/opt/arch/extract/GLT0.ASC', "- BG6661-070212
P_PCFILE AS CHECKBOX,                "Check box for Local PC download.
P_PCFIL LIKE RLGRAP-FILENAME         " PC file Dnload file name
             default 'C:\GLT0.ASC'.           "- BG6661-070212
      DEFAULT 'C:\glt0_gl_balance_all.asc'.     "+ BG6661-070212
SELECTION-SCREEN END   OF BLOCK BL2.
*eject
Initialization.                                                     *
INITIALIZATION.
Try to default download filename
p_pcfil = c_pcfile.
p_unfil = c_unixfile.
if sy-sysid eq c_n01.
   p_unfil =   c_unixfile.
endif.
if sy-sysid eq c_g21.
   p_unfil =   c_g21_unixfile.
endif.
if sy-sysid eq c_g9d.
   p_unfil =   c_g9d_unixfile.
endif.
Default for download filename
*{ Begin of BG6661-070212
CONCATENATE C_UNIXFILE
              SY-SYSID C_FSLASH C_CHRON C_FILENAME INTO P_UNFIL.
*} End of BG6661-070212
AT SELECTION-SCREEN OUTPUT.
loop at screen.
   if screen-name = 'P_PCFIL'.        "PC FILE
     screen-input = '0'.
     modify screen.
   endif.
   if screen-name = 'P_UNFIL'.        "UN FILE
     screen-input = '0'.
     modify screen.
   endif.
endloop.
if w_first = 'Y'.
    perform path_file.
    w_first = 'N'.
endif.
if w_cfirst = 'Y'.
   perform cpath_file.
   w_cfirst = 'N'.
endif.
Start-of-Selection.                                                 *
START-OF-SELECTION.
*COLLECT DATA
PERFORM COLLECT_DATA.
*BUILD FILENAMES
PERFORM BUILD_FILES.
*LOCAL
IF P_PCFILE = C_YES.
   PERFORM LOCAL_DOWNLOAD.
ENDIF.
*UNIX
IF P_UNIX = C_YES.
    PERFORM UNIX_DOWNLOAD.
ENDIF.
IF P_PCFILE IS INITIAL AND P_UNIX IS INITIAL.
    MESSAGE I000(ZL) WITH 'Down load flags both are unchecked'.
ENDIF.
END-OF-SELECTION.
IF P_PCFILE = C_YES.
WRITE :/ 'PC File' , C_UNDER, P_PCFIL.
ENDIF.
*&      Form DOWNLOAD
      Download                                                       *
FORM DOWNLOAD.
P_PCFIL = W_PATH.
DATA LIN TYPE I.
DESCRIBE TABLE I_REC2 LINES LIN.
WRITE:/ 'No of Records downloaded = ',LIN.
CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
           FILENAME            = P_PCFIL
           FILETYPE            = C_ASC   "c_dat   "dat
       TABLES
            DATA_TAB            = I_REC2 " t_str
           fieldnames          = t_strhd
       EXCEPTIONS
            FILE_OPEN_ERROR     = 1
            FILE_WRITE_ERROR    = 2
            INVALID_FILESIZE    = 3
            INVALID_TABLE_WIDTH = 4
            INVALID_TYPE        = 5
            NO_BATCH            = 6
            UNKNOWN_ERROR       = 7
            OTHERS              = 8.
IF SY-SUBRC EQ 0.
ENDIF.
ENDFORM.
*&      Form WRITE_TO_SERVER
      text                                                           *
--> p1        text
<-- p2        text
FORM WRITE_TO_SERVER.
DATA : L_MSG(100) TYPE C,
         L_LINE(5000) TYPE C.
P_UNFIL = W_UPATH.
DATA LIN TYPE I.
DESCRIBE TABLE I_REC2 LINES LIN.
WRITE:/ 'No of Records downloaded = ',LIN.
OPEN DATASET P_UNFIL FOR OUTPUT IN TEXT MODE.        " message l_msg.
IF SY-SUBRC <> 0.
    WRITE: / L_MSG.
ENDIF.
perform header_text1.
LOOP AT I_REC2.
    TRANSFER I_REC2 TO P_UNFIL.
ENDLOOP.
CLOSE DATASET P_UNFIL.
WRITE : / C_TEXT , W_UPATH.
SPLIT W_UNIXFILE AT C_DOT INTO W_UNIXFIL1 W_UEXT.
CLEAR W_UPATH.
IF NOT W_UEXT IS INITIAL.
    CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
ELSE.
    W_UEXT = C_ASC. " c_csv.
    CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
ENDIF.
ENDFORM.                               " WRITE_TO_SERVER
*&      Form BUILD_FILES
FORM BUILD_FILES.
IF P_PCFILE = C_YES.
    W_PCFILE = P_PCFIL.
***Split path at dot**
    SPLIT W_PCFILE AT C_DOT INTO W_PCFILE1 W_EXT.
    IF NOT W_EXT IS INITIAL.
      CONCATENATE W_PCFILE1 C_DOT W_EXT INTO W_PATH.
    ELSE.
      W_PATH = W_PCFILE1.
    ENDIF.
ENDIF.
IF P_UNIX = C_YES.
    W_UNIXFILE = P_UNFIL.
    SPLIT W_UNIXFILE AT C_DOT INTO W_UNIXFIL1 W_UEXT.
    IF NOT W_UEXT IS INITIAL.
      CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
    ELSE.
      W_UPATH = W_UNIXFIL1.
    ENDIF.
ENDIF.
ENDFORM.
FORM CPATH_FILE.
CLEAR P_PCFIL.
   CONCATENATE C_PCFILE
               C_COMFILE SY-SYSID C_UNDER SY-DATUM SY-UZEIT
               C_DOT C_ASC INTO P_PCFIL.
ENDFORM.                    " CPATH_FILE
FORM PATH_FILE.
CLEAR P_UNFIL.
if sy-sysid eq c_n01.
   CONCATENATE C_UNIXFILE
               C_COMFILE SY-SYSID C_UNDER SY-DATUM SY-UZEIT
                C_DOT C_ASC INTO P_UNFIL.
endif.
if sy-sysid eq c_g21.
concatenate c_g21_unixfile
              c_comfile sy-sysid c_under sy-datum sy-uzeit
               c_dot c_asc into p_unfil.
endif.
if sy-sysid eq c_g9d.
concatenate c_g9d_unixfile
              c_comfile sy-sysid c_under sy-datum sy-uzeit
               c_dot c_asc into p_unfil.
endif.
ENDFORM.                    " PATH_FILE
Local_Download                                                       *
      Local                                                          *
FORM LOCAL_DOWNLOAD.
perform header_text.
LOOP AT REC1.
REC1-CLNT = SY-MANDT.
REC1-S_SYS = SY-SYSID.
MOVE: REC1-BAL TO I_REC2-BAL,
        REC1-COAREA TO I_REC2-COAREA,
       REC1-CA TO I_REC2-CA,
        REC1-KTOPL TO I_REC2-CA,
        REC1-CCODE TO I_REC2-CCODE,
        REC1-CREDIT TO I_REC2-CREDIT,
        REC1-CURRENCY TO I_REC2-CURRENCY,
        REC1-CURTYPE TO I_REC2-CURTYPE,
        REC1-DEBIT TO I_REC2-DEBIT,
        REC1-YEAR TO I_REC2-YEAR,
        REC1-FY TO I_REC2-FY,
        REC1-ACCOUNT TO I_REC2-ACCOUNT,
        REC1-VER TO I_REC2-VER,
        REC1-VTYPE TO I_REC2-VTYPE,
        REC1-CLNT TO I_REC2-CLNT,
        REC1-S_SYS TO I_REC2-S_SYS,
        REC1-INDICATOR TO I_REC2-INDICATOR.
APPEND I_REC2.
CLEAR I_REC2.
ENDLOOP.
IF NOT I_REC2[] IS INITIAL.
    PERFORM DOWNLOAD .
    CLEAR I_REC2.
    REFRESH I_REC2.
   ELSE.
   WRITE : / ' no record exist due to unavailability of data'.
ENDIF.
ENDFORM.                               " LOCAL_DOWNLOAD
*&      Form UNIX_DOWNLOAD
FORM UNIX_DOWNLOAD.
LOOP AT REC1.
REC1-CLNT = SY-MANDT.
REC1-S_SYS = SY-SYSID.
MOVE: REC1-BAL TO I_REC2-BAL,
        REC1-COAREA TO I_REC2-COAREA,
      REC1-CA TO I_REC2-CA,
        REC1-KTOPL TO I_REC2-CA,
        REC1-CCODE TO I_REC2-CCODE,
        REC1-CREDIT TO I_REC2-CREDIT,
        REC1-CURRENCY TO I_REC2-CURRENCY,
        REC1-CURTYPE TO I_REC2-CURTYPE,
        REC1-DEBIT TO I_REC2-DEBIT,
        REC1-YEAR TO I_REC2-YEAR,
        REC1-FY TO I_REC2-FY,
        REC1-ACCOUNT TO I_REC2-ACCOUNT,
        REC1-VER TO I_REC2-VER,
        REC1-VTYPE TO I_REC2-VTYPE,
        SY-MANDT TO I_REC2-CLNT,
        SY-SYSID TO I_REC2-S_SYS,
        REC1-INDICATOR TO I_REC2-INDICATOR.
APPEND I_REC2.
CLEAR I_REC2.
ENDLOOP.
IF NOT I_REC2[] IS INITIAL.
    PERFORM WRITE_TO_SERVER.
    CLEAR I_REC2.
    REFRESH I_REC2.
ELSE.
   WRITE : / ' no record exist due to unavailability of data'.
ENDIF.
ENDFORM.                               " UNIX_DOWNLOAD
*&      Form HEADER_TEXT
      text                                                           *
--> p1        text
<-- p2        text
*form header_text.
concatenate c_bal c_ba c_ca c_cc c_credit c_currency c_curtype
     c_debit c_fisyear c_fisvar c_acct c_ver c_vtype c_indicator
           into t_strhd
           separated by c_comma.
append t_strhd.
*endform.                               " HEADER_TEXT
*&      Form HEADER_TEXT1
      text                                                           *
*form header_text1.
concatenate c_bal c_ba c_ca c_cc c_credit c_currency c_curtype
    c_debit c_fisyear c_fisvar c_acct c_ver c_vtype c_indicator
           into t_strhd1
           separated by c_comma.
append t_strhd1.
transfer t_strhd1 to p_unfil.
*endform.                    " HEADER_TEXT1
*&      Form COLLECT_DATA
      Collect Data                                                   *
FORM COLLECT_DATA.
SELECT * FROM GLT0 INTO TABLE REC3
                    WHERE   BUKRS IN COMPCODE
                    AND     RYEAR IN FISYEAR
                    AND     RPMAX IN FISCPER
                    AND     RACCT IN GLACC
                    AND     RTCUR IN CURRENCY.
SELECT KTOPL FROM SKA1
             INTO TABLE T_KTOPL
             FOR ALL ENTRIES IN REC3
             WHERE SAKNR = REC3-RACCT.
LOOP AT REC3 .
   select *
   from glt0
   into table t_temp
   where rldnr = rec-rldnr
     and rrcty = rec-rrcty
      and rvers = rec-rvers
     and bukrs = rec-bukrs
     and ryear = rec-ryear
      and racct = rec-racct
       and rbusa = rec-rbusa
       and rtcur <> 'ZAR'
     and rpmax = rec-rpmax.
if sy-subrc = 0.
        rec1-bal = '0.00'.
else.
rec1-bal = rec-hslvt.
endif.
*READ TABLE T_KTOPL WITH KEY SAKNR = REC-RACCT BINARY SEARCH.
MOVE T_KTOPL-KTOPL TO REC3-KTOPL.
CLEAR: CBALANCE, DBALANCE.
REC1-BAL = REC3-HSLVT.
IF REC3-DRCRK = 'S'.
IF REC3-HSLVT NE C_ZERO.
       YEAR   = REC-RYEAR.
       PERIOD = '000'.
       CONCATENATE PERIOD C_DOT YEAR INTO FP.
       REC1-INDICATOR = REC-DRCRK.
       REC1-DEBIT = C_ZERO.
       REC1-CREDIT = C_ZERO.
       REC1-CCODE = REC-BUKRS.
       REC1-YEAR = FP.
       REC1-CURRENCY = REC-RTCUR.
       REC1-ACCOUNT = REC-RACCT.
       rec1-bal      = rec-hslvt.
       dbalance = rec1-bal.
       REC1-CURTYPE = C_CTYPE.
       REC1-FY      = C_FY.
       REC1-COAREA   = REC-RBUSA.
       REC1-VER     = REC-RVERS.
       REC1-VTYPE   = C_CTYPE.
       REC1-CA      = C_CHART.
       APPEND REC1.
        C = 0.
      PERFORM D.
ENDIF.
IF REC3-HSL01 NE C_ZERO.
        YEAR   = REC3-RYEAR.
        PERIOD = '001'.
        CONCATENATE PERIOD C_DOT YEAR INTO FP.
        REC1-INDICATOR = REC3-DRCRK.
        REC1-DEBIT = REC3-HSL01 .
        REC1-CCODE = REC3-BUKRS.
        REC1-YEAR = FP.
        REC1-CURRENCY = REC3-RTCUR.
        REC1-ACCOUNT = REC3-RACCT.
       rec1-bal      = REC3-hsl01 + dbalance.
       dbalance = rec1-bal.
        REC1-CURTYPE = C_CTYPE.
        REC1-FY      = C_FY.
        REC1-COAREA   = REC3-RBUSA.
        REC1-VER     = REC3-RVERS.
        REC1-VTYPE   = C_CTYPE.
      REC1-CA      = C_CHART.
        REC1-KTOPL = REC3-KTOPL.
        APPEND REC1.
        C = 1.
     PERFORM D.
ENDIF.
IF REC3-HSL02 NE C_ZERO.
      REC1-DEBIT = REC3-HSL02.
   YEAR   = REC3-RYEAR.
   PERIOD = '002'.
CONCATENATE PERIOD C_DOT YEAR INTO FP.
     REC1-INDICATOR = REC3-DRCRK.
   REC1-DEBIT = REC3-HSL02.
   REC1-CCODE = REC3-BUKRS.
   REC1-YEAR = FP.
   REC1-CURRENCY = REC3-RTCUR.
   REC1-ACCOUNT = REC3-RACCT.
rec1-bal      = REC3-hsl02 + dbalance.
dbalance = rec1-bal.
        REC1-CURTYPE = C_CTYPE.
        REC1-FY      = C_FY.
        REC1-COAREA   = REC3-RBUSA.
        REC1-VER     = REC3-RVERS.
        REC1-VTYPE   = C_CTYPE.
      REC1-CA      = C_CHART. "-BF7957-070503
        REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
   APPEND REC1.
   C = 2.
PERFORM D.
ENDIF.
IF REC3-HSL03 NE C_ZERO.
        YEAR   = REC3-RYEAR.
        PERIOD = '003'.
        CONCATENATE PERIOD C_DOT YEAR INTO FP.
           REC1-INDICATOR = REC3-DRCRK.
        REC1-DEBIT = REC3-HSL03.
        REC1-CCODE = REC3-BUKRS.
        REC1-YEAR = FP.
        REC1-CURRENCY = REC3-RTCUR.
        REC1-ACCOUNT = REC3-RACCT.
       rec1-bal      = REC3-hsl03 + dbalance .
       dbalance = rec1-bal.
        REC1-CURTYPE = C_CTYPE.
        REC1-FY      = C_FY.
        REC1-COAREA   = REC3-RBUSA.
        REC1-VER     = REC3-RVERS.
        REC1-VTYPE   = C_CTYPE.
       REC1-CA      = C_CHART. "-BF7957-070503
         REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
        APPEND REC1.
      C = 3.
PERFORM D.
ENDIF.
IF REC3-HSL04 NE C_ZERO.
       REC1-DEBIT = REC3-HSL04.
          YEAR   = REC3-RYEAR.
          PERIOD = '004'.
         CONCATENATE PERIOD C_DOT YEAR INTO FP.
            REC1-INDICATOR = REC3-DRCRK.
         REC1-DEBIT = REC3-HSL04.
          REC1-CCODE = REC3-BUKRS.
          REC1-YEAR = FP.
          REC1-CURRENCY = REC3-RTCUR.
          REC1-ACCOUNT = REC3-RACCT.
         rec1-bal      = REC3-hsl04 + dbalance .
        REC1-CURTYPE = C_CTYPE.
        REC1-FY      = C_FY.
        REC1-COAREA   = REC3-RBUSA.
        REC1-VER     = REC3-RVERS.
        REC1-VTYPE   = C_CTYPE.
      REC1-CA      = C_CHART. "-BF7957-070503
        REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
        APPEND REC1.
         dbalance = rec1-bal.
          C = 4.
          PERFORM D.
ENDIF.
Thanks and Regards,
Ram

use logical database SDF, nodes ska1 and skc1c
A.

How to pass a string varaible to an internal table field

Hi Experts,
I am reading notes/text entries by calling read_text and then passing them in a variable. I want to display the notes. But even after declaring the variable as LINE2048, it is displaying only 255characters as output length.
My code:
TYPES: BEGIN OF TYP_FINAL,
         PARTNER_NO      TYPE BU_PARTNER,         "Partner No.
        OBJECT_ID       TYPE CRMT_OBJECT_ID_DB, "Object ID
        PROCESS_TYPE    TYPE CRMT_PROCESS_TYPE, "Activity Type
       ACTUAL_NOTE     TYPE LINE2048,           "Actual Notes
       END OF TYP_FINAL.
data : T_FINAL           TYPE STANDARD TABLE OF TYP_FINAL,
          WA_FINAL          TYPE TYP_FINAL.
data: v_actualnote     TYPE LINE2048.
          CALL FUNCTION 'READ_TEXT'
            EXPORTING
             CLIENT                        = SY-MANDT
              ID                            = C_0002
              LANGUAGE                      = sy-langu
              NAME                          = l_name1
              OBJECT                        = C_BUT000
            TABLES
              LINES                         = t_line
           EXCEPTIONS
             ID                            = 1
             LANGUAGE                      = 2
          IF SY-SUBRC = 0.
           clear: v_accountnote.
           LOOP AT T_LINE INTO WA_LINE.
             CONCATENATE v_accountnote wa_line INTO v_accountnote SEPARATED BY space.
             clear: wa_line.
           ENDLOOP.
          wa_final-account_note = v_accountnote.
          clear: v_accountnote.
         ENDIF.
So, if I make the v_actualnote as string and pass it to a string variable, that should work.
But the system is not allowing me to declare a string varaible inside the internal table.
Please let me know how to display more than 255 characters in v_accountnote .
Regards,
Sangeeta.

you are passng that as a string = '5,6' does not exist
try this : http://www.mssqltips.com/sqlservertip/1771/splitting-delimited-strings-using-xml-in-sql-server/
declare @table table(sno int)
insert into @table values(5),(6)
DECLARE @xml as xml,@txtSchedule as varchar(100),@delimiter as varchar(10)
SET @txtSchedule='5,6'
SET @xml = cast(('<X>'+replace(@txtSchedule,',','</X><X>')+'</X>') as xml)
select * from @table WHERE sno IN ( select N.value('.', 'varchar(10)') as value FROM @xml.nodes('X') as T(N))
Hope it Helps!!

Internal table to node

Similar Messages

Maybe you are looking for