Re: Function CHGACGCDE not allowed.

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.



--
Regards,

Chamara Withanachchi
IBM Certified Power System Expert
RPG Programmer
(owner of www.rpgiv.info)

WWW.RPGIV.INFO
Mob: +94 77 1678646
chamaraw@xxxxxxxxxx

i want to be future ready. i want control. i want an i.
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.