MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

how do I make a global change in column using hex (in Cobol)

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
MAUIGIRL
Beginner


Joined: 04 Dec 2007
Posts: 1
Topics: 1
Location: Hawaii

PostPosted: Wed Dec 05, 2007 8:44 pm    Post subject: how do I make a global change in column using hex (in Cobol) Reply with quote

In tso there is a way to make a global change using some hex command that I have forgotton how to use. Here is an example of what I am talking about.

EDIT 339C19A.T46F8B0B.SRC Columns
Command ===> c '016' ' ' 1 all Scro
==CHG> 900 05 WS-FROM-CC PIC X(2).
==CHG> 000 05 WS-FROM-YY PIC X(2).
==CHG> 100 05 FILLER PIC X(1) VALUE '-'.
==CHG> 200 05 WS-FROM-MM PIC X(2).

The command that I'm looking for is something like this

c hex(^' ') ' ' 1 all . thats not the correct command, but I thought maybe it would trigger someone's thoughts. It reads like this Change everything in column one that is not equal spaces to spaces.

If anyone could shed some light I would greatly appreciate it.

Thanks,
MauiGirl
Back to top
View user's profile Send private message
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Wed Dec 05, 2007 11:06 pm    Post subject: Reply with quote

for this spcial case, use
Code:
C P'=' ' ' ALL 1
which changes everything in column 1 to spaces including spaces, but that is OK for your description. Have a look at the help (F1) for information on picture strings. ISPF edit and browse do not have a 'not' operation in the FIND and CHANGE commands, though there is a picture string that uses the 'not' character (which you can also use in your case) that represents non-blank characters.
[code:1:101d7a9454]C P'
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.
Back to top
View user's profile Send private message Visit poster's website
prgaj1
Beginner


Joined: 01 Jul 2003
Posts: 6
Topics: 5
Location: Pennsylvania, USA

PostPosted: Wed Jun 04, 2008 3:56 pm    Post subject: Reply with quote

One use P for special characters but one can also use - "X".... if you would like all space colon to space comma you would have the following code

Code:
C X'405E' X'406B' all

You will first have to set HEX ON to be able to see your hex characters
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group