× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.