Here is a rexx:
/* REXX */
CVT = STORAGE(10,4) /* CVT ADDRESS IN MEMORY */
SCVT = STORAGE(D2X(200+C2D(CVT)),4) /* ADDRESS OF SCVT */
CCVT = STORAGE(D2X(184+C2D(SCVT)),4) /* ADDRESS OF CCVT */
IF CCVT = '00000000'X THEN DO
say 'Cryptography Not Installed'
EXIT(0)
END
ELSE DO
CCVTFL = STORAGE(D2X(36+C2D(CCVT)),1) /* CCVTSFG1 STATUS BYTE */
IF BITAND(CCVTFL,'80'X) <> '80'X THEN DO
say 'Cryptography is Installed',
'but is Inactive'
EXIT(0)
END
ELSE DO
say 'Cryptography is Active'
CCVTAS = STORAGE(D2X(42+C2D(CCVT)),2) /* CCVTASID ASID OF ICSF */
say 'ASID of ICSF/MVS Address Space is' c2x(ccvtas) '('c2d(ccvtas)')'
EXIT(0)
END
END
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of Jim McAlpine
Sent: Thursday, July 06, 2006 11:41 AM
To: [email protected]
Subject: Re: hardware compression
Hello Itschak, and thank you for that code. Is EBEGIN one of your macros.
If so, what does it do.
Jim McAlpine
On 7/6/06, Itschak Mugzach <[EMAIL PROTECTED]> wrote:
>
> Hello Jim,
>
> This is a sample I used for checking. It is from the manual, but I don't
> remember which ....
>
> Itschak
>
>
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
-----------------------------------------
CONFIDENTIALITY NOTICE: The Ohio Public Employees Retirement System
intends this e-mail message, and any attachments, to be used only
by the person(s) or entity to which it is addressed. This message
may contain confidential and/or legally privileged information. If
the reader is not the intended recipient of this message or an
employee or agent responsible for delivering the message to the
intended recipient, you are hereby notified that you are prohibited
from printing, copying, storing, disseminating or distributing this
communication. If you received this communication in error, please
delete it from your computer and notify the sender by reply e-mail.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
