I cannot remember what the purpose was. I realise it is a bit odd to
have X2C(C2X(<...>)). Perhaps it was just to have the same X2C(<...>)
parms in the BITAND(): e.g. RB_TYPE_VAL =
C2X(BITAND(X2C(X_E0),X2C(RBSTAB1)))
On 20/04/2022 04:37, Tony Harminc wrote:
> On Tue, 19 Apr 2022 at 20:58, CM Poncelet
> <000003e99a92061c-dmarc-requ...@listserv.ua.edu> wrote:
>> FWIW No idea what "runarray" does, but attached is an example [in this
>> case for a CICS SVC dump] of some native IPCS REXX [as IPCSREXX.txt] -
>> which can then be modified to read/process any system dump.
>>
>> BTW Was written to be executed from within IPCS - else add "ARG" and
>> "ADDRESS IPCS" etc. cards at the start of the REXX code if to be invoked
>> via TSO batch JCL.
> I'm just curious what the purpose of
>
> X_E0 = C2X('E0'X)
> X_00 = C2X('00'X)
> X_40 = C2X('40'X)
> X_60 = C2X('60'X)
> X_80 = C2X('80'X)
> X_C0 = C2X('C0'X)
>
> is.
>
> Tony H.
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> .
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
