Here's some REXX code I put together to display CPENABLE.  It can be
modified/enhanced to display other 'stuff'.

/* rexx */                                            
/*                                                    
     Display CPENABLE values;                         
        CVT points to RMCT which points to ICT;       
        ICCTPILO is at offset 6 for length of 2 in ICT
        ICCTPIHI is at offset 8 for length of 2 in ICT
*/                                                    
cvt = storage(10,4)                                   
rmct = storage(d2x(c2d(cvt)+604),4)                   
ict = storage(d2x(c2d(rmct)+8),4)                     
icctpilo = storage(d2x(c2d(ict)+6),2)                 
icctpihi = storage(d2x(c2d(ict)+8),2)                 
say "CPENABLE=("c2d(icctpilo)","c2d(icctpihi)")"      

Don Imbriale

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lizette Koehler
Sent: Wednesday, July 02, 2008 10:42 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Display IEAOPT

I have been looking through the manauls and it does not seem to be
there.

Does anyone know of a way to display IEAOPTxx so I can see if my changes
to the parameters occurred?




***********************************************************************
Bear Stearns is not responsible for any recommendation, solicitation, 
offer or agreement or any information about any transaction, customer 
account or account activity contained in this communication.
***********************************************************************

----------------------------------------------------------------------
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

Reply via email to