RE: Concatenating some data

   <META HTTP-EQUIV="Content-Type" CONTENT="text/html;    charset=iso-8859-1">

   Hi douglas
   <FONT = SIZE=2>           I = think the composite data structure taken
   by you i.e DLASTUPDATED should = have the length 1   19 not 1    16. Then
   try = to move it to the composite data structure.

   Alternatively,
   you can directly  concat the two fields by = using the CAT opcode and
   storing in a result field

   Syntax is       = fact1   opcode  fact2    result
   <FONT = SIZE=2>          &nb= sp;     fld1    = cat     fld2     fld3

   Make sure the data types are same or change both to = char by using
   %char(fld1) and then proceed.

   Alternatively,
   you can use the concat keyword to concat the two = physicat file field in
   the logical and use the logical file = field.

   Hope either of the alternative would help.

   rgds
   <FONT = SIZE=2>Rakesh         &nb= sp;

   -----Original Message-----
   From: rpg400-l-bounces@xxxxxxxxxxxx
   [<A    
HREF="mailto:rpg400-l-bounces@xxxxxxxxxxxx";>mailto:rpg400-l-bounces@mi   
drange.com]On Behalf Of Douglas W. Palme
   Sent: Wednesday, January 05, 2005 12:39 AM
   To: RPG programming on the AS400 / iSeries
   Subject: Concatenating some data

   I have a display file that has a 19 byte character = field called
   DLSUPDATED.

   I need to concatenate two fields from a physical file = and place it in
   this
   field.  Those two fields are LSPUPDDT (date = field), and LSPUPDTIM (time
   field).

   I created a data structure for this:

   0041.03 = D           &nbsp= ;     = DS           &nbs= p;           &nbs   
p;           &nbs= p;
   0041.04 = DLASTUPDATED          =      1     = 16           &nbs   p;        
   &nbs= p;
   0041.05 = DUPDATEDDATE          =     1     = 10           &nbs   p;         
  &nbs= p;
   0041.06 = DUPDATEDTIME          =    12     = 19           &nbs   p;         
  &nbs= p;

   Then in a subroutine I moved the physcial file fields = into the
   DUPdATEDDATE
   and DUPDATEDTIME portions of the Data = structure.  then attempted to
   write it
   out with a move statement moving the LASTUPDATED to = the display field
   DLSPUPDATED.

   I am getting a compile error that is telling me the = fields are not
   defined.
   there is also another error that is telling me that = the types are not
   compatible.....

   Any help would be appreciated....I'm at a loss on how = to correct this.
   --
   This is the RPG programming on the AS400 / iSeries = (RPG400-L) mailing
   list
   To post a message email: = RPG400-L@xxxxxxxxxxxx
   To subscribe, unsubscribe, or change list = options,
   visit: <A = HREF="http://lists.midrange.com/mailman/listinfo/rpg400-l";    
TARGET="_blank">http://lists.midrange.com/mailman/listinfo/rpg400-l</A   >
   or email: RPG400-L-request@xxxxxxxxxxxx
   Before posting, please take a moment to review the = archives
   at <A HREF="http://archive.midrange.com/rpg400-l";    
TARGET="_blank">http://archive.midrange.com/rpg400-l.