That code looks dodgy! Unless I'm losing my marbles the test ((APPID <>
'VI01') | (APPID <> 'VI02')) will always be true.
On 11/10/2018 3:06 AM, Lopez, Sharon wrote:
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
