RE: Old rpg Left Justify ?

["Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx>]

 This is what I ended up doing.  
Like I said, it seems to work, it was just so much code, I was wondering
if I'm missing something. 
I'm just glad I don't have to do this very often. 

C           NXF,Z     WHEQ 'AHCKN'                  
 * STRIP LEADING ZEROS OFF OF CHECK #               
C                     MOVE AHCKN     @CKA    6      
C                     MOVEA@CKA      @CK            
C                     DO   6         C              
C           @CK,C     IFEQ '0'                      
C                     MOVE ' '       @CK,C          
C                     ELSE                          
C                     LEAVE                         
C                     ENDIF                         
C                     ENDDO                         
C                     MOVEA@CK       T6      6 P    
C           ' '       CHECKT6        START          
C           ' '       CHEKRT6        END            
C           END       SUB  START     LEN            
C                     ADD  1         LEN            
C           LEN       SUBSTT6:START  @CKN    6      
C                     MOVEL@CKN      NXVAL     P    
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob P. Roche
Sent: Monday, September 20, 2010 9:08 AM
To: RPG programming on the IBM i / System i
Subject: Re: Old rpg Left Justify ?

What did you come up with?



From:
"Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx>
To:
"RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Date:
09/20/2010 08:06 AM
Subject:
Old rpg Left Justify ?
Sent by:
<rpg400-l-bounces@xxxxxxxxxxxx>



I have a old rpg program that I need to make a change to. 
I need to left justify a right justified field. 
For instance.  FLDA  is 6.0  contains 000123 I need to put it in FLDB
which is 6 alpha.  I need the result to be '123 '
This is not a program I can convert to ile. 

As a side note, I have this working, but it seems like so much code to
do this. 
I'm just wondering if there is a simpler method than what I came up
with. 

Thanks 

Mike



NOTICE:  This message, including any attachment, is intended as a
confidential and privileged communication. If you have received this
message in error, or are not the named recipient(s), please immediately
notify the sender and delete this message.
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.




--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.




NOTICE:  This message, including any attachment, is intended as a confidential and privileged communication. If you have received this message in error, or are not the named recipient(s), please immediately notify the sender and delete this message.