I am fairly sure IBM won't do this. But I could use an enhancement to the CALL
macro. I use the following in a lot of my code, to see if I'm in a UNIX
environment.
_L OPSYN L
...
LA R1,CALLX
L OPSYN LRL
CALL CEE3INF,(SYS,ENV,MEMBER,GPID,FC),VL,MF=(E,(1))
L OPSYN _L
I must do the OPSYNs due to the fact that I run "baseless". Due to this, I use
a lot of LRL instead of L and LARL instead of LA instructions. In addition to
the above, I must also OPSYN _LA to LA, LA to LARL and back (LA OPSYN LARL ...
LA OPSYN _LA). It would be nice to be able to use the CALL, or some other
macro, to not need to do the OPSYNs around the CALL. Unfortunately, the LRL
instruction does not exist on all the current hardware. Which basically means
that I can't use the above, in general. I which that there were a way to
replace the:
L 15,IHB&SYSNDX.B
with
BAL 15,*+8
DC A(epname)
L 15,0(,15)
I guess that I'm going to need to write my own replacement for CALL. Given that
I'm doing all my work in z/OS UNIX, and _ is a valid HLASM symbol and in a UNIX
file name, I guess that I'll create a macro called _CALL to do this. <sigh>
Any other thoughts?
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
[email protected] * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets(r) is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The
MEGA Life and Health Insurance Company.SM
