Shahan, Ray wrote: > Hi all, > > I don't understand what's going on with a simple accept statement: > > > 01 KC-CONTRACT PIC X(02) VALUE SPACES. > > PERFORM UNTIL (KC-CONTRACT <> SPACES) > ; DISPLAY "Enter KAD contract to process or 'E' to Exit: " > ; WITH NO ADVANCING > ; > ; ACCEPT KC-CONTRACT FREE > END-PERFORM. > > > One contract value is #7, and if I try that value, it's treated as > spaces, and so is just the single value of #. I can't find > where/why the pound sign symbal is converted/treated as spaces in > the *&^%$ hp WEB on-line COBOL manual, so any help would be > appreciated. Accept "free" uses the "#" sign as the termination character. See Cobol reference manual. -- John Pollard j underscore pollard at mindspring dot com * To join/leave the list, search archives, change list settings, * * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *