On Thu, 11 Oct 2018 11:54:06 +0800, David Crayford wrote:
>That code looks dodgy! Unless I'm losing my marbles the test ((APPID <>
>'VI01') | (APPID <> 'VI02')) will always be true.
>
Vernacular. Some casually say, "if APPID is not V101 or V102", then code
incorrectly ((APPID <> 'VI01') | (APPID <> 'VI02')) when it should be
((APPID <> 'VI01') & (APPID <> 'VI02')). I've even seen such as
APPID <> V101 | V102. Some compilers accept that, with unintended
result.
Hmmm... Is Sharon in Winston-Salem?
>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
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
