When a source line happens to contain an ampersand it can still be read by
ISREDIT (THELINE) = LINE &ROW
However, an attempt to rewrite it back [even unchanged!]
ISREDIT LINE &ROW = &THELINE
fails, and so does an attempt to examine its contents with the &SUBSTR
function.
I've looked through the manuals, tried SCAN OFF/ON but ended up with
replacing the ampersands BEFORE reading the line
ISREDIT LABEL &ROW = .CURR
ISREDIT CHANGE X'50' X'EF' .CURR .CURR ALL
and restoring them back later
ISREDIT CHANGE X'EF' X'50' .CURR .CURR ALL
This works [except for the rare case when X'EF' is actually part of the
original source code and thus gets mistakenly replaced with the ampersand]
but just doesn't feel right. I guess it would if the restore was done
through UNDO but it's unavailable to ISREDIT.
Am I missing something stupid or is this a known limitation?
Thanks!
-Victor-
_
This message and any attachments are intended only for the use of the addressee
and
may contain information that is privileged and confidential. If the reader of
the
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
