Nested Functions - Another Solution

[Terry Pickering]

Here is another way to accomplish the same thing. I found it in some other code and was able to apply it here. It's a little less confusing. See the difference between the two and decide what might work for you sometime.....



DEFINE X INT*8 = 12345

 

DEFINE Y CHAR*10 = LJ( RJ(ASCII(X)[1:10])[1:8] + "." + ASCII(X,10)[9:2])

DEFINE Z CHAR*10 = ASCII(FLOOR(X/100)) + "." + ASCII(MOD(X,100),2)


REPORT X Y Z



      X      Y           Z


      12345  123.45      123.45

<color><param>0000,0000,8080</param>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

<bold>Terry Pickering        Consultant Extraordinare

</bold>Monday and Friday        Tuesday - Thursday

Portland                 Eugene

(503) 245-7178           (541) 687-3416

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~</color>
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.