My reqt is to change the naming standards of a member which the user enters in the CLIST panel.
I will open a PDS which has so many members and will open up any member and will type the REXX macro in command line. First the REXX calls a panel wherein I will type a member to be processed. Then the rexx macro will get the member name and will call the Edit macro for doing the processing to that particular member alone. If I am typing the right member name which resides inside a PDS, it is working perfect. But if I am typing a member name which is not in the PDS, it is giving error
ISRLS131
Invalid member name
Member name "TESTMEM" is invalid or has not been initialized to blanks.
Code is
"ISREDIT MACRO (DVLPRGN)"
"ISREDIT (OPENPDS) = DATAID"
"ISREDIT (OPENDSN) = DATASET"
ADDRESS ISPEXEC
"LMINIT DATAID("OPENPDS") DATASET("OPENDSN") ENQ(EXCLU)"
"LMOPEN DATAID("OPENPDS") OPTION(INPUT)"
"DISPLAY PANEL(PNLTST)" /* calling CLIST panel */
"VPUT (MEM1) SHARED" /* getting the member name feom panel */
"LMMLIST DATAID("OPENPDS") MEMBER(MEM1) OPTION(LIST) STATS(NO)" /* error happens here */
"VIEW DATAID("OPENPDS") MEMBER("MEM1") MACRO(WALKJCL)"
"LMMLIST DATAID("OPENPDS") OPTION(FREE)"
"LMCLOSE DATAID("OPENPDS")"
"LMFREE DATAID("OPENPDS")"
EXIT
"ISREDIT (OPENPDS) = DATAID"
"ISREDIT (OPENDSN) = DATASET"
ADDRESS ISPEXEC
"LMINIT DATAID("OPENPDS") DATASET("OPENDSN") ENQ(EXCLU)"
"LMOPEN DATAID("OPENPDS") OPTION(INPUT)"
"DISPLAY PANEL(PNLTST)" /* calling CLIST panel */
"VPUT (MEM1) SHARED" /* getting the member name feom panel */
"LMMLIST DATAID("OPENPDS") MEMBER(MEM1) OPTION(LIST) STATS(NO)" /* error happens here */
"VIEW DATAID("OPENPDS") MEMBER("MEM1") MACRO(WALKJCL)"
"LMMLIST DATAID("OPENPDS") OPTION(FREE)"
"LMCLOSE DATAID("OPENPDS")"
"LMFREE DATAID("OPENPDS")"
EXIT
Could anyone of you please help me regarding this.
Thanks
Chidams
