I had forgotten about using (15) instead of the actual name. I also wanted to
avoid the LRL because it doesn't work pre-z10 (I think LRL came in on the z10).
But using the SYSSTATE ARCHLVL=2 works great. I'm now "upgrading" all my source
to include this. And, since I'm keeping my source in UNIX files, it is rather
simple:
for i in *.s;do
fgrep SYSSTATE $i || sed -E 's/^([^ ]{1,8} +CSECT .*)$/\1\n SYSSTATE
ARCHLVL=2\n/' $i >| $i.new
mv $i $i.bak
mv $i.new $i
done
Recompiling is also easy, since I have a makefile with the correct patterns and
actions:
for i in *.s;do make ${i%.s};done
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets®
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® is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA
Life and Health Insurance Company.SM
> -----Original Message-----
> From: IBM Mainframe Assembler List
> [mailto:[email protected]] On Behalf Of Martin Trübner
> Sent: Tuesday, April 10, 2012 10:23 AM
> To: [email protected]
> Subject: Re: CALL macro "enhancement" thought
>
> John,
>
> how about:
> LRL 15,=V(CEE3INF)
> CALL (15),(SYS,ENV,MEMBER,GPID,FC),VL,MF=(E,(1))
>
> better readable and baseless (at least for the code-part).
>
> or are you doing it without any?
>
> for the later case this will do:
> JAS 15,*+8
> DC VL4(CEE3INF)
> L 15,0(,15)
> CALL (15),(SYS,ENV,MEMBER,GPID,FC),VL,MF=(E,(1))
>
>
>
>
> --
> Martin
>
> Pi_cap_CPU - all you ever need around MWLC/SCRT/CMT in z/VSE
> more at http://www.picapcpu.de
>
>
