The functions EXTIN' and INEXT' convert between Real and ASCII numbers.
There's an old "greenie" HP Note about using it for conversion. There's
even info on how to use it for conversion in RPG!. Note that the
trailing tic mark (single quote) is part of the function name (as in
CALL "EXTIN'").

Tony Summers wrote:
>
> Hello all.
>
> Can anybody enlighten me as to translate between VB's "Single" data type and
> numeric data types in Cobol.  (eg. PIC S9(n)v9(m) comp sync or comp-3 etc)
>
> I've managed to translate between VB's integer and long data types to plain old
> PIC s9(n) COMP SYNC by simply byte swapping on the HP (what my 3rd party vendor
> refers to as "little Endian").
>
> I would prefer to do the translation on the HP.
>
> Ta an e-Bundle.