RE: Move 'ABC' to Numeric?

["Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>]

LOL :) I don't know but I had to ask list..





"Andy Leisk" <ALeisk@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/25/2003 09:10 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?


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.


_______________________________________________
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.