CONVERTANSITOOEM (convert ANSI strings to ASCII)

Top  Previous  Next

 

CONVERTANSITOOEM( string )

CONVERTANSITOOEM

Translates ANSI strings to OEM ASCII.

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 CONVERTANSITOOEM statement translates either a single string or the strings within a GROUP from the ANSI (Windows display) character set into the OEM character set (ASCII with extra characters defined by the active code page).

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:

CONVERTOEMTOANSI

OEM