[RBASE-L] - RE: ISO Export

Walker, Buddy Thu, 23 Oct 2003 10:23:38 -0700

Title: Message

Larry

Create the table and then try

Buddy

********numbconv.rmd********

SET VAR V1 INTEGER = -785
IF V1 < 0 THEN
   SET VAR V2 = (SGET((ctxt(.v1)),1,2))
   SEL VChar INTO VVChar INDIC IVVChar FROM NumbConv WHE VNumb = .V2 and +
    vsign = '-'
   SET VAR V3 = (CTXT(.V1))
   SET VAR V4 = (SGET(.V3,2,1))
   SET VAR V5 = (SRPL(.V3,.V4,.VVChar,0))

ENDIF

RETURN

***********end of numbconv.rmd**************

CREATE TABLE `NumbConv` +
(`VCHAR` TEXT    (1) , +
`VNUMB` TEXT    (1) , +
`VSIGN` TEXT    (1) )
SET CASE OFF
SET AUTOSKIP OFF
SET REVERSE ON
SET BELL OFF
SET NULL '-0- '
SET DATE YEAR 0
SET DATE CENTURY 19
SET DATE SEQUENCE MMDDYYYY
SET TIME SEQUENCE HHMMSS
SET TOLERANCE 0.
SET ZERO ON
LOAD `NumbConv`
NONUM
'{','0','+'
'A','1','+'
'B','2','+'
'C','3','+'
'D','4','+'
'E','5','+'
'F','6','+'
'G','7','+'
'H','8','+'
'I','9','+'
'}','0','-'
'J','1','-'
'K','2','-'
'L','3','-'
'M','4','-'
'N','5','-'
'O','6','-'
'P','7','-'
'Q','8','-'
'R','9','-'
END

-----Original Message-----
From: Larry Wilson [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 23, 2003 12:30 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - ISO Export

Hello list:

Using RB 7.0

I am trying to create a text file to b imported into an ISO database and I am stumped with this problem

The negative currency vales needs to be signed while postive values can be signed or unsigned.

The following are examples of how they want the data whole number only

Negative Amount

Units Position Numneric Value Symbol Hex Code

-0 } D0

-1 J D1

-2 K D2

-3 L D3

-4 M D4

-5 N D5

-6 O D6

-7 P D7

-8 Q D8

-9 R D9

As I see it -789 = PQR

My question is how do I convert the values to theses codes ?

There is a set of values for positive number as well.

Any help will be greatly appreciated.

[RBASE-L] - RE: ISO Export

Reply via email to