ZOSVKRM.m

%ZOSVKR ;SF/KAK - Collect RUM Statistics for MSM ;3/10/00  07:43 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 ;;8.0;KERNEL;**90,94,107,122,143**;Jul 21, 1998

 ;

RO(OPT) ; Record option resource usage in ^XTMP("KMPR","JOB"

 ;

 N KMPRTYP S KMPRTYP=0  ; option

 G EN

 ;

RP(PRTCL) ; Record protocol resource usage in ^XTMP("KMPR","JOB"

 ;

 ; Variable PRTCL = option_name^protocol_name

 S OPT=$P(PRTCL,"^"),PRTCL=$P(PRTCL,"^",2) Q:PRTCL=""

 N KMPRTYP S KMPRTYP=1  ; protocol

 Q

 ;

RU(KMPROPT,KMPRTYP,KMPRSTAT) ;-- record resource usage in ^XTMP("KMPR","JOB"

 Q

 ;

EN ;

 Q

%ZOSVKR   ;SF/KAK - Collect RUM Statistics for MSM ;3/10/00  07:43 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 +2       ;;8.0;KERNEL;**90,94,107,122,143**;Jul 21, 1998

 +3       ;

RO(OPT)   ; Record option resource usage in ^XTMP("KMPR","JOB"

 +1       ;

 +2       ; option

           NEW KMPRTYP

           SET KMPRTYP=0

 +3        GOTO EN

 +4       ;

RP(PRTCL) ; Record protocol resource usage in ^XTMP("KMPR","JOB"

 +1       ;

 +2       ; Variable PRTCL = option_name^protocol_name

 +3        SET OPT=$PIECE(PRTCL,"^")

           SET PRTCL=$PIECE(PRTCL,"^",2)

           IF PRTCL=""

               QUIT 

 +4       ; protocol

           NEW KMPRTYP

           SET KMPRTYP=1

 +5        QUIT 

 +6       ;

RU(KMPROPT,KMPRTYP,KMPRSTAT) ;-- record resource usage in ^XTMP("KMPR","JOB"

 +1        QUIT 

 +2       ;

EN        ;

 +1        QUIT