Job Accounting inside Atrium

[t.s.h]

I am using Profound UI with Atrium and wish to include it to our existing job accounting system.

Every time we start a program via atrium a global CL is called, setting lib.list and other parameters.
There I included the following lines of code:

Code: Select all

             RTVJOBA    JOB(&JOBNAME) NBR(&VARJOBN) +
                              CURUSER(&VARUSER) DECFMT(&DECFMT) +
                              DATETIME(&VARDT20)
             /* Update Accounting Information */
             RTVUSRPRF USRPRF(&VARUSER) ACGCDE(&VARACGCDE)
             CHGACGCDE  JOB(*) ACGCDE(&VARACGCDE)
             MONMSG     CPF0000             

Now I get the following msg during starting a program via atrium:

Code: Select all

CPF1301:  ACGDTA for 770661/QTMHHTTP/PROFOUNDUI not journaled; reason 1.
Cause . . . . . :   Job resource accounting data for job 770661/QTMHHTTP/PROFOUNDUI was not      
  journaled to the system accounting journal QSYS/QACGJRN.                    
    -- Reason codes and their meanings follow:                                
    -- 1-The accounting level system value (QACGLVL) indicated that this level
  of resource accounting was not to be done when the job entered the system.

The SYSVAL for QACGLVL is set to *JOB. But the journal does not receive accounting information

Does anyone have an idea how to solve this or already have experience how to implement a job accounting for Profound UI & Atrium with the on-board resources of the IBMi?