MVSFORUMS.com

[Naresh]

Iam trying to catch the value stored in FIND_COUNTS and have to use that value in another rexx program.

I used the following code to get the reuirement.

"ISREDIT (FCOUNT) = Find_Counts"
PUSH FCOUNT


But the Problem is when i put display iam getting as "DISPLAY" in FCOUNT.

SAY 'Find counts' FCOUNT.

can any one help me out!!!!

[kolusu]

Naresh,

If you need the variables in another rexx exec you need to use VPUT and VGET . Alternatively the variable you want to return is numeric, so you could use "exit" with the variable as the return code.

Kolusu

[dbzTHEdinosauer]

as long as another FIND command is not invoked,
the FIND_COUNTS variable always contains the count of the last find command,
within the edit session.
yeah, to other rexx needs to address ispedit.
_________________
Dick Brenholtz
American living in Varel, Germany

[Naresh]

Kolusu - I tried Making Use of PULL and PUSH Command,but still not ale to reach to my reuirement.

Brenholtz - iam not getting what it mean the another FIND command? i used the Below piece of code...

=======================================================

inp = 'DISPLAY'

push inp

address ispexec
"view dataset('"srcds"') macro(MacroEX)"

pull FCOUNT

if FCOUNT = 0 then say inp' exists in 'srcds


MACROEX
--------

/* REXX */
address isredit
"macro"
"FCOUNT"
"x all '*' 7"
pull inp
"f all nx " inp
"ISREDIT (FCOUNT) = Find_Counts"
SAY "find counts " Fcount
push FCOUNT
"end"

Please correct me if anything i did wrong. in the below display statement iam not seeing any value.

SAY "Find counts" FCOUNT


And one more doubt - will the SAY statements execute in the MACRO?

[expat]

Perhaps if you read up on the commands that Kolusu has suggested rather than completely different commands yo may start to make some progress
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?

[Naresh]

Hi All - I tried executing the code with the help of VGET and VPULL Commands. Still Iam not able to reach My destination . But i absored two points.

1) Iam not able to transfer the value to main REXX program from second rexx program(here it is Macroex)

2) even the Find_Counts value iam not ale to capture. i could see in diaplay statement the value as space.

please find the below code and correct me. Thanks to all in advance.

[Nic Clouston]

Well, no expert on macros but if your find count is 0 then your string was NOT found but your REXX1 is trying to say the opposite.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

[Naresh]

yes Clouston - I have to use "not equal" in REXX1. Typo mistake

But the problem here is I can't able to capture the "Find_counts" and i can't able to use this value in REXX1 program. have any idea on this.

Thanks for your response!!!

[expat]

Have you used a trace in REXX to see what is happening ?
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?

[dbzTHEdinosauer]

[semigeezer]

Line 4 of macroex: FCOUNT is not an editor command. The macro may be failing before executing your FIND or if FCOUNT is a macro, that macro (FCOUNT) may be corrupting the stack.
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.

[Naresh]

Hi All,

I Have used the TRACE Command to known where iam going wrong. I could see RC(20) for all th estatements which i have declared in Macroex module. Don't know why iam getting this errors. Please find the Code long with the trace displays

My REXX1 program :

/* REXX1 */
TRACE ?E
INP = 'DISPLAY'
ADDRESS ISPEXEC "VPUT (INP)"
"ISPEXEC VIEW DATASET('"BOST.NBKV6D2.EXAMPLE"') MACRO(MACROEX)"
IF 'FIND_COUNTS' > 0 THEN DO
SAY INP' EXISTS IN 'SRCPDS
END
ELSE DO
SAY INP' DOES NOT EXIST 'SRCPDS
END
EXIT

TRACE OUTPUT :

DISPLAY DOES NOT EXIST SRCPDS /* it seems no errors in this module*/


MACROEX :

Code :
/*REXX*/
TRACE ?E
ADDRESS ISREDIT
ISREDIT "X ALL '*' 7 "
ADDRESS ISPEXEC "VGET (INP) PROFILE"
SAY 'COMING ' INP
"F ALL NX 'DISPLAY'"
" ISREDIT (FIND) = FIND_COUNTS "
SAY 'VALU3' FIND

TRACE OUTPUT OF MACROEX :

4 *-* ISREDIT "X ALL '*' 7 "
+++ RC(20) +++
Interactive trace. TRACE OFF to end debug, ENTER to continue. +++

5 *-* ADDRESS ISPEXEC "VGET (INP) PROFILE"
+++ RC(8) +++

7 *-* "F ALL NX 'DISPLAY'"
+++ RC(20) +++

8 *-* " ISREDIT (FIND) = FIND_COUNTS "
+++ RC(20) +++

Iam just beginner in REXX so please don't hesistate to answer my question

[dbzTHEdinosauer]

macroex is not an ispedit macro.
_________________
Dick Brenholtz
American living in Varel, Germany

[Naresh]

Hi Brenholtz - sorry for my question - what does it mean that macroex is not an ISPedit macro? and also let me know how can i correct it. below is my Macroex code.

/*REXX*/
TRACE ?E
ADDRESS ISREDIT
"MACRO"
ISREDIT "X ALL '*' 7 "
ADDRESS ISPEXEC "VGET (INP) PROFILE"
SAY 'COMING ' INP
"F ALL NX 'DISPLAY'"
" ISREDIT (FIND) = FIND_COUNTS "
SAY 'VALU3' FIND

[Nic Clouston]

What you have coded here is not what you coded above. Your last post includes the word MACRO but it is not present in your previous post. Stop pfaffing about - use cut and paste and the code tags. Also, you do not appear to have defined SRCPDS. Have you looked at the ISPF EDIT AND EDIT MACRO manual? If not - DO SO. If it is not to hand just cut and paste that title into google and go from there.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.