RE: Move 'ABC' to Numeric?

rpg400-l-request@xxxxxxxxxxxx wrote:

>   2. Move 'ABC' to Numeric?  (Bill Hopkins)
>
>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

Does anything happen if it's not equal? Or is there an implication that 
something somewhere else won't happen if the IF-test fails because the enclosed 
statements didn't run?

I can _imagine_ someone from years gone by using something like this as a part 
of code that was generated so that under different circumstance a different 
source line would have been auto-gen'd into the code to result in a value other 
than 123, perhaps because the referenced numeric field might sometimes be 
signed and otherwise unsigned.

Or perhaps the 'ABC' constant would be used as a marker in the compiled object 
in order to recognize a reverse-engineered kind of rip-off? A few of these 
sprinkled around weren't unheard of and I believe still are used. It might just 
be a remnant that never got cleaned up.

Tom Liotta

-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com


__________________________________________________________________
McAfee VirusScan Online from the Netscape Network.
Comprehensive protection for your entire computer. Get your free trial today!
http://channels.netscape.com/ns/computing/mcafee/index.jsp?promo=393397

Get AOL Instant Messenger 5.1 free of charge.  Download Now!
http://aim.aol.com/aimnew/Aim/register.adp?promo=380455