This is some of the code; I did not write it and I do not know how to code in
REXX.
WHEN (SUBSYS = 'A') & ((APPID <> 'VI01') | (APPID <> 'VI02'))
THEN DO
"SEND 'CMNNEWCO F "CicsName",CEMT SET PROG("member")",
"PH' OPERATOR(2)"
END
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Paul Gilmartin
Sent: Wednesday, October 10, 2018 2:48 PM
To: [email protected]
Subject: Re: REXX question
On Wed, 10 Oct 2018 18:26:51 +0000, Lopez, Sharon wrote:
>We have a CHANGEMAN REXX exec that issues this:
>
>+CMNNEWCO F PRODAORB,CEMT SET PROG(DPLDB2IR) PH
>
>but now it is appending the userid to the end:
>
>+CMNNEWCO F PRODAORB,CEMT SET PROG(DPLDB2IR) PH CMNBATCH
>
>Has anyone seen anything like this before? The REXX hasn't changed.
>
Is this terminal log? Or TRACE output? Can you post (some of) the Rexx code?
Are you quoting all your strings? Is SIGNAL ON NOVALUE in effect (recommended).
Do I see extreme abbreviations? It's easier for an outsider to read
unabbreviated.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
The information in this transmission may contain proprietary and non-public
information of BB&T or its affiliates and may be subject to protection under
the law. The message is intended for the sole use of the individual or entity
to which it is addressed. If you are not the intended recipient, you are
notified that any use, distribution or copying of the message is strictly
prohibited. If you received this message in error, please delete the material
from your system without reading the content and notify the sender immediately
of the inadvertent transmission.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
