CONVERTOEMTOANSI (convert ASCII strings to ANSI)

Top  Previous  Next

 

CONVERTOEMTOANSI( string )

CONVERTOEMTOANSI

Translates OEM ASCII strings to ANSI.

string

The label of the string to convert. This may be a single variable or a any structure that is treated as a GROUP (RECORD, QUEUE, etc.).

The CONVERTOEMTOANSI statement translates either a single string or the strings within a GROUP from the the OEM character set (ASCII with extra characters defined by the active code page) into ANSI (Windows display) character set.

This procedure is not required on data files if the OEM attribute is set on the file.

Example:

Customer  FILE,DRIVER('Clarion'),PRE(Cus)  !Declare file without OEM attribute

AcctKey    KEY(Cus:AcctNumber)

Record      RECORD

AcctNumber   LONG

OrderNumber  LONG

Name         STRING(20)

Addr         STRING(20)

           END

         END

 

Win WINDOW,SYSTEM

    STRING(@s20),USE(Cus:Name)

   END

 

CODE

OPEN(Customer)

SET(Customer)

NEXT(Customer)

CONVERTOEMTOANSI(Cus:Record)              !Convert all strings from ASCII to ANSI

OPEN(Win)

ACCEPT

 !Process window controls

END

CONVERTANSITOOEM(Cus:Record)              !Convert back to ASCII from ANSI

PUT(Customer)

 

See Also:

CONVERTANSITOOEM

OEM