Burning CPU cycles. Code like X_E0='E0' would work just as well
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [[email protected]] on behalf of Tony Harminc [[email protected]] Sent: Tuesday, April 19, 2022 11:37 PM To: [email protected] Subject: Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X On Tue, 19 Apr 2022 at 20:58, CM Poncelet <[email protected]> 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 [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
