In order to return a value from BPXWDYN to an Easytrieve caller, one must use
the variable definition as follows:
VARFIELD DC Y(L'VARVALUE)
VARVALUE DC CLx('......')
Where 'x' is large enough to contain the maximum value that can be returned.
For example, a dataset name's max length is 44 characters so in this example, x
would be 45.
The keyword representing the value to be returned must start in position 1 of
VARVALUE and must include a SPACE at the end of the keyword.
For instance, if one wants the dataset name associated with an allocated
DDname, then the VARVALUE would be coded as 'INRTDSN '.
Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology
Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
[email protected] | www.thermofisher.com
WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this
e-mail or the information herein by anyone other than the intended recipient,
or an employee or agent of a system responsible for delivering the message to
the intended recipient, is prohibited. If you are not the intended recipient,
please inform the sender and delete all copies.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Paul Gilmartin
Sent: Tuesday, January 31, 2017 6:05 PM
To: [email protected]
Subject: Re: Calling bpxwdyn from CA-Easytrieve
On Tue, 31 Jan 2017 19:58:48 +0000, Hardee, Chuck wrote:
>
>At the moment, allocation is not what I am trying to do.
>I am trying to use the INFO function to return the dataset name.
>I am getting a return code of 0 from the BPXWDYN call, but I am not getting
>anything returned.
>
>Have you tried doing an INFO call?
>
>This is the special flavor of parameter that you have to supply since BPXWDYN
>doesn't have REXX variables to update.
>
If there's anything to be gained by experimenting in Rexx, you can simulate a
non-Rexx call with "address LINKPGM". You need to supply the length halfwords
explicitly. I doubt that this allows controlling R0.
There's an ICSF example in SYS1.SAMPLIB.
Does Easytrieve allow return values in the CALL arguments and neither
copy them nor protect them?
-- gil
----------------------------------------------------------------------
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
