TSO EDIT help

Raquel Rodriguez

TSO EDIT help
Greetings everyone!! Had a TSO related question that
hopefully someone could help me with.

With a TSO EDIT command (not ISPF Edit), is there a
way we can change a HEX string in a dataset.

For example, the following works pretty well:

CHANGE 'ABC' 'DEF' ALL

But the following doesn't work:

CHANGE X'00' X'40' ALL

The above gives a 'TEXT NOT FOUND' error while the
dataset does contain X'00' string.

TIA
Raquel.

__________________________________
Do you Yahoo!?
Protect your identity with Yahoo! Mail AddressGuard
http://antispam.yahoo.com/whatsnewfree

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". If you will be out of the office, send the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

Paul A Redhead

Re: TSO EDIT help
(in response to Raquel Rodriguez)
Raquel,
I'm not familiar with TSO Edit and so am probably way off base. I
know that I've found when writing REXX execs that REXX will happily accept
an assignment like
VAR = X'AABBCC' , but the contents of VAR display as XAABBCC (ie a
7 byte string). If I want the HEX value I must specify the X as a suffix,
eg VAR = 'AABBCC'X .

Paul.





Raquel Rodriguez <[login to unmask email]>@IDUGDB2-L.ORG> on
02/01/2004 12:03:39 PM

Please respond to DB2 Database Discussion list at IDUG
<[login to unmask email]>

Sent by: DB2 Data Base Discussion List <[login to unmask email]>


To: [login to unmask email]
cc:
Subject: TSO EDIT help


Greetings everyone!! Had a TSO related question that
hopefully someone could help me with.

With a TSO EDIT command (not ISPF Edit), is there a
way we can change a HEX string in a dataset.

For example, the following works pretty well:

CHANGE 'ABC' 'DEF' ALL

But the following doesn't work:

CHANGE X'00' X'40' ALL

The above gives a 'TEXT NOT FOUND' error while the
dataset does contain X'00' string.

TIA
Raquel.

__________________________________
Do you Yahoo!?
Protect your identity with Yahoo! Mail AddressGuard
http://antispam.yahoo.com/whatsnewfree

---------------------------------------------------------------------------------

Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and
home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page
select "Join or Leave the list". If you will be out of the office, send
the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List
Admins can be reached at [login to unmask email] Find out the
latest on IDUG conferences at http://conferences.idug.org/index.cfm




************************************************************
Opinions contained in this e-mail do not necessarily reflect
the opinions of the Queensland Department of Main Roads,
Queensland Transport or Maritime Safety Queensland, or
endorsed organisations utilising the same infrastructure.
If you have received this electronic mail message in error,
please immediately notify the sender and delete the message
from your computer.
************************************************************

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". If you will be out of the office, send the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

Binyamin Dissen

Re: TSO EDIT help
(in response to Paul A Redhead)
On Thu, 1 Jan 2004 18:03:39 -0800 Raquel Rodriguez
<[login to unmask email]> wrote:

:>Greetings everyone!! Had a TSO related question that
:>hopefully someone could help me with.

:>With a TSO EDIT command (not ISPF Edit), is there a
:>way we can change a HEX string in a dataset.

:>For example, the following works pretty well:

:>CHANGE 'ABC' 'DEF' ALL

:>But the following doesn't work:

:>CHANGE X'00' X'40' ALL

:>The above gives a 'TEXT NOT FOUND' error while the
:>dataset does contain X'00' string.

I do not believe that TSO EDIT supports hex strings.

I presume this is for a clist/REXX ....

Well, you can invoke ISPF EDIT out of a CLIST/REXX and have an IMACRO which
does the changes and saves it.

--
Binyamin Dissen <[login to unmask email]>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". If you will be out of the office, send the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

Shatsky

Re: TSO EDIT help
(in response to Binyamin Dissen)
I always use ISPF EDIT, but it seems similar to TSO EDIT.

I would first do:



FIND ALL X'00'



If nothing is found, you can visually confirm this by entering:



HEX ON



Be sure you are using the numeral zero and not the letter "O".

Also be sure you do not have BOUNDS (BNDS on data line prefix) set to
columns where there are no hex zeros.





If the hex zeros are found modify the FIND command to:



CHANGE ALL X'00' X'40'





Scott Shatsky--







-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On Behalf
Of Raquel Rodriguez
Sent: Friday, January 02, 2004 4:04 AM
To: [login to unmask email]
Subject: TSO EDIT help



Greetings everyone!! Had a TSO related question that

hopefully someone could help me with.



With a TSO EDIT command (not ISPF Edit), is there a

way we can change a HEX string in a dataset.



For example, the following works pretty well:



CHANGE 'ABC' 'DEF' ALL



But the following doesn't work:



CHANGE X'00' X'40' ALL



The above gives a 'TEXT NOT FOUND' error while the

dataset does contain X'00' string.



TIA

Raquel.



__________________________________

Do you Yahoo!?

Protect your identity with Yahoo! Mail AddressGuard

http://antispam.yahoo.com/whatsnewfree



----------------------------------------------------------------------------
-----

Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". If you will be out of the office, send the SET
DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins
can be reached at [login to unmask email] Find out the latest on
IDUG conferences at http://conferences.idug.org/index.cfm


---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". If you will be out of the office, send the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

John McKown

Re: TSO EDIT help
(in response to Shatsky)
It can be done, but is a bit difficult. What you must do before entering the
EDIT command is to issue the TSO command "TERMINAL" to remap a normal key to
x'00'. Suppose you want to remap the - key to x'00'. In EBCDIC, the '-' is
x'60'. So you'd enter the command:

TERMINAL CHAR((X'60'),(X'00'))

Now, when you enter a '-', TSO will translate it to a x'00'. You may now
EDIT the data set and enter the change command: CHANGE '-' ' ' ALL. You now
end the EDIT session with END SAVE. Now, back at the READY prompt, enter:

TERMINAL NOCHAR

to undo the translation. I tested this and it worked for me.


--
John McKown
Senior Systems Programmer
UICI Insurance Center
Applications & Solutions Team
+1.817.255.3225

This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and its' content is
protected by law. If you are not the intended recipient, you should delete
this message and are hereby notified that any disclosure, copying, or
distribution of this transmission, or taking any action based on it, is
strictly prohibited.

> -----Original Message-----
> From: Raquel Rodriguez [mailto:[login to unmask email]
> Sent: Thursday, January 01, 2004 8:04 PM
> To: [login to unmask email]
> Subject: TSO EDIT help
>
>
> Greetings everyone!! Had a TSO related question that
> hopefully someone could help me with.
>
> With a TSO EDIT command (not ISPF Edit), is there a
> way we can change a HEX string in a dataset.
>
> For example, the following works pretty well:
>
> CHANGE 'ABC' 'DEF' ALL
>
> But the following doesn't work:
>
> CHANGE X'00' X'40' ALL
>
> The above gives a 'TEXT NOT FOUND' error while the
> dataset does contain X'00' string.
>
> TIA
> Raquel.
>
> __________________________________
> Do you Yahoo!?
> Protect your identity with Yahoo! Mail AddressGuard
> http://antispam.yahoo.com/whatsnewfree
>
> --------------------------------------------------------------
> -------------------
> Welcome to the IDUG DB2-L list. To unsubscribe, go to the
> archives and home page at
> http://www.idugdb2-l.org/archives/db2-> l.html. From that page
> select "Join or Leave the list". If
> you will be out of the office, send the SET DB2-L NO MAIL
> command to [login to unmask email] The IDUG List Admins
> can be reached at [login to unmask email] Find out
> the latest on IDUG conferences at
> http://conferences.idug.org/index.cfm
>

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". If you will be out of the office, send the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

Ali OZTURK

Re: TSO EDIT help
(in response to John McKown)
Hi Raquel,
try TOP command before the second CHANGE.
like this,

CHANGE ...
TOP
CHANGE ...



-----Original Message-----
From: Raquel Rodriguez [mailto:[login to unmask email]
Sent: Friday, January 02, 2004 4:04 AM
To: [login to unmask email]
Subject: TSO EDIT help


Greetings everyone!! Had a TSO related question that
hopefully someone could help me with.

With a TSO EDIT command (not ISPF Edit), is there a
way we can change a HEX string in a dataset.

For example, the following works pretty well:

CHANGE 'ABC' 'DEF' ALL

But the following doesn't work:

CHANGE X'00' X'40' ALL

The above gives a 'TEXT NOT FOUND' error while the
dataset does contain X'00' string.

TIA
Raquel.

__________________________________
Do you Yahoo!?
Protect your identity with Yahoo! Mail AddressGuard
http://antispam.yahoo.com/whatsnewfree

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". If you will be out of the office, send the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". If you will be out of the office, send the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

Susan A Allen

Re: TSO EDIT help
(in response to Ali OZTURK)
I use FILEAID for in stream changes to production data files;

of note: for each change you use a new DD number; it points the change command to the top of the file

-- Susan

see JCL example:

//*****************************************************************
//* FILEAID STEP TO STRIP OUT HEX X'41' CHAR BEFORE FTP *
//* FILEAID STEP TO STRIP OUT HEX X'6B' CHAR BEFORE FTP (COMMA) *
//* THIS IS TWO STEPS ON THE SAME FILE *
//*****************************************************************
//P610 EXEC PGM=FILEAID,REGION=4096K,
// ACCT=EXCP,COND=(4,LT)
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=(*)
//DD01 DD DSN=GDGDATA.SMRT.UNLDSHA(+1),DISP=SHR
//DD02 DD DSN=GDGDATA.SMRT.UNLDSHA(+1),DISP=SHR
//SYSIN DD *
$$DD01 UPDATE EDITALL=(1,0,X'41',X'40')
$$DD02 UPDATE EDITALL=(1,0,X'6B',X'40')
/*
//*




-----Original Message-----
From: [login to unmask email] [mailto:[login to unmask email]
Sent: Friday, January 02, 2004 7:37 AM
To: [login to unmask email]
Subject: Re: TSO EDIT help


Hi Raquel,
try TOP command before the second CHANGE.
like this,

CHANGE ...
TOP
CHANGE ...



-----Original Message-----
From: Raquel Rodriguez [mailto:[login to unmask email]
Sent: Friday, January 02, 2004 4:04 AM
To: [login to unmask email]
Subject: TSO EDIT help


Greetings everyone!! Had a TSO related question that
hopefully someone could help me with.

With a TSO EDIT command (not ISPF Edit), is there a
way we can change a HEX string in a dataset.

For example, the following works pretty well:

CHANGE 'ABC' 'DEF' ALL

But the following doesn't work:

CHANGE X'00' X'40' ALL

The above gives a 'TEXT NOT FOUND' error while the
dataset does contain X'00' string.

TIA
Raquel.

__________________________________
Do you Yahoo!?
Protect your identity with Yahoo! Mail AddressGuard
http://antispam.yahoo.com/whatsnewfree

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". If you will be out of the office, send the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". If you will be out of the office, send the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". If you will be out of the office, send the SET DB2-L NO MAIL command to [login to unmask email] The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm