RUNARRAY executes an IPCS command on each element of an array.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [[email protected]] on behalf of CM Poncelet [[email protected]] Sent: Tuesday, April 19, 2022 8:58 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 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. HTH On 19/04/2022 23:45, Richard Pace wrote: > Hi Ben: Not sure if you're still looking...Here's my example. I had an array > of 512 size blocks that I wanted to display 6 bytes from offset +8 in each > block (a volser). I positioned IPCS at the first block and tried this: > > ipcs runarray address(+0) length(512) entries(1:10) exec((list X+8 length(6))) > > This did not work. It listed the first control block repeatedly, similar to > what you experienced I think. On advice from IBM, I changed the command to > this: > > ipcs runarray address(+8) length(512) entries(1:10) exec((list X length(6))) > > This worked -- setting the displacement value, +8, in the address field, > instead of trying to add to X. I didn't really get an explanation from IBM; > just "working as designed". However, I suspect that inside the EXEC, LIST > X+n is treated different than LIST X; i.e. X only needs to be evaluated once > for X+n, whereas X by itself, List knows to use the new position as > determined by the origin start (the offset value, +8), the entry number, and > entry length (512). > Richard > > ---------------------------------------------------------------------- > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
