Gil wrote
What other system services can similarly be called by LINKPGM? I'd guess any
that don't
require a parameter containing a pointer to obtained storage because REXX has no
pointer type.
In general, the answer might be "any callable service" (using the term as used
within "z/OS MVS
Anything whose parameters you can construct in REXX can be called with ADDRESS
LINKPGM, and the STORAGE BIF helps, but for some things you need a supporting
function in another language. Writing a REXX-aware routine is fairly
straightforward.
On Sat, 25 Mar 2023 08:27:37 -0700, Ed Jaffe wrote:
>On 3/23/2023 12:52 PM, Steve Austin wrote:
>> After lurking for on here for years, it's nice to have contributed something
>> some found useful.
>
>Quite useful. Thanks!
>
Yes. That uses address LINKPGM in a fashion similar to the SAMPLIB
On 3/23/2023 12:52 PM, Steve Austin wrote:
After lurking for on here for years, it's nice to have contributed something
some found useful.
Quite useful. Thanks!
--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/
PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?
On Thu, 23 Mar 2023 18:46:43 -, Steve Austin wrote:
>... The loop
>is simply to check that server has not ended every 2 seconds.
>
I see. Thanks.
>I think I got
>the i
On Thu, 23 Mar 2023 18:46:43 -, Steve Austin wrote:
>... The loop
>is simply to check that server has not ended every 2 seconds.
>
I see. Thanks.
>I think I got
>the idea from an IBM sample that uses a similar technique to call the
>Catalog Search Interface from REXX. I didn' t expect
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?
On Wed, 22 Mar 2023 11:30:44 -0400, Steve Smith wrote:
>That's a far more elegant and supported way to do it. Although the
>loop is presumably part of some other logic. I converted it into a
>simple demo
>exec:
&
On Wed, 22 Mar 2023 11:30:44 -0400, Steve Smith wrote:
>That's a far more elegant and supported way to do it. Although the loop is
>presumably part of some other logic. I converted it into a simple demo
>exec:
>
I'm curious, too.
Why the loop?
Why the SLEEP?
Have you an example where they help?
Jaffe [edja...@phoenixsoftware.com]
Sent: Thursday, March 23, 2023 9:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?
On 3/22/2023 1:21 AM, Steve Austin wrote:
> This works for me;
>
> level='0004'x
> name=left(serverName
On 3/22/2023 1:21 AM, Steve Austin wrote:
This works for me;
level='0004'x
name=left(serverName,16)
token=''x
retcode=''x
do until retcode = '0004'x
"sleep 2"
address LINKPGM "IEANTRT LEVEL NAME TOKEN RETCODE"
end
Using an intended
That's a far more elegant and supported way to do it. Although the loop is
presumably part of some other logic. I converted it into a simple demo
exec:
/* REXX */
ARG NAME
LEVEL = '0004'X
NAME = LEFT(NAME,16)
TOKEN = ''X
RETCODE = ''X
ADDRESS LINKPGM
It is surely understood that you use non-programming-interface control block
fields at your (and your customers') risk.
And what works "today" might not work "tomorrow" whether because of changes or
because of serialization situations that you do not account for.
If that's OK with you, have at
quot;
> address LINKPGM "IEANTRT LEVEL NAME TOKEN RETCODE"
> end
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of ITschak Mugzach
> Sent: Tuesday, March 21, 2023 5:36 PM
> To: IBM-MAIN@LISTSE
rame Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of ITschak Mugzach
Sent: Tuesday, March 21, 2023 5:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?
It dump the pairs, but you can always use IF and LEAVE...
בתאריך יום ג׳, 21 במרץ 2
Why? Chasing the pointers yourself will make the code more fragile.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Mike Shaw [techsupp...@quickref.com]
Sent: Tuesday,
, March 21, 2023 12:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?
On Tue, 21 Mar 2023 16:20:22 +, W Mainframe wrote:
>
>Some time ago I created a Rexx function in BAL ...
>
"Some time ago" indeed. I hadn't real
It dump the pairs, but you can always use IF and LEAVE...
בתאריך יום ג׳, 21 במרץ 2023 ב-19:24 מאת Paul Gilmartin <
042bfe9c879d-dmarc-requ...@listserv.ua.edu>:
> On Tue, 21 Mar 2023 16:51:17 +, Farley, Peter wrote:
>
> >Great routine ITschak. I made two small improvements to the name
On Tue, 21 Mar 2023 16:51:17 +, Farley, Peter wrote:
>Great routine ITschak. I made two small improvements to the name and token
>displays to better handle binary characters (less than '40'x) in each part.
>
Judicious use of white space/indention helps/would help legibility.
Use of
('display')'
> base = C2D(Storage(D2X(base+64),4))
> End
> Say ''
> Return
>
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf
> Of ITschak Mugzach
> Sent: Tuesday, March 21, 2023 12:17 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Is z
On Tue, 21 Mar 2023 16:20:22 +, W Mainframe wrote:
>
>Some time ago I created a Rexx function in BAL ...
>
"Some time ago" indeed. I hadn't realized the use of BAL overlapped
availability of Rexx.
--
gil
--
For IBM-MAIN
e: Is z/OS Name/Token pair retrieval supported from REXX?
It does.
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon *
On Tue, Mar 21, 2023 at 6:15 PM Mike Shaw wrote:
> Listers,
>
> Th
UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?
On Tue, 21 Mar 2023 12:14:38 -0400, Mike Shaw wrote:
>
>The answer to my question is probably "no" since the doc on IEANTRT is
>silent on this topic.
>
Grrr! There's a strong argument for uniformity o
On Tue, 21 Mar 2023 12:14:38 -0400, Mike Shaw wrote:
>
>The answer to my question is probably "no" since the doc on IEANTRT is
>silent on this topic.
>
Grrr! There's a strong argument for uniformity of interfaces. I believe CMS
does bettrt
with "callable services library (CSL)
God Bless You Itschak!
Thank you.
Mike
On Tue, Mar 21, 2023, 12:17 PM ITschak Mugzach wrote:
> It does.
>
>
> /* REXX *** */
> /* track down various name token pair pointers */
> NUMERIC DIGITS 10
> /* TCB level */
> tcb = C2D(Storage(21C,4)) /* get current TCB */
> if tcb \= 0 then do
> stcb
I couldn't find anything in the IBM Doc but I did find this in CBTTape File 794:
The RXMEM has the following features :
- to manage token pair service, using IEANTxx modules
This is obviously an external that you didn't want but it may be helpful.
Lionel B. Dyck <><
Website:
Hi,
Some time ago I created a Rexx function in BAL code to perform IEANT service,
nut there are a plus.The CBT784 has storage/release/linkedliat/ieant services.
RegardsDan Gaeta
Sent from Yahoo Mail for iPhone
On Tuesday, March 21, 2023, 1:15 PM, Mike Shaw wrote:
Listers,
The answer to my
It does.
/* REXX *** */
/* track down various name token pair pointers */
NUMERIC DIGITS 10
/* TCB level */
tcb = C2D(Storage(21C,4)) /* get current TCB */
if tcb \= 0 then do
stcb = C2D(Storage(D2X(tcb+312),4))
nttp = C2D(Storage(D2X(stcb+200),4))
If nttp \= 0 then Call donttp nttp,'Task'
end
27 matches
Mail list logo
