Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 1048
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: 1243
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 ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
No new posts Moving values to a variable of copybo... Vignesh Sid COBOL Programming 6 Wed Sep 06, 2017 1:04 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm
No new posts How to Run Rexx Macro? Kalaivignesh CLIST & REXX 5 Fri Sep 01, 2017 9:08 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us