Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Capturing the short message data in some variable in Rexx ?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
ermanjitsingh

New User


Joined: 08 Jun 2009
Posts: 19
Location: Banglore

PostPosted: Thu Aug 13, 2009 11:18 am    Post subject: Capturing the short message data in some variable in Rexx ?
Reply with quote

Hi.

Actually i want to capture the short message data in some variable in Rexx & want to use that values.

Is there is any system variable in which those short message description is stored ?

Let us say:

if we run a find command on a cobol program and then at the top right, message appears that ' 5 Chars found ' i want to capture this value in my rexx variable .
Code:

.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
VIEW       AGCVP1S.V823.SRCLIB.SP090417(ARU040) - 01.           1 CHARS 'DURE'
Command ===>                                                  Scroll ===> CSR 
000339 028900*                                                                 
000340 029000 PROCEDURE DIVISION.                                             
000341 029100*                                                                 
000342 029200 0000-MAINLINE.                                                   
000343 029300*                                                                 
000344 029400     PERFORM 1000-BEGIN-OF-JOB                                   
000345 029500        THRU 1000-BOJ-EXIT.                                       
000346 029600*                                                                 
000347 029700     PERFORM 2000-PROCESS-USER-INPUT                             
000348 029800        THRU 2000-PUI-EXIT   UNTIL EOF-BOTH.                     




Can anyone please help me on this
Back to top
View user's profile Send private message

prino

Senior Member


Joined: 07 Feb 2009
Posts: 1018
Location: Oostende, Belgium

PostPosted: Thu Aug 13, 2009 2:40 pm    Post subject:
Reply with quote

Can only be done inside an edit macro:

Code:
"isredit macro (parm)"
"isredit macro_msg = ON"
"isredit find '"parm"' all"
"isredit macro_msg = OFF"

short = zedismsg
long  = zedilmsg
msgno = zedmsgno
Back to top
View user's profile Send private message
ermanjitsingh

New User


Joined: 08 Jun 2009
Posts: 19
Location: Banglore

PostPosted: Thu Aug 13, 2009 5:48 pm    Post subject:
Reply with quote

prino wrote:
Can only be done inside an edit macro:



Thanks Robert

I want it thru edit Macro only.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1228
Location: Israel

PostPosted: Thu Aug 13, 2009 7:31 pm    Post subject: Reply to: Capturing the short message data in some variable
Reply with quote

If you only want to know how many hits your FIND has got, then use FIND_COUNTS
Code:
ISREDIT (var1,var2) = FIND_COUNTS

You should check the return code from the FIND command too (4 is String not found)
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us