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:
Weird COBOL thing
From:
"Shahan, Ray" <[log in to unmask]>
Reply To:
Shahan, Ray
Date:
Fri, 14 Feb 2003 09:59:06 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (31 lines) 
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.

BTW, happy FRIDAY!!

TIA

Ray Shahan

"Life is what happens while you're busy making other plans", John Lennon

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2