Ron,

        Why not just use a de-editing move.

WORKING-STORAGE SECTION.
01  ASCII-STRING                PIC X(6).
01  EDITED-STRING REDEFINES ASCII-STRING PIC 99,999.
01  NUMERIC-VALUE          PIC S9(9) BINARY.

PROCEDURE DIVISION.


MOVE '12,345' TO ASCII-STRING.
MOVE EDITED-STRING TO NUMERIC-VALUE.

        Numeric value is now the binary equivalent to ascii-string.

Bob Schlosser
(407) 727-5893

        -----Original Message-----
        From:   RON HORNER [SMTP:[log in to unmask]]
        Sent:   Wednesday, August 25, 1999 14:21
        To:     [log in to unmask]
        Subject:        ASCII STRING TO NUMERIC CONVERSION

        Does anyone have the source to a COBOL program that will convert an
ASCII
        string to its numeric representation?


        Thanks!!

        Ron Horner
        Operations Manager
        Administrative Management Group
        [log in to unmask]
        (847) 870-2175