Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
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
> <03e99a92061c-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
Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
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 [IBM-MAIN@LISTSERV.UA.EDU] on behalf of CM Poncelet [03e99a92061c-dmarc-requ...@listserv.ua.edu] Sent: Tuesday, April 19, 2022 8:58 PM To: IBM-MAIN@LISTSERV.UA.EDU 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 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
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 [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Tony Harminc [t...@harminc.net]
Sent: Tuesday, April 19, 2022 11:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
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
<03e99a92061c-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
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
<03e99a92061c-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
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 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
/*-REXX--*/
/* IPCS CLIST TO ANALYSE A CICS REGION SVC DUMP AND DETERMINE THE*/
/* ADDRESS OF THE CSA (DFHCSA). */
/* */
/* INPUT: NONE: IS INVOKED AS A COMMAND, FROM WITHIN IPCS, AND */
/* ¯¯IT THEN ANALYSES THE DUMP CURRENTLY ALLOCATED */
/* */
/* OUTPUT: ADDRESS OF CICS TCB. */
/* ¯¯¯"" " GENERAL PURPOSE REGISTERS FROM TCB. */
/*"" " PRB, IF ANY. */
/*"" " GENERAL PURPOSE REGISTERS FROM ANY PRB. */
/*"" " IRB, IF ANY. */
/*"" " GENERAL PURPOSE REGISTERS FROM ANY IRB. */
/*"" " < ... OTHER RB'S, IF ANY ... >*/
/*"" " DFHCSA. */
/* */
/* 06/01/95 CORRECTION TO ACTIVE/SUSPENDED TASK CHAINING */
/* 21/03/94 CMP: AMENDED TO OUTPUT ACTIVE + SUSPENDED TCA'S */
/* 16/03/94 CHRIS PONCELET */
/*---*/
ADDRESS IPCS
TRACE I
PSA_ADDRESS = ''
"EVALUATE" PSA_ADDRESS||. ,
"POSITION("X2D(224)") LENGTH(4) REXX(STORAGE(OLD_ASCB_ADDRESS))"
"EVALUATE" OLD_ASCB_ADDRESS||. ,
"POSITION("X2D(6C)") LENGTH(4) REXX(STORAGE(OLD_ASXB_ADDRESS))"
"EVALUATE" OLD_ASXB_ADDRESS||. ,
"POSITION("X2D(4)") LENGTH(4) REXX(STORAGE(TCB_CHAIN_START_ADDRESS))"
"EVALUATE" OLD_ASXB_ADDRESS||. ,
"POSITION("X2D(8)") LENGTH(4) REXX(STORAGE(TCB_CHAIN_STOP_ADDRESS))"
SAY ' '
FIND_CICS_TCB:
FOUND = 'NO'
STOP = 'NO'
TCB_CHAIN_NEXT_ADDRESS = TCB_CHAIN_START_ADDRESS
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)
DFHSIP = C2X('DFHSIP ')
/* FOR EACH TCB, SEARCH FOR ALL RB'S */
DO WHILE (FOUND = 'NO') & (STOP = 'NO')
IF TCB_CHAIN_NEXT_ADDRESS = TCB_CHAIN_STOP_ADDRESS THEN ,
STOP = 'YEAH'
"EVALUATE" TCB_CHAIN_NEXT_ADDRESS||. ,
"POSITION(0) LENGTH(4) REXX(STORAGE(RB_ADDRESS))"
/* FOR EACH RB: FIND PRB, IF ANY, AND CHECK WHETHER ASSOCIATED */
/* PROGRAM IS DFHSIP*/
PRB_ADDRESS = 0
IRB_ADDRESS = 0
TIRB_ADDRESS = 0
SIRB_ADDRESS = 0
SVRB_ADDRESS = 0
DO K = 0 TO 999 WHILE (RB_ADDRESS ¬= TCB_CHAIN_NEXT_ADDRESS)
LINK_ADDRESS.K = RB_ADDRESS
"EVALUATE" RB_ADDRESS||. ,
"POSITION("X2D(0A)") LENGTH(1) REXX(STORAGE(RBSTAB1))"
RB_TYPE_VAL = C2X(BITAND(X2C(X_E0),X2C(RBSTAB1)))
SELECT;
WHEN RB_TYPE_VAL = X_00 THEN DO /* PRB */
LINK_RB.K = 'PRB'
"EVALUATE" RB_ADDRESS||. ,
"POSITION("X2D(0C)") LENGTH(4) REXX(STORAGE(CDE_ADDRESS))"
"EVALUATE" CDE_ADDRE
Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
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, 28 Apr 2020 13:58:06 + Chris Hoelscher wrote: :>examples of an IPCS RUNARRY ??? :>the side of a milk carton? Why would you suggest that RUNARRAY be dropped? Because code can be written to simulate it? :>Thank You, :>Chris Hoelscher :>Lead Database Administrator :>IBM Global Technical Services :>T 502.476.2538 or 502.407.7266 :> :>-Original Message- :>From: IBM Mainframe Discussion List On Behalf Of Binyamin Dissen :>Sent: Sunday, April 26, 2020 9:59 AM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: [External] [IBM-MAIN] Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X :> :>[External Email: Use caution with links and attachments] :> :> :>I would like to see an examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X. :> :>So far I have not been able to make it work. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
examples of an IPCS RUNARRY ??? the side of a milk carton? Thank You, Chris Hoelscher Lead Database Administrator IBM Global Technical Services T 502.476.2538 or 502.407.7266 -Original Message- From: IBM Mainframe Discussion List On Behalf Of Binyamin Dissen Sent: Sunday, April 26, 2020 9:59 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [External] [IBM-MAIN] Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X [External Email: Use caution with links and attachments] I would like to see an examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X. So far I have not been able to make it work. -- Binyamin Dissen https://nam03.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.dissensoftware.com%2F&data=02%7C01%7Cchoelscher%40humana.com%7Ca4ee3dda0f5649c3d22d08d7e9ea0501%7C56c62bbe85984b859e511ca753fa50f2%7C1%7C0%7C637235063638144747&sdata=hcc4oYjrldSoHpTw5Ro9H84N7kFL8ka94pi8ezZfJDE%3D&reserved=0 Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- 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
Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
I'd report both as bugs, but I suspect that the second is WAD. I'm sending an RCF asking for clarification of the second. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Binyamin Dissen [bdis...@dissensoftware.com] Sent: Tuesday, April 28, 2020 7:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X As an exercise, I invoked a REXX out of the EXEC(()) which did an EVALSYM on X. The (unexpected and counter-intuitive) results were that ADDRESS was the same for every entry (the address of the first entry). The only thing that changed was ENTRY. I had to write a REXX to do the simple LIST command that I wished - EVALSYM and then (address+entry*length) Another issue is that the LIST command from the REXX (with an explicit calculated address) somehow inherited the ARRAY attribute and displayed much more storage than the specified LENGTH. I had to explicitly specify MULT(1) to get the results I expected^W wanted. On Mon, 27 Apr 2020 17:18:00 + Seymour J Metz wrote: :>I don't have access to a live system, so I have to rely on the documentation, which sometimes omits critical information. One thought is to package the IPCS command in a REXX, possibly preceded by an EQ, and to use that member name in the RUNARRAY subcommand. :> :> :>-- :>Shmuel (Seymour J.) Metz :>http://mason.gmu.edu/~smetz3 :> :> :>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Binyamin Dissen [bdis...@dissensoftware.com] :>Sent: Monday, April 27, 2020 9:38 AM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X :> :>Unrelated. :> :>Can you provide a working example? :> :>On Sun, 26 Apr 2020 21:19:12 + Seymour J Metz wrote: :> :>:>Is it failing even when everything is in the same address space? :> :>:>Shmuel (Seymour J.) Metz :>:>http://mason.gmu.edu/~smetz3 :> :>:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Binyamin Dissen [bdis...@dissensoftware.com] :>:>Sent: Sunday, April 26, 2020 9:59 AM :>:>To: IBM-MAIN@LISTSERV.UA.EDU :>:>Subject: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X :>:> :>:>I would like to see an examples of an IPCS RUNARRAY command where the EXEC :>:>clause display storage using a pointer as a displacement off of X. :>:> :>:>So far I have not been able to make it work. -- Binyamin Dissen http://secure-web.cisco.com/1r1z1xg90B41flgqoGnsPm3UNUqiH3O7SX9WXODuN_XBK8p2d-Qw5y0lPuNSMp9z3lk9zIieT9hMybq9RauojJGBTKCIji3-zZcjZBGcirq9n04oco9SPVhBXDPKl7pwyIePXsvIevOlQkhWw_o0koutt3npZyVY_ZWCzDG27j62KRr5gMViV5cAAdGzut6aMFW4fBbzGyrIA4CfGTUh2TdB8xdT2BGvgAxJ8Qy2NKwznBr2IGFety1CbjKk4QQxcHCxq8sVOeYCPlfbzPxwf6aOQcmb_S0aMHrxJgniRPabytkf8PzW2kVMOAky5VnkbbfFI8OofYgrSuYXo6Zy7ttb81_Ih32iH11IgjcIfoCXND3dg7Z1CeuhZ3S1QRP4GYHmftRHZTWIaPIXYd6UhnR22z_zrtt-kzpykjDRwRy3cYTJ7twxHjY8TOTtUh-ZW/http%3A%2F%2Fwww.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- 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
Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
As an exercise, I invoked a REXX out of the EXEC(()) which did an EVALSYM on X. The (unexpected and counter-intuitive) results were that ADDRESS was the same for every entry (the address of the first entry). The only thing that changed was ENTRY. I had to write a REXX to do the simple LIST command that I wished - EVALSYM and then (address+entry*length) Another issue is that the LIST command from the REXX (with an explicit calculated address) somehow inherited the ARRAY attribute and displayed much more storage than the specified LENGTH. I had to explicitly specify MULT(1) to get the results I expected^W wanted. On Mon, 27 Apr 2020 17:18:00 + Seymour J Metz wrote: :>I don't have access to a live system, so I have to rely on the documentation, which sometimes omits critical information. One thought is to package the IPCS command in a REXX, possibly preceded by an EQ, and to use that member name in the RUNARRAY subcommand. :> :> :>-- :>Shmuel (Seymour J.) Metz :>http://mason.gmu.edu/~smetz3 :> :> :>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Binyamin Dissen [bdis...@dissensoftware.com] :>Sent: Monday, April 27, 2020 9:38 AM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X :> :>Unrelated. :> :>Can you provide a working example? :> :>On Sun, 26 Apr 2020 21:19:12 + Seymour J Metz wrote: :> :>:>Is it failing even when everything is in the same address space? :> :>:>Shmuel (Seymour J.) Metz :>:>http://mason.gmu.edu/~smetz3 :> :>:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Binyamin Dissen [bdis...@dissensoftware.com] :>:>Sent: Sunday, April 26, 2020 9:59 AM :>:>To: IBM-MAIN@LISTSERV.UA.EDU :>:>Subject: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X :>:> :>:>I would like to see an examples of an IPCS RUNARRAY command where the EXEC :>:>clause display storage using a pointer as a displacement off of X. :>:> :>:>So far I have not been able to make it work. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
I don't have access to a live system, so I have to rely on the documentation, which sometimes omits critical information. One thought is to package the IPCS command in a REXX, possibly preceded by an EQ, and to use that member name in the RUNARRAY subcommand. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Binyamin Dissen [bdis...@dissensoftware.com] Sent: Monday, April 27, 2020 9:38 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X Unrelated. Can you provide a working example? On Sun, 26 Apr 2020 21:19:12 + Seymour J Metz wrote: :>Is it failing even when everything is in the same address space? :>Shmuel (Seymour J.) Metz :>http://mason.gmu.edu/~smetz3 :>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Binyamin Dissen [bdis...@dissensoftware.com] :>Sent: Sunday, April 26, 2020 9:59 AM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X :> :>I would like to see an examples of an IPCS RUNARRAY command where the EXEC :>clause display storage using a pointer as a displacement off of X. :> :>So far I have not been able to make it work. -- Binyamin Dissen http://secure-web.cisco.com/1sE_Y-LnhtIQBMedIDfdXlpIk9-ltSb-yGRb0Ee5JbmQE8xXeCI3cJclh1d_Q8hXJTRKPtqAqyxEGWvdZAEQ-VeN8LqfVqbFhn2bj8_E_zhjmZOzZ1zIxuhZkc_VG3i09gmZLfuPjVXmYFcSh5l0Q-Y57hKNy39-___9G0qf7LKtkod9ARRwI9noPqBe8vRpOASQrst2V6Qj3TgILOSEuKLBQSiMH7_FyqJ1zYwFUNKK6PykxscnnYTo9YcYBa2No2GN_m-VB-iVaoXITOowVq9dc-f36gOB8_ctknKWR8OremrhHapPohBOeMMgyRiB1vg98gVuWAfcj55IuaUGKCNTQnB-EzS25qrsGqiH3wb8z8SzkWxpm-moVHK27TAfmJatSmYaCe5KbQXJVa7_6pkoBtGs20Ho50UzKoWnKitox4YoLbsuLeKsD3STKRYKK/http%3A%2F%2Fwww.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- 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
Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
Unrelated. Can you provide a working example? On Sun, 26 Apr 2020 21:19:12 + Seymour J Metz wrote: :>Is it failing even when everything is in the same address space? :>Shmuel (Seymour J.) Metz :>http://mason.gmu.edu/~smetz3 :>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Binyamin Dissen [bdis...@dissensoftware.com] :>Sent: Sunday, April 26, 2020 9:59 AM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X :> :>I would like to see an examples of an IPCS RUNARRAY command where the EXEC :>clause display storage using a pointer as a displacement off of X. :> :>So far I have not been able to make it work. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
Is it failing even when everything is in the same address space? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Binyamin Dissen [bdis...@dissensoftware.com] Sent: Sunday, April 26, 2020 9:59 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X I would like to see an examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X. So far I have not been able to make it work. -- Binyamin Dissen http://secure-web.cisco.com/1JFmpAbJmE5_jVmtH7wbw_DccdkBCIp2LZ6HEsiSUraRg1_paQKA5lXs4hWnzHfEH6t_F4JqszoeDVu6bcyHjzdpSUm_dkheCNS7o5neoftR3yUgi86-16Fo2lJVMDHHjkBabpmLy12FOc0vP7O2btu_w7-73Le8Fb4JLgBcTxO4mCmFhoH7poK303z6p3juDclPiQ3hjulRo_xF3EDbep8zP9MZIJXncB0IEGqXHSp_5Wg4dI14nk0foTxaf37UAwPxraU96RY9SjuD_oTu9FBaYtCMfj6-nzvO9IEMGlVsZpySV1QeQeqv7PFza-_W65hpRUg_LQCHFBbxY_owopTmZznSx6DuO09ZdJGbcBLZp7CsPXpc8e68VlGDOJ8kBRPegL8KKJpEbgSJE1oQGXdjhShhVToWnCBQv2JS57z1bnzM4hPI09b_allZRxa_x/http%3A%2F%2Fwww.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- 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
Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X
I would like to see an examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X. So far I have not been able to make it work. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
