Here is a Superc listing of the changes I made for z/OS 1.11.

Good Luck!

I -          L     R01,PARMSPTA        LOAD STEP TCB CPU TIME 
ADDR                   RPL=    3 00368 00368 
D -          L     R01,PARMSTPC        LOAD STEP TCB CPU TIME 
ADDR                                         
I -          ICM   R01,KF,K0(R01)      LOAD STEP TCB CPU TIME       
MSPIPOI                    00369 00369 
D -          ICM   R01,K7,K0(R01)      LOAD STEP TCB CPU TIME       
MSPIPOI                                
I - *        LA    R01,K0(,R01)        ZERO HIGH ORDER 
BYTE                                    00370 00370 
D -          LA    R01,K0(,R01)        ZERO HIGH ORDER 
BYTE                                                
                                                                                
     MAT=   
81             
I -          MVC   WTO1TXT+LINE4E(L'LINE4E),DWORD+L'DWORD-L'LINE4E-
K1                RPL=    1 00452 00452 
D -          MVC   WTO1TXT+LINE4E(L'LINE4E),DWORD+L'DWORD-L'LINE4E-
K2                                      
                                                                                
     MAT=  
279             
I -                PU TIME=XXX.XX  TOTAL ELAPSED 
TIME=XXXX.XX'                       RPL=    1 00732 00732 
D -                PU TIME=XXX.XX  TOTAL ELAPSED 
TIME=XXXX.X'                                              
                                                                                
     MAT=    
6             
I - LINE4E   EQU   90,7        OFFSET OF ELAPSED TIME IN LINE4 
TEXT                  RPL=    1 00739 00739 
D - LINE4E   EQU   90,6        OFFSET OF ELAPSED TIME IN LINE4 
TEXT                                        
                                                                                
     MAT=   
67             
I - PARMJPTA DS    F                PTR TO JOB PROCESSOR 
TIME                        INS=    3 00807 00807 
I - PARMSPTA DS    F                PTR TO STEP PROCESSOR 
TIME                                 00808       
I - PARMSSNA DS    F                PTR TO SUBSYSTEM 
NAME                                      00809       

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