PGM        /* This program came from News 3X/400, April +
                          1994 */
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(END))
             ALCOBJ     OBJ((QGPL/QAITMON *FILE *EXCL)) WAIT(0)
             MONMSG     MSGID(CPF1002) EXEC(RETURN)
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA('Retrieving system activity... +
                          Please wait') TOPGMQ(*EXT) MSGTYPE(*STATUS)
             CALL       PGM(QWSSETWS) PARM('2')
             SETATNPGM  PGM(QGPL/CPUACT2)
             ADDLIBLE   LIB(QPFR) /* Insert performance Library */
             MONMSG     MSGID(CPF2103)
             CALL       PGM(CPUACT1)
 END:        DLCOBJ     OBJ((QGPL/QAITMON *FILE *EXCL))
             MONMSG     MSGID(CPF0000)
             SETATNPGM  PGM(*PRVINVLVL)
             MONMSG     MSGID(CPF0000)
             ENDPGM