🚀 go-pugleaf

On Fri, 27 Nov 1992 14:45:00 EST James Davis said:
>Anyone know an MVS macro or data area where a task could query the
>CPU time consumed by its address space?  I am looking for the same
>info that is written to an SMF type 30 for step totals.  Thanks,
>
>- Jim Davis, Parklawn Computer Center -


     This might be of use to you, STIMER and TTIMER are used in this
program to watch the cpu used to avoid 322 abends.


*
*   ACTIVATE THE TIMER FOR TIMEOUT OPTION
*
         L     R2,TIMEOUT          NUMBER OF SECONDS TO EXECUTE
         C     R2,=F'0'            ANY TIMER ?
         BE    A000                  NO - SKIP STIMER
         MH    R2,=H'100'          CONVERT TO .01 SECONDS
         ST    R2,BINTVL           SAVE TIMER INTERVAL
         STIMER TASK,BINTVL=BINTVL SET TIMER INTERVAL
         EJECT
A000     EQU   *
         .
         .
         .
*
*   TEST TIMER FOR TIMOUT CONDITION
*
A202     CLC   TIMEOUT,=F'0'       TIMER SPECIFIED ?
         BE    A210                  NO - SKIP TEST
         TTIMER
         C     R0,TUTIME           ENOUGH FOR ANOTHER RECORD
         BL    EOFTIME               NO - TIMEOUT END OF DATA
         SPACE 2
         .
         .
         .
BINTVL   DC    F'0'                BINARY INTERVAL TIMER
TUTIME   DC    F'38400'            1 SEC IN TIMER UNITS (38400/SEC)


Gerald Snyder
Florida Center for Library Automation