FWIW
(a) The "ISREDIT MACRO" should be the *1st* executable statement; there
should be no "PROC 0 <anything>" in edit macros - unless the edit macro
is actually embedded in the Clist (a bit unusual).
(b) Anyquotes should be enclosed in both '/*' and '*/' open/closing
chars, even in Clist.
The usual way to invoke an edit macro in Clist, e.g. in batch, is of the
form:
code the Clist to invoke the edit macro ...
PROC 0 DJSNAME(SPP.JOBSCAN)
/* COPYRIGHT DIVERSIFIED SOFTWARE SYSTEMS, INC., 1991,1993.
CONTROL END(ENDO) NOMSG NOFLUSH
ISPEXEC VPUT PARMSTR SHARED /* store whatever PARMSTR is for macro */
ISPEXEC EDIT DATASET('&DSJNAME') MACRO(<whatever edit macro name>)
ISPEXEC VGET RC SHARED /* get the macro RC from shared pool */
... finish off the Clist ...
EXIT CODE(&RC)
and code the macro as a separate member <whatever edit macro name> ...
ISREDIT MACRO /* specify no parms if invoked by a Clist */
CONTROL END(ENDO) NOMSG NOFLUSH
ISPEXEC VGET PARMSTR SHARED /* get the macro parms from shared pool */
... <execute whatever edit macro statements> ...
... save whatever the macro (MAX)CC is, as e.g. RC ...
ISPEXEC VPUT RC SHARED /* store whatever the RC is for Clist */
ISREDIT END /* return to Clist */
Both the Clist and edit macro should be members of a PDS on DDNAME=SYSPROC.HTH,
CP
On 26/08/2017 20:48, Lizette Koehler wrote:
> Did you use ISRDDN and search for JEM? Just to verify what you see.
>
> Only time I see this is when a CLIST is on SYSEXEC
>
>
> Lizette
>
>
>> -----Original Message-----
>> From: IBM Mainframe Discussion List [mailto:[email protected]] On
>> Behalf Of Jesse 1 Robinson
>> Sent: Saturday, August 26, 2017 8:27 AM
>> To: [email protected]
>> Subject: Message IRX0006I running an edit macro CLIST
>>
>> OK, this is a weird one. We have an old CLIST that runs as an ISPF edit
>> macro. On one sysplex only, this CLIST fails with a *Rexx* error message:
>>
>> IRX0006I Error running JEM, line 2: Unmatched "/*" or quote
>>
>> The actual line being complained about is included here:
>>
>> PROC 0 DJSNAME(SPP.JOBSCAN)
>> /* COPYRIGHT DIVERSIFIED SOFTWARE SYSTEMS, INC., 1991,1993.
>> CONTROL END(ENDO) NOMSG NOFLUSH
>> ISREDIT MACRO (PARMSTR)
>>
>> Of course there is no closing '*/' in line 2, but it's a CLIST, not a Rexx.
>> The CLIST was last modified in 2007 according to ISPF stats. What appears to
>> be exactly the same CLIST works fine on other sysplexes. The z/OS maintenance
>> level (RSU1705) is the same on working and nonworking plexes. I have looked
>> in SYSEXEC libraries and in other SYSPROC libraries for a bogus copy of this
>> exec; nothing found. The CLIST library is VB; member is unnumbered, so data
>> starts in column 9.
>>
>> What might cause a CLIST to be misinterpreted as Rexx?
>>
>>
>>
>> .
>> .
>> J.O.Skip Robinson
>> Southern California Edison Company
>> Electric Dragon Team Paddler
>> SHARE MVS Program Co-Manager
>> 323-715-0595 Mobile
>> 626-543-6132 Office <===== NEW
>> [email protected]<mailto:[email protected]>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
> .
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
