HP3000-L Archives

November 2004, Week 3

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:
Replacing Special Characters
From:
Peter Osborne <[log in to unmask]>
Reply To:
Peter Osborne <[log in to unmask]>
Date:
Thu, 18 Nov 2004 15:44:56 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (30 lines) 
Hi All,

One of our programmers is having problems replacing certain characters in
Cobol and I'm wondering if anyone can enlighten us.

Following are the statements in COBOL to do the replacement.

01 QUOTE-CHAR        PIC X  VALUE %42.
01  BUFF                     PIC X(80) VALUE "ABC&DEF'GH>IJK<LM".

INSPECT BUFF REPLACING ALL "&" BY "&amp;".
INSPECT BUFF REPLACING ALL "<" BY "&lt;".
INSPECT BUFF REPLACING ALL ">" BY "&gt;".
INSPECT BUFF REPLACING ALL "'" BY "&apos;".
INSPECT BUFF REPLACING ALL QUOTE-CHAR BY "&quot;".

got compile error:
OPERAND & HAS ILLEGAL FORMAT FOR STATEMENT.
OPERAND < HAS ILLEGAL FORMAT FOR STATEMENT.
OPERAND > HAS ILLEGAL FORMAT FOR STATEMENT.
OPERAND ' HAS ILLEGAL FORMAT FOR STATEMENT.
OPERAND QUOTE-CHAR HAS ILLEGAL FORMAT FOR STATEMENT.

Any ideas?
Thanks,
Pete

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

ATOM RSS1 RSS2