You can use the INITIALIZE command.  This will move spaces or zeroes
depending on the pic.

Later


Ron Horner
HP3000 Senior Programmer/Analyst
Administrative Management Group
[log in to unmask]


        -----Original Message-----
        From:   Cary A Marshall [SMTP:[log in to unmask]]
        Sent:   Wednesday, December 16, 1998 6:07 PM
        To:     [log in to unmask]
        Subject:        01 Level Initialization in COBOL

        Hello Everyone,

        I'd like to initialize the working storage for a file area in a
COBOL
        program which contains numeric and alphanumeric fields. It's
been a while
        since I've worked with COBOL, but I thought that if you
initialized the file
        at the 01 level, then values at the 02, 03, etc levels would be
properly
        initialized.  Can this be done?  If so, how?  I've been told "no
way", but I
        seem to remember doing so by moving low-values or spaces or ....
to the 01
        level.

        TIA

        Cary Marshall