RE: Blank Supress

["Stone, Brad V (TC OASIS)" <bvstone@xxxxxxxxxxxxxx>]

Try this...

 C     ' '           CHECKR    FLD1          i                        99

  *

 C                   if        (*IN99)

 C                   eval      FLD2 = ' '                                 
 C                   eval      %subst(FLD2:%size(FLD2)-i+1:i) =        
 C                             %subst(FLD1:1:i)
 C                   else                            
 C                   eval      FLD2 = FLD1                              
 C                   endif


  

This assumes that FLD1 and FLD2 are the same size.

Bradley V. Stone
BVS/Tools
http://www.bvstools.com


> -----Original Message-----
> From: keshava narasimha [mailto:anandthirta@hotmail.com]
> Sent: Wednesday, July 21, 1999 12:12 PM
> To: RPG400-L@midrange.com
> Subject: Blank Supress
> 
> 
> Hi everybody!
> 
> 
> I have a very basic question .Is it possible to supress blanks in a 
> charecter field?
> 
> For example :
> 
>            OPCODE         F2         RES
> 
>            MOVEL   'ABCD     ' FLD1       10A
>            MOVE     FLD1       FLD2       10A
> 
> Is it possible to suppress the blanks & make the FLD2=
> '   ABCD'  (Right justified)
> 
> Thanks in advance,
> 
> 
> Keshav
> 
> 
> 
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
> * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a 
> new         *
> * message, send your mail to "RPG400-L@midrange.com".  To 
> unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and 
> specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  
> Questions should *
> * be directed to the list owner / operator: 
> david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
> * * * * * *
> 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *