IBM Mainframe Forum

Hi,

I am trying to get multiple members in a PDS to get updated for a input value which I am asking user to enter but it gives me a message that "macro not found" after showing all the members sequentially.

Please see the below rexx exec:


and the macro IM001:


I know it can be best done through panels but As I am a beginner I would like to do it first in this way.

Please pardon any silly mistake.
Thanks,
Sumit

You need to include a member name here:

Currently, I believe DSN is only the data set name.

I do not think your main rexx executes from within the editor. These will not work here and should be removed:

Anyway, MEND is obsolete.

HI Pedro, Thanks a lot for the reply. My motive is to update all the members inside the PDS, which I am taking as input from user and it is captured in the DSN variable. Along with DSN there are 2 more inputs from user one is the source string and other to replace the source string.
When I am executing the rexx exec, it take me inside the PDS


WHen I press F3, it says "MEMBER NAME IS: TEST2," and like wise it repeats for all the members and finally RC=0

You are getting the member list because you do not specify a member name on the EDIT call. If you provide the member name, you will not see the member list.

Hi Pedro,

I have modified my program to include the member list as well but when I execute my rexx it gives the below message


IM001 is my macro. When I press ENTER, it again takes me inside the PDS and gives the error "Macro does not exist" as mentioned below:


I have read in a earlier post, the my library should be concatenated with SYSPROC, but here I am using 'exec' to execute my program and also I have checked that I don't have access to any of the SYSPROC libraries.

Could you please have a look and tell me where I am making the error. The new code is as mentioned below:


Macro is same as mentioned in an earlier post.

Thanks,
Sumit

Hi Pedro,

The program ran successfully and updated all the members as desired but there is a peculiar problem coming, It ran fine for the first time but when I am trying to run it again even though it says all the members processed successfully as mentioned below but it does not update the members actually.



I have used the below code to concatenate my library to SYSPROC.



Below is rexx exec:


Macro IM001:


I am not able to understand why it ran fine for the first time and not after that. Can you please help me with this issue?

Thanks,
Sumit

The code looks good.

Can you provide a sample member? What are your two input values?

Why do you have ISREDIT "MACRO PROCESS" at the start of your program? It is not a macro, is it?

Hi Pedro,

The PDS which I am taking as input from screen is 'XXXXXX.TEST.MYUTIL' and it has 3 members (test1, test2, test3) with the value 'ABC'
So the process after executing the rexx exec is as mentioned below:
ENTER OLD DISSECTION NAME : ABC
ENTER NEW DISSECTION NAME: PPP
ENTER PDS NAME : XXXXXX.TEST.MYUTIL

When I press enter, it gives the below messages:

TOTAL 3 MEMBERS OF XXXXXX.TEST.MYUTIL TO BE PROCESSED..........
MEMBERS STATUS,
TEST1 PROCESSED SUCCESSFULLY,
TEST2 PROCESSED SUCCESSFULLY,
TEST3 PROCESSED SUCCESSFULLY,
***,

Expected result is all the members should have replaced 'ABC' by 'PPP'. But when I check the members, the expected updates did not happened. At present I am taking input though 'SAY' and 'PULL', Later I am planning to use panels for this.

Also to concatenate my library (where my rexx exec is kept) I am using the below code which concatenates my library to SYSPROC, but this is a temporary concatenation (which remains there from Mainframe up to down). I do not have SYSEXEC listed in from 'TSO ISRDDN'

"ALLOC F(MYPDS) DA('TPU232.TEST.UTIL') SHR REU"
CALL BPXWDYN "CONCAT DDLIST(SYSPROC,MYPDS) MSG(2)"
EXIT 0

Thanks,
Sumit