Re: Function CHGACGCDE not allowed.

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

You have to go back in the joblog - this looks like everything AFTER the 
error was reported - CPA0702 is just reporting the problem - it occurred 
earlier than this.

You have this message - "Function CHGACGCDE not allowed."

What does the second-level text of that message say? It should give you 
a reason that the command is not allowed - that will answer your 
question yourself.

F1 and maybe even F9 - these are your friends.

This is what you always should do with a report of an error - go back to 
the message that was reported, then position on it and press F1 for help 
- what we see here doesn't give us enough information.

HTH
Vern

On 2/28/2011 9:46 PM, Chamara Withanachchi wrote:
> Dear All,
>
> In our Day End Program it tries to change the Accounting Level by using
> CHGACGCDE command but it is giving an Error message I have list the
> messages
>
> dditional Message Information
>
>
>
>   Message ID . . . . . . :
> CPA0702
>
>   Date sent  . . . . . . :   01/03/11      Time sent  . . . . . . :
> 00:50:55
>
>
>
>   Message . . . . :   CPF180B received by procedure PCOMBDAILY. (C D I
> R)
>
>
>
>   Cause . . . . . :   ILE Control language (CL) procedure PCOMBDAILY in
> module
>
>     PCOMBDAILY in program PCOMBDAILY in library I720MSDBP detected an error
> at
>
>     statement number 0000089020.  Message text for CPF180B is:
> Function
>
>     CHGACGCDE not allowed.  Use F10 (if available) or the Display Job
> Log
>
>     (DSPJOBLOG) command to see the messages in the job log for a more
> complete
>
>     description of what caused the error.  If you still are unable to solve
> the
>
>     problem, please contact your technical support
> person.
>
>   Recovery  . . . :   This inquiry message can be avoided by changing
> the
>
>     procedure. Monitor for the error (MONMSG command) and perform error
> recovery
>
>     within the procedure.  To continue, choose a reply
> value.
>
>                                                                          More...
>
>
>   Type reply below, then press
> Enter.
>
>   Reply  . . . .
>
>
>
>
>   F1=Help   F3=Exit   F6=Print      F9=Display message
> details
>
>   F10=Display messages in job log   F12=Cancel   F21=Select assistance
> level
>
>
>
>
>
>                                Display All
> Messages
>
>                                                               System:
> S65D8902
>
>   Job . . :   PCOMBDA001    User . . :   ITDEP639      Number . . . :
> 949817
>
>
>
>         QGPL.
>
>
>       Printer device PRT01 not found. Output queue changed to QPRINT in
> library
>
>         QGPL.
>
>
>       Printer device PRT01 not found. Output queue changed to QPRINT in
> library
>
>         QGPL.
>
>
>          550 - CALL
> PGM(STM004)
>
>       Printer device PRT01 not found. Output queue changed to QPRINT in
> library
>
>         QGPL.
>
>
>          556 - CLRPFM
> FILE(SHR00101)
>
>       Member SHR00101 file SHR00101 in I720SDBDTF
> cleared.
>
>          557 - CALL
> PGM(SHR002)
>
>       Environment variable
> added.
>
>       Java Virtual Machine is
> Classic.
>
>       Environment variable removed.
>
>
>                                                                          More...
>
>
>   Press Enter to
> continue.
>
>
>
>   F3=Exit   F5=Refresh   F12=Cancel   F17=Top
> F18=Bottom
>
>
>
>
>
>
>
>
>
>                                Display All
> Messages
>
>                                                               System:
> S65D8902
>
>   Job . . :   PCOMBDA001    User . . :   ITDEP639      Number . . . :
> 949817
>
>
>
>              - RETURN        /* RETURN due to end of CL program
> */
>
>              - RETURN        /* RETURN due to end of CL program */
>
>
>        89000 - CHGDTAARA DTAARA(RESTART (1 10))
> VALUE(CLRFILES)
>
>        89020 - CHGACGCDE
> ACGCDE('001CLRFILES')
>
>       Function CHGACGCDE not
> allowed.
>
>       Function check. CPF180B unmonitored by PCOMBDAILY at statement
> 0000089020,
>
>         instruction
> X'0000'.
>
>       CPF180B received by procedure PCOMBDAILY. (C D I
> R)
>
>     ? R
>
>
>        89020 - CHGACGCDE
> ACGCDE('001CLRFILES')
>
>       Function CHGACGCDE not
> allowed.
>
>       Function check. CPF180B unmonitored by PCOMBDAILY at statement
> 0000089020,
>
>         instruction
> X'0000'.
>
>       CPF180B received by procedure PCOMBDAILY. (C D I
> R)
>
>                                                                           Bottom
>
>
>   Press Enter to
> continue.
>
>
>
>   F3=Exit   F5=Refresh   F12=Cancel   F17=Top
> F18=Bottom
>
>
>
>
>
>
>
>                               Display Module
> Source
>
>
>
>   Program:   BPCOMBD        Library:   I720LSDBP      Module:
> BPCOMBD
>
>        1
> PGM
>
>        2
>
>
>        3               /* Variable Declaration
> */
>
>        4               DCL        VAR(&RTNVAL) TYPE(*CHAR) LEN(1) VALUE('
> ')
>
>        5
>
>
>        6               /* Call Transaction Server Batch Audit Program
> */
>
>        7               CALL       PGM(SPD001R)
> PARM('A')
>
>        8
>
>
>        9               /* Check the Month End
> */
>
>       10               CALL       PGM(CHKMONE)
> PARM(&RTNVAL)
>
>       11
>
>
>       12               IF         COND(&RTNVAL = '1')
> THEN(DO)
>
>       13               CALL       PGM(MONBPCOM)
>
>
>       14
>
>
>       15
>           ENDDO
>
>                                                                          More...
>
>
>   Debug . .
> .
> THREAD(*SERIALIZE)
>
>
>
>
>   F3=End program   F6=Add/Clear breakpoint   F10=Step   F11=Display
> variable
>
>   F12=Resume       F17=Watch variable   F18=Work with watch   F24=More keys
>
> MONBPCOM program calls the SHR001R program and it is calling some Java
> Classes The SHR001R program compiled with THREAD(*SERIALIZE) can any one
> tell me how to overcome this.