RE: Move 'ABC' to Numeric?

["Andy Leisk" <ALeisk@xxxxxxxxx>]

Why would anyone code this?  Who can say - but since it looks very like so
much JDE code it is not a real surprise.  


-----Original Message-----
From: Bill Hopkins [mailto:BHopkins@xxxxxxxxxxxxxxxxxxx]
Sent: Friday, July 25, 2003 7:52 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Move 'ABC' to Numeric?


Sorry about that there are C's and the 8P0 was just to show the value not 
code. It really came from a 

D NUM            S                   Like(IVAN8)

or I should say RPG

C           *LIKE     DEFN IVAN8     NUM

With IVAN8 = 8P0 in file

Thanks 

Bill H

It always executes the code in the middle of IF because value always 
'123'. 
I'm not really sure why they would do this , nothing else happens with NUM 
anywhere. I think it's junk code.Nothing personal against JDE and PKMS 

 




MWalter@xxxxxxxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/25/2003 08:18 AM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     RPG programming on the AS400 / iSeries
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Re: Move 'ABC' to Numeric?



Makes no sense. You can't even specify the variable type in a c spec. Come
to think about it, there is no C in position 6, Are you sure you didn't
remove a comment marker in position 7?

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


  
                    "Bill Hopkins"   
                    <BHopkins@xxxxxxxxxx        To: RPG400-L@xxxxxxxxxxxx  
 
                    dware.com>                  cc:     
                    Sent by:                    Subject:     Move 'ABC' to 
Numeric? 
                    rpg400-l-bounces@xxx    
                    range.com   
  
  
                    07/25/2003 07:53 AM    
                    Please respond to    
                    RPG programming on    
                    the AS400 / iSeries    
  
  




Anyone know why you would see this in code.


        MOVE 'ABC'       NUM            8P0

More code follows; then

NUM     IFEQ     123

More code

        ENDIF

Found in bridge from JDE Sales Orders to PKMS

Thanks
Bill H.
_______________________________________________
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: 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 AS400 / iSeries (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 AS400 / iSeries (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.