IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Regarding ISREDIT MACRO


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rajesh_m

New User


Joined: 15 Apr 2008
Posts: 39
Location: India

PostPosted: Thu Jun 12, 2008 6:29 pm
Reply with quote

Hi All,

By using ISREDIT MACRO i have replaced with one string to another. Is there any possibilty to know how many replacements are done .

For example -> c all 'str1' 'str2'

I want to know how many replacements are done.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Jun 12, 2008 7:11 pm
Reply with quote

CHANGE_COUNTS—Query Change Counts

The CHANGE_COUNTS assignment statement retrieves values set by the most recently processed CHANGE command and places these values in variables.

Syntax Assignment statement syntax

ISREDIT (var1,var2) = CHANGE_COUNTS

var1 The name of a variable to contain the number of strings changed. It must be an 8-character value that is left-padded with zeros.

var2 The name of a variable to contain the number of strings that could not be changed. It also must be an 8-character value that is left-padded with zeros.

Return codes
0 Normal completion
20 Severe error

Examples:

To put the number of changes resulting from the most recent CHANGE command into the variable &CHGED:
ISREDIT (CHGED) = CHANGE_COUNTS

To put the number of change errors into variable &ERRS:
ISREDIT (,ERRS) = CHANGE_COUNTS

To put the number of changes and change errors into variables &CHG and &ERR:
ISREDIT (CHG,ERR) = CHANGE_COUNTS


SC34-4820-05 Edit and Edit Macros z/OS Version 1 Release 8.0
Back to top
View user's profile Send private message
rajesh_m

New User


Joined: 15 Apr 2008
Posts: 39
Location: India

PostPosted: Thu Jun 12, 2008 7:48 pm
Reply with quote

Hi dbzTHEdinosauer,
I am getting
"System abend code 0C4, reason code 00000004.
Abend in external function ISREDIT.
5 +++ ISREDIT(CHGED) = CHANGE_COUNTS "
When i tried to execute.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Jun 12, 2008 8:40 pm
Reply with quote

are you using trace? Is the resolution of the command correct?

Quote:

5 +++ ISREDIT(CHGED) = CHANGE_COUNTS"


from what you have provided, the syntax is incorrect. only one ".
Back to top
View user's profile Send private message
rajesh_m

New User


Joined: 15 Apr 2008
Posts: 39
Location: India

PostPosted: Thu Jun 12, 2008 8:52 pm
Reply with quote

Can you give me small example how to use
"ISREDIT(CHGED) = CHANGE_COUNTS"
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley

PostPosted: Thu Jun 12, 2008 9:12 pm
Reply with quote

Code:
Abend in external function ISREDIT.
5 +++ ISREDIT(CHGED) = CHANGE_COUNTS "


You did not copy the example correctly. It should look something like this:
Code:
Address ISREDIT  "(CHGED) = CHANGE_COUNTS "

whereas, you have ISREDIT abutted with (chged) making it look like a function call. And I recommend using quotes around the macro statement so rexx does not try to resolve it.
Back to top
View user's profile Send private message
rajesh_m

New User


Joined: 15 Apr 2008
Posts: 39
Location: India

PostPosted: Fri Jun 13, 2008 8:30 am
Reply with quote

Thank you dbzTHEdinosauer and Pedro its worked.

Thank you very much for your response..........
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts PRINTOUT macro PL/I & Assembler 0
No new posts create rexx edit Macro that edits the... CLIST & REXX 3
No new posts Issues with executing a REXX MACRO th... TSO/ISPF 4
No new posts Facing issue in Run Edit Macro Job CLIST & REXX 9
No new posts outtrap does not capture within an ed... CLIST & REXX 1
Search our Forums:

Back to Top