Hello Jim,
This is a sample I used for checking. It is from the manual, but I don't
remember which ....
Itschak
CMPCHK START
B SVA-CMPCHK(,15)
DC AL1(8),CL8'CMPCHK'
DC CL10'&SYSDATE'
DC CL8'/&SYSTIME/'
* **********************************************
* WRITE SAVE AREA
* **********************************************
SVA DS 0H
EBEGIN EQUR=YES
LR 3,1
STM 14,12,12(13)
LR 12,15
USING CMPCHK,12
L 7,16 GET CVT ADDRESS
USING CVT,7 SET UP ADDRESSABILITY TO TH
TM CVTFLAG2,CVTCMPSH IS CMPSC HARDWARE AVAILABLE
BZ NO_CMPSC_HARDWARE BRANCH IF NOT AVAILABLE
* CMPSC HARDWARE IS AVAILABLE
WTO MF=(E,WOK)
LA 15,X'00'
B ENDIT
NO_CMPSC_HARDWARE DS 0H
DS 0H
WTO MF=(E,WERR)
LA 15,X'08'
* ******************************************************************
ENDIT DS 0H
* SVA
LR 1,13
L 13,4(,13)
* FREEMAIN RU,A=(1),LV=72
L 14,12(13)
LM 2,12,28(13)
BR 14
WOK WTO 'CMPSC IS ACTIVE ON THIS MACHINE',MF=L
WERR WTO 'CMPSC IS NOT ACTOVE',MF=L
CVT DSECT=YES
END
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Jim McAlpine
Sent: Thursday, July 06, 2006 10:45 AM
To: [email protected]
Subject: hardware compression
Is there an easy way to tell if hardware compression is
supported/activated
on a mainframe.
Jim McAlpine
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
