HP3000-L Archives

February 2003, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Weird COBOL thing
From:
John Pollard <[log in to unmask]>
Reply To:
John Pollard <[log in to unmask]>
Date:
Fri, 14 Feb 2003 10:46:48 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (33 lines) 
 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 *

ATOM RSS1 RSS2