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

Active Member


Joined: 07 Feb 2009
Posts: 989
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: 1224
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
No new posts Sorting group data rajella DFSORT/ICETOOL 4 Sun Jan 22, 2017 11:32 pm
No new posts Storing huge volume of data, compare ... Pradeep K M All Other Mainframe Topics 3 Mon Jan 16, 2017 5:08 pm
No new posts how to recover an uncataloged VSAM da... archanamuthukrishnan All Other Mainframe Topics 3 Wed Jan 11, 2017 6:18 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 1 Mon Jan 02, 2017 11:16 am


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