|
View previous topic :: View next topic
|
| Author |
Message |
ermanjitsingh
New User
Joined: 08 Jun 2009
Posts: 19
Location: Banglore
|
|
|
|
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 |
|
 |
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania
|
|
|
|
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 |
|
|
ermanjitsingh
New User
Joined: 08 Jun 2009
Posts: 19
Location: Banglore
|
|
|
|
| prino wrote: |
Can only be done inside an edit macro:
|
Thanks Robert
I want it thru edit Macro only. |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
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 |
|
|
|
|
