PGM

             CLRLIB     LIB(QTEMP)

             ADDPEXDFN  DFN(PR_STATS) TYPE(*STATS) +
                          JOB((LAMONTRE/*ALL)) DTAORG(*HIER) +
                          LSTALLJOB(*YES)

             STRPEX     SSNID(PR_STATS) OPTION(*NEW) DFN(PR_STATS)
             CALL       PGM(PROC_CPU_e)
             ENDPEX     SSNID(PR_STATS) OPTION(*END) DTAOPT(*LIB) +
                          DTALIB(QTEMP) DTAMBR(*SSNID) RPLDTA(*YES) +
                          TEXT('PEX Stats collection')

             PRTPEXRPT  MBR(PR_STATS) LIB(QTEMP) STATSOPT(*CPU *BLANK)

             RUNSQLSTM  SRCFILE(LAMONTRE1/QPGMSRC) +
                          SRCMBR(PROC_CPUQ3) COMMIT(*NONE) NAMING(*SQL)

             RUNQRY     QRYFILE((QTEMP/CPUSTAT))


             RMVPEXDFN  DFN(PR_STATS)

             ENDPGM