PGM        /* From News 3x/400 April 1994.  Attention +
                          key handler program for Monitor CPU +
                          Activity */
             DCLF       FILE(CPUACTD) RCDFMT(CHCWDW)
             DCL        VAR(&JOBNAM) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOBUSR) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOBNBR) TYPE(*CHAR) LEN(6)
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(END))
             RTVDTAARA  DTAARA(*LDA (1 10)) RTNVAR(&JOBNAM)
             RTVDTAARA  DTAARA(*LDA (11 10)) RTNVAR(&JOBUSR)
             RTVDTAARA  DTAARA(*LDA (21 6)) RTNVAR(&JOBNBR)
             SETATNPGM  PGM(*CURRENT) SET(*OFF)
             SNDRCVF    RCDFMT(CHCWDW)
             IF         COND(&CHOICE = 2) THEN(DO)
             ?CHGJOB ?*JOB(&JOBNBR/&JOBUSR/&JOBNAM)
             ENDDO
             IF         COND(&CHOICE = 3) THEN(DO)
             ?HLDJOB ?*JOB(&JOBNBR/&JOBUSR/&JOBNAM)
             ENDDO
             IF         COND(&CHOICE = 4) THEN(DO)
             ?ENDJOB ?*JOB(&JOBNBR/&JOBUSR/&JOBNAM)
             ENDDO
             IF         COND(&CHOICE = 5) THEN(DO)
             ?DSPJOB ?*JOB(&JOBNBR/&JOBUSR/&JOBNAM)
             ENDDO
             IF         COND(&CHOICE = 90) THEN(SIGNOFF)
 END:        SETATNPGM  PGM(*PRVINVLVL)
             MONMSG     MSGID(CPF0000)
             RETURN
             ENDPGM