Workaround for CVCUR

[Steve Bouffe]

Hello All,

I have a database in PBWIN and one of the fields is a Currency variable made with MKCUR$

I need to add the CVCUR fuction to an old PB Dos program.

Can anyone tell me the manual way to do this so I can add it to my DOS program?

[Michael Mattias]

The PB/Windows CURRENCY is actually a scaled 64-bit binary integer with four implied decimals. (This is documented so you are not going off the reservation here).

So in your PB/DOS program you can treat the 8 bytes as a QUAD as long as you divide by 10,000.

Oops, is QUAD supported by PB/DOS? Let me look... yes, it is, so this will work.

You can write your own function:

FUNCTION CVCUR (cur$) AS FIX 
LOCAL pQ AS QUAD PTR
          pQ = STRPTR32(Cur$)  ' point at eight-byte string
  FUNCTION = @pQ / 10000@  ' divide apparent value by 10,000  
                                         ' to allow for the implied decimals
END FUNCTION

Something like that, anyway....

MCM

[Steve Bouffe]

I couldn't get that to compile so I changed it to this. However it returns incorrect values?

Function CVCUR (cur$) As Fix
'
Dim pQ As QUAD Ptr
'
pQ = STRPTR32(Cur$)  ' point at eight-byte string
 Function = pQ / 10000@  ' divide apparent value by 10,000  
                                    ' to allow for the implied decimals
End Function

[Michael Mattias]

Well, your example will never work. pq is a Pointer not a value.

What was the compile error?

Note if CVCUR is already a valid PB/DOS function you are going to have to rename it.

[Bob Zale]

Function = @pq / 10000

[Michael Mattias]

>Function = @pq / 10000

???

Can't cast 10000 as FIX here? (Not that my PB/DOS skills are still anywhere near 100%)

Come to think of it, that is pretty dumb to cast it as fix at this point. Better I think I should have....

  FUNCTION =  CFIX(@pq/10000&&)

..so there is no type conversion required in the division at all.

Oh, well, as long as this works, I guess all's well which ends well.

[Steve Bouffe]

Final Function

FUNCTION CVCUR(cur$) as FIX
'
 Dim pQ As Local QUAD Ptr
 pQ = STRPTR32(cur$)           ' point at eight-byte string
Function = @pQ / 10000@    ' divide apparent value by 10,000 to allow for the implied decimals
'
END FUNCTION