Append one vector to another

Hi:
I would like to know if there is anyway to append one vector to another
i.e
Vector vec = new Vector();
Vector anotherVec = new Vector();Is there a method I can call to append anotherVec to vec?
without going through a while loop??
please let me know...
thnx

do vec.addAll(anotherVec);

Similar Messages

Need to Append one ByteArrayOutputStream to Another ByteArrayOutputStream

hi all i need to append a ByteArrayOutputStream object to another one will anyone get me solution pls
regards
Mahesh

hi all i need to append a ByteArrayOutputStream object to another one will anyone get me solution plsAppending one OutputStream to another does not make sense so I don't understand your question.
You can use the writeTo(OutputStream out) method to append the content of one ByteArrayOutputStream to another.
will anyone get me solution plsWhy don't you tell us what you've tried and what's your problem.

Append contents of one vector to another?

Hi
I have a vector called temp which has an id, name, description, year
I have a vector called cVector which has an id, name, description, year
what is the least complex way of handling this situation if I would like to append temp to cVector?
Any advice would be appreciated, it seems my best efforts are only inserting temp into an index in cVector and the like... there must logically be a way.

ahhh thanks I thought I was going batty... it was still inside the far reaches of a while loop... logic error...
thanks and sorry if that was a simple one...

Copying an object from one vector into another

I need to get a specified object from vector 1 to vector 2 so its no longer in vector 1
I've created the two vectors, I know how to access, remove, add elements to a vector using the relevant methods
Do you use the remove method, then add?

Do you use the remove method, then add?Yes this is the way to do it.
And btw, as an aside - Even when there are more advanced ways to do it, It is always good when you are doing things for the first time or when you are starting out building something complex to KISS - Keep it simple, stupid. This applies to me as well and I've been doing this a long time

How do I copy and paste vector art from one layer to another, keeping all of its attributes?

When I copy a vector shape from one layer to another, the shape picks up the color attributes of an existing shape in the second layer (or sometimes only the outline of the shape appears). What to I do to avoid this from happening (I just just want to paste the shape in its original form and color)?

OK - I guess this is a little more difficult than I imagined...
Merge Layers rasterizes all the vector shapes - I want all the shapes to stay as vectors in the second (pasted) layer.
Merge Shapes changes the color of the copied vector shape - I don't want to change the color
Shape Layer via Copy [Ctrl] +[J] copies the layer containing the vector shape, but doesn't paste it into the second layer
Any other ideas? Or, is it possible that PhotoShop doesn't support varied colored vector shapes on the same layer? I am coming from an InDesign background, and there was no issue having many different (colored) vector objects on the same layer.

Append data from one table to another.

Hi,
I want to insert/append some or all the data from one table to another table.
For eg: Data from table table1 to be appended to table2 with the same constraints, indexes etc. The columns are same for both the tables.
I am using 10g version 2.
Please specify which method would be good for this process.
Thanks
Jafar

INSERT INTO TABLE1 SELECT * FROM TABLE2;The above command would insert data into table2 and it also contain the old data.Is that right,
Thanks
Jafar

How do I copy a list from one site to another that has a column that appends changes to existing text?

I want to move a list from one SharePoint site to another, within the same collection. I have created a template and included the content but the column that is selected to append changes to existing text, has not copied in all cases, although it has for
some items.
I have a limited knowledge so won't be able to implement any solutions that require the use of code.

Hi,
According to your post, my understanding is that you wanted to copy a list from one site to another that has a column that appends changes to existing text.
I recommend to use the custom workflow activity Copy List Item Extended Activityto
copy list items and files cross site.
You can do this with codeless SharePoint Designer workflows as long as you can install the
Codeplex Custom SharePoint Designer Workflow Activities.
These activities are also built-in to SPD2010.
To install the custom activities, please follow the steps as below:
Download the solution file form
Useful Sharepoint Designer Custom Workflow Activities
Copy the wps file to the Disk C.
Open the SharePoint 2010 Management Shell.
Run the command: add spsolution c:\ dp.sharepoint.workflow.wsp
Open the Center Administration, click System Setting->Manage Farm Solution-> dp.sharepoint.workflow.wsp->Deploy to one or more Web Application.
Open the SharePoint designer, add action from Custom Actions.
Best Regards,
Linda Li
Linda Li
TechNet Community Support

Copying photos from one computer to another, with descriptions

After editing photo descriptions and locations in iPhoto, it is desireable to be able to copy them to iPhoto on another computer, with the associated photo descriptions and locations. In principle, this is possible by selecting all desired photos, then selecting File -> Export... In the Export dialog box, in the "File Export" tab, select "Include: Titles and keywords", and "Include: Location information". Copy the exported files to the other computer, and do a File -> Import to Library ...
In practice, this works fine with images taken by some cameras, and not with images from others. In my limited experience with a Fuji F80EXR and a Canon SX230HS, the above work flow works with the Fuji. But, with the Canon, while the exported files clearly have the description data embedded in them (as seen by GraphicConverter), it is not imported into iPhoto, nor is it visible in Preview's Inspector. The workaround I use is to run an exiftool command on the exported files.
Exiftool is a command line utility that can read and write meta data in image files:
http://owl.phy.queensu.ca/~phil/exiftool/
I run the following command on the exported files to rewrite the IPTC Caption:
exiftool −overwrite_original_in_place -tagsfromfile %f.jpg -ext jpg -"IPTC:Caption-Abstract>IPTC:Caption-Abstract" *.jpg
Note that the above command overwrites the files that were exported from iPhoto. If you wish to leave the original files intact, with an "_original" appended to the file name, run:
exiftool -tagsfromfile %f.jpg -ext jpg -"IPTC:Caption-Abstract>IPTC:Caption-Abstract" *.jpg
I'm not sure why it is necessary to copy and rewrite that data. Perhaps there is something strange in the format of the meta data in the file as it comes from the camera, and the iPhoto export does not correct this strangeness. Copying and rewriting the data by exiftool seems to put things right.
The above works for me, but is somewhat unwieldy. Is there a better way to copy photos from one computer to another, if iPhoto refuses to import the description data that it was written to the exported files?

Thanks for the pointer. I did a test with 10 images, and confirmed the iPLM works, even with the problematic images from my Canon SX230HS.
The workflow is to use iPLM to create a new Library on the computer that has the photos you want to copy. Copy the photos to the new Library. Copy the new Library to the second computer using a method of your choice (file sharing, USB flash drive, etc). Copy the photos from the new Library to the existing iPhoto Library.
iPLM costs $20, whereas my original solution was free (but you need to invest the time to get exiftool installed and working). But, unlike exiftools, iPLM also copies over the Faces information, so it is likely a worthwhile investment if you use that feature.

How do you pass vi references from one event to another

I have a vi which gets vi references (thereby loading the vi's into memory) for all the vi's in a given directory when a user clicks a button on the front panel. To do this I use an event structure. My question is whether it is possible to have another event (user button on the front panel) which unloads the vi's from memory. I have tried passing the vi references that are initially generated to the close reference function but whenever I do I get a 'vi reference invalid' error. Does this have to do with trying to pass the vi references between one event and another? If I use a local variable simply pass a reference to another indicator and then probe it, the originally-generated refnum and the local vari
able refnum match up. However once I try to wire that same indicator to the close reference function I get the 'vi reference invalid' error. Is there a different/better way to unload the vi's from memory based on a user button click? Any suggestions would be welcome.
Jason
Attachments:
Load_Directory_of_vi's.vi ‏57 KB

Several problems with your code:
1... Bad idea to use lights as buttons. Yes it can be done, but it's not "natural".
2... If you've gotta do that, set their mechanical action to "LATCH WHEN RELEASED"
3... Because of #2, you are getting TWO copies of every array when you click the LOAD VIs light (er... button).
4... No need for the conversion from path to string and back - use BUILD PATH to append each file name to he folder path.
5... Set the BROWSE OPTIONS on your PATH control to EXISTING DIRECTORY to allow browsing of directories, not files.
6... Your code doesn't care whether the file is a .VI file, or a .ZIP file, or a .TXT file, or what. Use the PATTERN input on the LIST function to discriminate.
7... Your code is only storing the latest refer
ence, not the array of references.
8... An ERROR DIALOG on the OPEN REFERENCE function will tell you that you're getting an error. Why? You are asking to prepare a non-reentrant VI for reentrant execution (why use options = 8?)
9... Because of #8, the latest VI reference is invalid.
Steve Bird
Culverson Software - Elegant software that is a pleasure to use.
Culverson.com
Blog for (mostly LabVIEW) programmers: Tips And Tricks

How to call one program from another program

Hai,
How to call one program through another program.
Example.
   I have two programs 1.ZPROG1 2. ZPROG2.
When i execute ZPROG1 at that time it should call ZPROG2.

Hi ,
u can use submit statement to call a program .
DATA: text       TYPE c LENGTH 10,
      rspar_tab TYPE TABLE OF rsparams,
      rspar_line LIKE LINE OF rspar_tab,
      range_tab LIKE RANGE OF text,
      range_line LIKE LINE OF range_tab.
rspar_line-selname = 'SELCRIT1'.
rspar_line-kind    = 'S'.
rspar_line-sign    = 'I'.
rspar_line-option = 'EQ'.
rspar_line-low     = 'ABAP'.
APPEND rspar_line TO rspar_tab.
range_line-sign   = 'E'.
range_line-option = 'EQ'.
range_line-low    = 'H'.
APPEND range_line TO range_tab.
range_line-sign   = 'E'.
range_line-option = 'EQ'.
range_line-low    = 'K'.
APPEND range_line TO range_tab.
SUBMIT report1 USING SELECTION-SCREEN '1100'
               WITH SELECTION-TABLE rspar_tab
               WITH selcrit2 BETWEEN 'H' AND 'K'
               WITH selcrit2 IN range_tab
               AND RETURN.
regards,
Santosh thorat

Failure to move messages from one account to another

I have recently started having problems when trying to move messages from one account to another. I get a message that says: The IMAP command "APPEND" (to INBOX) failed with server error: message contains NUL characters.
I have tried shutting down and restarting, repaired permissions. Not sure what to do next. Any help?

Ernie,
One is POP thru Cox Comm and the other is mobile me (the old .mac accts). Why would all of a sudden there be an issue when I several times during the day have been able to move messages from Cox to mobile me?

How do i Drag and drop From one tree to another and vise versa?

I have two tree structures and i'm trying to drag a leaf of a branch from one tree to another and vise versa. i'm using flex 3 to code it. I'm also trying to put a prevention on dropping a leaf of one tree from being dropped inside a branch of another tree. Anything that is dragged over to another tree should be placed as a dangling node in that tree. Please share this code and help me find a solution.
<?xml version="1.0" encoding="utf-8"?><mx:Application
xmlns:mx="
http://www.adobe.com/2006/mxml" xmlns:comp="
com.adobe.flex.extras.controls.*" initialize="data2
new
ArrayCollection(countries);"layout="
absolute"verticalAlign="
middle" backgroundColor="white" height="
551">
<mx:Script>
<![CDATA[
importmx.events.FlexEvent;
importmx.collections.ArrayCollection;
importmx.controls.Alert;
importmx.events.DragEvent;
importmx.managers.DragManager;
importmx.core.DragSource;
importmx.core.UIComponent;
importmx.controls.Tree;
// data provider for role name[
Bindable] private vardata2: ArrayCollection;
// variable to store the node that is dragged from a tree
private var draggedItemOfAccessTree:XML = null;
private var draggedItemOfExclusionTree:XML = null;
private var dragItemAccess:DisplayObject =null;
private var dragItemExclusion:DisplayObject =null;
// Array to store the Role list[
Bindable]public varcountries: Array = [{id: 0, name:
"Role 1"},{id: 1, name:
"Role 2"},{id: 2, name:
"Role 3"},{id: 3, name:
"Role 4"},{id: 4, name:
"Role 5"},{id: 5, name:
"Role 6"},{id: 6, name:
"Role 7"},{id: 7, name:
"Role 8"},{id: 8, name:
"Role 9"},{id: 9, name:
"Role 10"},{id: 10,name:
"Role 11"}
// this event is called when we begin dragging a node in a tree
private function onAccessListDragEnter( event:DragEvent ) : void{
event.preventDefault();
vards1:DragSource = event.dragSource;
var items1:Array = ds1.dataForFormat("treeItems") asArray;
if (items1 != null && items1.length > 0 && (items1[0] isXML)){
draggedItemOfAccessTree = items1[0];
dragItemAccess = items1[0]
asDisplayObject;}
DragManager.acceptDragDrop(UIComponent(event.currentTarget));
private function onExclusionListDragEnter( event:DragEvent ) : void{
event.preventDefault();
vards2:DragSource = event.dragSource;
var items2:Array = ds2.dataForFormat("treeItems") asArray;
if (items2 != null && items2.length > 0 && (items2[0] isXML)){
draggedItemOfExclusionTree = items2[0];
dragItemExclusion =items2[0]
asDisplayObject;}
DragManager.acceptDragDrop(UIComponent(event.currentTarget));
private function onAccessListDragOver( event:DragEvent ) : void{
event.preventDefault();
varvar1:Number = AccessTree.selectedIndex;
varvar2:Number = ExclusionTree.calculateDropIndex(event);
var node1:XML = AccessTree.selectedItem asXML;
var node2:XML = ExclusionTree.calculateDropIndex(event) asXML;
//restrict drag & drop to nodes within same parent
if(draggedItemOfAccessTree.parent() == node1.parent() || draggedItemOfAccessTree.parent() != node1.parent()){
DragManager.showFeedback(DragManager.NONE);
//return; }
elseDragManager.showFeedback(DragManager.MOVE);
private function onExclusionListDragOver( event:DragEvent ) : void{
event.preventDefault();
varvar1:Number = ExclusionTree.selectedIndex;
varvar2:Number = AccessTree.calculateDropIndex(event);
var node1:XML = AccessTree.calculateDropIndex(event) asXML;
var node2:XML = ExclusionTree.selectedItem asXML;
//restrict drag & drop to nodes within same parent
if( draggedItemOfExclusionTree.parent() == node2.parent() || draggedItemOfExclusionTree.parent() != node2.parent()){
DragManager.showFeedback(DragManager.NONE);
// return; }
elseDragManager.showFeedback(DragManager.MOVE);
private function onAccessListDragDrop( event:DragEvent ) : void{
event.preventDefault();
varSindex:Number = AccessTree.selectedIndex;
varEindex:Number= ExclusionTree.calculateDropIndex(event);
var Enode:XML = ExclusionTree.selectedItem asXML;
var Anode:XML = AccessTree.selectedItem asXML;
if((draggedItemOfAccessTree.parent() != Anode.parent()) ){
AccessTree.removeChildAt(Sindex);
ExclusionTree.addChildAt(dragItemAccess , Eindex);
// AccessTree.rdataDescriptor.removeChildAt(Anode.parent(),draggedItemOfAccessTree,Sindex);
//ExclusionTree.dataDescriptor.addChildAt(Enode.parent(),draggedItemOfAccessTree,Eindex); }
private function onExclusionListDragDrop( event:DragEvent ) : void{
event.preventDefault();
varEindex:Number = ExclusionTree.selectedIndex;
varSindex:Number = AccessTree.calculateDropIndex(event);
var Anode:XML = AccessTree.selectedItem asXML;
var Enode:XML = ExclusionTree.selectedItem asXML;
if((draggedItemOfExclusionTree.parent() != Enode.parent()) ){
ExclusionTree.removeChildAt(Eindex);
AccessTree.addChildAt(dragItemExclusion, Sindex);
// ExclusionTree.dataDescriptor.removeChildAt(Enode.parent(),draggedItemOfExclusionTree,Eind ex);
// AccessTree.dataDescriptor.addChildAt(Anode.parent(),draggedItemOfExclusionTree,Eindex); }
private function onDragComplete( event:DragEvent ) : void

Yes, I have set dragEnabled and dropEnabled to true. I trying to put restriction on dropping the node(aka leaf) of 1st free tree inside the branch(aka folder) of the 2nd tree. If something is dragged from tree1, it should be dropped only on tree2 i.e., dragged node should be appended at the end of tree2 and not inside nay of the branches of tree2. This functionality should work on both the trees. I'll be glad if u can provide the solution.

Transfer data from one DATASET to another DATASET

Hi,
Is there a way to transfer the data from one DATASET to another DATASET?
I tried the following
OPEN DATASET DS1 FOR OUTPUT IN TEXT MODE ENCODING DEFAULT .
OPEN DATASET DS2 FOR INPUT IN TEXT MODE ENCODING DEFAULT .
TRANSFER DS2 to DS1.
CLOSE DATASET DS1.
CLOSE DATASET DS2.
But it does not work.
Thanks in advance.

Hi Jason,
This logic transfers data from one dataset to another....Kindly check..
DATA fname(60) VALUE 'myfile'.
DATA fname2(60) VALUE 'myfile1'.
TYPES: BEGIN OF line,
         col1 TYPE i,
         col2 TYPE i,
       END OF line.
TYPES itab TYPE line OCCURS 10.
DATA: lin TYPE line,
      tab TYPE itab.
DO 5 TIMES.
lin-col1 = sy-index.
lin-col2 = sy-index ** 2.
APPEND lin TO tab.
ENDDO.
"writing data to file fname.
OPEN DATASET fname FOR OUTPUT IN BINARY MODE.
LOOP AT tab INTO lin.
TRANSFER lin TO fname.
ENDLOOP.
CLOSE DATASET fname.
"reading data from fname and writing to fname1.
OPEN DATASET fname2 FOR OUTPUT IN BINARY MODE.
OPEN DATASET fname FOR INPUT IN BINARY MODE.
DO.
READ DATASET fname INTO lin.
IF sy-subrc <> 0.
    EXIT.
ELSE.
    TRANSFER lin TO fname2.
ENDIF.
ENDDO.
CLOSE DATASET fname.
CLOSE DATASET fname2.
"displaying data from fname2.
OPEN DATASET fname2 FOR INPUT IN BINARY MODE.
CLEAR lin.
DO.
READ DATASET fname2 INTO lin.
IF sy-subrc NE 0.
    EXIT.
ENDIF.
WRITE:/ lin-col1, lin-col2.
ENDDO.
CLOSE DATASET fname2.
Mdi.Deeba
Edited by: Mdi.Deeba on Feb 17, 2009 8:11 AM

Move column from one place to another..

Hi
I need to arrange the order in which the columns are displayed in my ALV Grid displayed so that i can move the columns from one position to another but its not been allowed in the program so could u pls suggest which field needs to be set for this?
Regards
Gunjan

Hi
You can use the following statement
ls_fcat-col_pos           = 01.
By using this you can fix your column position
or else to sort the column try like this
sort-spos = '10'.
SORT-FIELDNAME = 'Years'.
SORT-TABNAME = 'DATA_TAB2'.
sort-UP = 'X'.
sort-subtot = 'X'.
SORT-GROUP = '* '.
APPEND SORT. CLEAR SORT.
In the It_SOET internal table write:
IT_SORT-Group = 'X'.
REPORT ZSDN                                    .
TABLES : ekkn,ekko,EKPO,EKET,VBEP,LFA1.
TYPE-POOLS : slis, ICON.
DATA : DATE1 TYPE SY-DATUM.
data : begin of itab occurs 0,
      VBELN like ekkn-VBELN, "SALE ORDER
      VBELP LIKE EKKN-VBELP, "LINE ITEM
      BEDAT LIKE EKKO-BEDAT, "DOCUMENT DATE
      KUNNR LIKE VBAK-KUNNR, "SOLD TO PARTY
      VBELN1 like VBEP-VBELN, "SALE ORDER1
      POSNR1 LIKE VBEP-POSNR, "LINE ITEM
      EDATU LIKE VBEP-EDATU, "END DATE
      EMATN LIKE EKPO-EMATN, "STATUS
      BMENG LIKE VBEP-BMENG, "DAYS
      TDDAT LIKE VBEP-TDDAT, "START DATE
      LMENG LIKE VBEP-LMENG, "DAYS -START DATE
      LABNR LIKE EKPO-LABNR, "STATUS
      PLNUM LIKE VBEP-PLNUM, "OVERALL STATUS
      EKGRP like ekko-EKGRP, "PURCHASING GROUP
      EBELN LIKE EKKN-EBELN, "PO NO
      EBELP like ekkn-EBELP, "LINE ITEM
      EINDT LIKE EKET-EINDT, "DELIVERY DATE
      MATNR LIKE EKPO-MATNR, "MATERIAL NUMBER
      TXZ01 LIKE EKPO-TXZ01, "MATERIAL TEXT
      LIFNR LIKE EKKO-LIFNR, "VENDOR
      MENGE LIKE EKPO-MENGE, "QUANTITY
      WEMNG LIKE EKET-WEMNG, "GR QTY
      WAMNG LIKE EKET-WAMNG, "BAL QTY
      MEINS LIKE EKPO-MEINS, "OUn
      NETPR LIKE EKPO-NETPR, "PRICE
      LOEKZ LIKE EKPO-LOEKZ, "DELETED
      LIFNR1 LIKE LFA1-LIFNR, "VENDOR
      NAME1 LIKE LFA1-NAME1, "VENDOR NAME
      WERKS LIKE EKPO-WERKS, "PLANT
      end of itab.
DATA : BEGIN OF it_final OCCURS 0,
      KUNNR LIKE VBAK-KUNNR, "SOLD TO PARTY
      LABNR LIKE EKPO-LABNR, "STATUS
      EMATN LIKE EKPO-EMATN, "STATUS
      VBELN like ekkn-VBELN, "SALE ORDER
      VBELP LIKE EKKN-VBELP, "LINE ITEM
      BEDAT LIKE EKKO-BEDAT, "DOCUMENT DATE
      EDATU LIKE VBEP-EDATU, "END DATE
      TDDAT LIKE VBEP-TDDAT, "START DATE
      PLNUM LIKE VBEP-PLNUM, "OVERALL STATUS
      EKGRP like ekko-EKGRP, "PURCHASING GROUP
      EBELN LIKE EKKN-EBELN, "PO NO
      EBELP like ekkn-EBELP, "LINE ITEM
      EINDT LIKE EKET-EINDT, "DELIVERY DATE
      MATNR LIKE EKPO-MATNR, "MATERIAL NUMBER
      TXZ01 LIKE EKPO-TXZ01, "MATERIAL TEXT
      NAME1 LIKE LFA1-NAME1, "VENDOR NAME
      MENGE LIKE EKPO-MENGE, "QUANTITY
      WEMNG LIKE EKET-WEMNG, "GR QTY
      WAMNG LIKE EKET-WAMNG, "BAL QTY
      MEINS LIKE EKPO-MEINS, "OUn
      NETPR LIKE EKPO-NETPR, "PRICE
      WERKS LIKE EKPO-WERKS, "PLANT
END OF it_final.
DATA: color TYPE TABLE OF lvc_s_scol WITH HEADER LINE,
      st_layout TYPE slis_layout_alv.
DATA : fcat TYPE slis_t_fieldcat_alv,
      ls_fcat LIKE LINE OF fcat,
      fheader TYPE TABLE OF slis_listheader WITH NON-UNIQUE DEFAULT KEY
      WITH HEADER LINE INITIAL SIZE 0.
DATA :i_repid LIKE sy-repid,
     gs_layout   TYPE slis_layout_alv,
     week type n.
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: zso FOR ekkn-vbeln.
SELECT-OPTIONS: zpgr FOR ekko-EKGRP.
SELECT-OPTIONS: ZPL FOR EKPO-WERKS.
SELECTION-SCREEN END OF BLOCK bk1.
gs_layout-colwidth_optimize = 'X'.
select A~VBELN
      A~VBELP
      A~EBELN
      A~EBELP
      B~MATNR
      B~TXZ01
      B~MENGE
      B~MEINS
      B~NETPR
      B~WERKS
      B~LOEKZ
      C~EINDT
      C~WEMNG
      D~EKGRP
      D~LIFNR
      D~BEDAT
      INTO CORRESPONDING FIELDS OF TABLE ITAB
      FROM EKKN AS A
      INNER JOIN EKPO AS B ON A~EBELN = B~EBELN
      AND A~EBELP = B~EBELP
      INNER JOIN EKET AS C ON A~EBELN = C~EBELN
      AND A~EBELP = C~EBELP
      INNER JOIN EKKO AS D ON A~EBELN = D~EBELN
      WHERE A~VBELN IN ZSO
      AND D~EKGRP IN ZPGR
      AND B~WERKS IN ZPL.
LOOP AT ITAB.
ITAB-WAMNG = ITAB-MENGE - ITAB-WEMNG.
SELECT SINGLE VBELN KUNNR
FROM VBAK INTO (ITAB-VBELN , ITAB-KUNNR )
WHERE VBELN = ITAB-VBELN.
SELECT SINGLE VBELN EDATU
FROM VBEP INTO (ITAB-VBELN , ITAB-EDATU)
WHERE VBELN = ITAB-VBELN.
DATE1 = SY-DATUM.
ITAB-BMENG = ITAB-EDATU - DATE1.
if itab-BMENG < 0.
   ITAB-EMATN = 'OVER DUE'.
elseif itab-BMENG ge 0 AND itab-BMENG le 10.
   ITAB-EMATN = 'CRITICAL'.
elseif itab-BMENG > 10.
   ITAB-EMATN = 'UNDER FOLLOW-UP'.
endif.
SELECT SINGLE VBELN POSNR TDDAT
FROM VBEP INTO (ITAB-VBELN1 , ITAB-POSNR1 , ITAB-TDDAT)
WHERE VBELN = ITAB-VBELN AND
POSNR = ITAB-VBELP.
ITAB-LMENG = ITAB-TDDAT - DATE1.
if itab-LMENG < 0.
   ITAB-LABNR = 'OVER DUE'.
elseif itab-LMENG ge 0 AND itab-LMENG le 10.
   ITAB-LABNR = 'CRITICAL'.
elseif itab-LMENG > 10.
   ITAB-LABNR = 'UNDER FOLLOW-UP'.
endif.
IF ITAB-WAMNG LE 0 OR
    ITAB-LOEKZ = 'L' OR
    ITAB-LOEKZ = 'S'.
    ITAB-PLNUM = 'CLOSED'.
ELSE.
    ITAB-PLNUM = 'OPEN'.
ENDIF.
SELECT SINGLE LIFNR NAME1
FROM LFA1 INTO (ITAB-LIFNR1 , ITAB-NAME1)
WHERE LIFNR = ITAB-LIFNR.
MODIFY ITAB.
ENDLOOP.
loop at itab.
   move-corresponding itab to it_final.
   append it_final.
endloop.
perform edit_mask.
i_repid = sy-repid.
PERFORM fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program      = i_repid
     i_callback_user_command = 'USER_COMMAND'
     it_fieldcat             = fcat
     i_save                  = 'A'
   TABLES
     t_outtab                = it_final
   EXCEPTIONS
     program_error           = 1
     OTHERS                  = 2.
*&      Form fieldcat
*       text
* --> p1        text
* <-- p2        text
FORM fieldcat .
MOVE sy-repid TO i_repid.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-decimals_out = 2.
ls_fcat-col_pos = 1.
ls_fcat-fieldname = 'KUNNR'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'Sold to Party'.
ls_fcat-emphasize = 'C310'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 6.
ls_fcat-fieldname = 'LABNR'.
ls_fcat-outputlen = 20.
ls_fcat-seltext_m = 'Window Start Status'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C510'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 5.
ls_fcat-fieldname = 'EMATN'.
ls_fcat-outputlen = 15.
ls_fcat-seltext_m = 'Window End Status'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C410'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 2.
ls_fcat-fieldname = 'VBELN'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'Sale Order'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C710'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 3.
ls_fcat-fieldname = 'VBELP'.
ls_fcat-outputlen = 5.
ls_fcat-seltext_m = 'Item'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C710'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 4.
ls_fcat-fieldname = 'EBELN'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'PO Number'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C710'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 7.
ls_fcat-fieldname = 'EBELP'.
ls_fcat-outputlen = 5.
ls_fcat-seltext_m = 'PO Item'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 8.
ls_fcat-fieldname = 'EKGRP'.
ls_fcat-outputlen = 3.
ls_fcat-seltext_m = 'Pur.Group'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 9.
ls_fcat-fieldname = 'BEDAT'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'PO Doc.Date'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 10.
ls_fcat-fieldname = 'EINDT'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'PO Delivery Date'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 11.
ls_fcat-fieldname = 'MATNR'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'Material Number'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 12.
ls_fcat-fieldname = 'TXZ01'.
ls_fcat-outputlen = 15.
ls_fcat-seltext_m = 'Description'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 13.
ls_fcat-fieldname = 'NAME1'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'Vendor'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C110'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 14.
ls_fcat-fieldname = 'MENGE'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'PO Quantity'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 15.
ls_fcat-fieldname = 'WEMNG'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'Quantity Recvd'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 16.
ls_fcat-fieldname = 'WAMNG'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'Bal Qty'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 17.
ls_fcat-fieldname = 'MEINS'.
ls_fcat-outputlen = 2.
ls_fcat-seltext_m = 'OUn'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 18.
ls_fcat-fieldname = 'NETPR'.
ls_fcat-outputlen = 8.
ls_fcat-seltext_m = 'NetPrice'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 19.
ls_fcat-fieldname = 'TDDAT'.
ls_fcat-outputlen = 15.
ls_fcat-seltext_m = 'Window Start date'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 20.
ls_fcat-fieldname = 'EDATU'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'Window End date'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 21.
ls_fcat-fieldname = 'PLNUM'.
ls_fcat-outputlen = 10.
ls_fcat-seltext_m = 'PO Status'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C610'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ls_fcat-col_pos           = 22.
ls_fcat-fieldname = 'WERKS'.
ls_fcat-outputlen = 5.
ls_fcat-seltext_m = 'Plant'.
ls_fcat-tabname = 'IT_FINAL'.
ls_fcat-emphasize = 'C210'.
APPEND ls_fcat TO fcat.
clear ls_fcat.
ENDFORM.                    " fieldcat
*&      Form edit_mask
*       text
* --> p1        text
* <-- p2        text
FORM edit_mask .
loop at it_final.
   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
     EXPORTING
       INPUT = it_final-vbeln
     IMPORTING
       OUTPUT = it_final-vbeln.
Read table it_final.
* modify it_final.
endloop.
ENDFORM.                    " edit_mask
Reward all helpfull answers
Regards
Pavan

Is there any mechanism available to transfer data from one AQ to another AQ

Hi All,
Is there any way , any api's available or any other real time mechanism available to transfer/move the data from one AQ to another AQ..
Is this possible..could someone please advise/help us regards this..
Thanks
sachin.

I dont think there is a standard business content datasource to extract data from NAST table. If you are going to use this data in some other LO modules based on the requirement enhance the datasource and append fields and write code to populate the message types.
If you are going to use this as stand alone data, then you can go ahead and create a generic datasource based on table.

Append one vector to another

Similar Messages

Maybe you are looking for