RPGILE XOP560 error message CEE9901

265 pts.
Tags:
RPG Error Messages
RPG/400
RPGILE
I have a rpgile (XOP560) program as below. It compiled sucessfully and while calling the program it is displaying on the screen but once I come out of the screen using f3 I am getting error as below. 

Message ID . . . . . . : CEE9901 
Severity . . . . . . . : 30 
Message type . . . . . : Escape 
Date sent . . . . . . : 04/06/09 
Time sent . . . . . . : 07:30:52 
Message . . . . : Application error. CPF3CF1 unmonitored by XOP560 at statement 0000000253, instruction X'0000'. 
Cause . . . . . : The application ended abnormally because an exception occurred and was not handled. The name of the program to which the unhandled exception is sent is XOP560 XOP560 XOP560. The program was stopped at the high-level language statement number(s) 0000000253 at the time the message was sent. If more than one statement number is shown, the program is an optimized ILE program. Optimization does not allow a single statement number to be determined. If *N is shown as a value, it means the real value was not available. 
Recovery . . . : See the low level messages previously listed to locate the cause of the exception. Correct any errors, and then try the request again. 


The program: 
C DOW *IN03=*OFF C *IN03 IFEQ *OFF C WRITE MSGCTL C EXFMT PKSCR C MOVE *BLANKS PKLBL C MOVEL *BLANKS @KEY C CALL 'QMHRMVPM' @PARM1 C *IN03 IFEQ *OFF C PKLBL IFNE *ZEROS C PKLBL CHAIN TFOOD00 C IF %FOUND(TFL01) C MOVEL ODPOOR ORDINV C EVAL ORD = %SUBST(ORDINV:8:8) C EVAL INV = %SUBST(ORDINV:1:6) C MOVEL INV XFINVNO C MOVEL ORD XFDRGRF C PKLBL SETLL TFL01 C PKLBL READE TFL01 50 C *IN50 DOWEQ *OFF C ODSTS IFEQ 'A' C MOVE 'K' ODSTS C UPDATE TFOOD00 C MOVE 'NIT0003' @MSGID C CALL 'QMHSNPDM' @PARM2 C ENDIF C ODSTS IFNE 'A' C MOVE 'NIT0002' @MSGID C CALL 'QMHSNPDM' @PARM2 C ENDIF C MOVEL ODITM DSALPNR C MOVEL ODITM DSORPNR C MOVEL *DATE DSSTSDT C* MOVEL ODITM XSITCT1 C MOVE 40 DSSTSCD C MOVE *BLANKS DSCASNR C PKLBL READE TFL01 50 C ENDDO C ELSE C MOVE 'NIT0001' @MSGID C CALL 'QMHSNPDM' @PARM2 C ENDIF C ENDIF C ENDIF C ENDIF C ENDDO C* RETURN C SETON LR C *INZSR BEGSR C MOVEL '*' PGM C MOVEL '*DIAG' @TYPE C MOVEL '*LIBL' LIB 10 C MOVEL '@LIB' @MSGF 20 C MOVEL 'TFMMSG' @MSGF C MOVEL '*ALL' @RMV 10 C MOVEL *BLANKS @KEY 4 C @PARM1 PLIST C PARM PGM C PARM @STK C PARM @KEY C PARM @RMV C PARM @ERR C @PARM2 PLIST C PARM @MSGID 7 C PARM @MSGF C PARM @DTA 80 C PARM @LEN C PARM @TYPE 10 C PARM PGM C PARM @STK C PARM @KEY C PARM @ERR C ENDSR
ASKED: April 6, 2009  2:54 PM
UPDATED: August 23, 2013  3:11 PM

Answer Wiki

Thanks. We'll let you know when a new response is added.

Hi,

Check your joblog, you should see other messages with more information.

Regards,

Martin Gilbert.

///////////// phil here
// so you got something like this
A R MSGRCD SFL
A*%%TS SD 20090401 010400 KSS991U REL-V4R4M0 5769-PW1
A SFLMSGRCD(24)
A MSGKEY SFLMSGKEY
A PGM SFLPGMQ(10)
A R MSGCTL SFLCTL(MSGRCD)
A*%%TS SD 20090401 010400 KSS991U REL-V4R4M0 5769-PW1
A SFLDSP
A SFLDSPCTL
A 01 SFLINZ
A SFLSIZ(0002)
A SFLPAG(0001)
A PGM SFLPGMQ(10)
//////////// and something like this
C WRITE MSGCTL
but you haven’t initialized this
I would say start the program with
*in01 = *on
Write MSGCTL
*in01 = *off

Although you might want to rethink you’re use of indicatiors
in01-24 are ofter reserved for the function keys.

and this statement
A PGM SFLPGMQ(10)
requires a value for PGM – here is the code to capture it from the program data structure.
You may already have that in C PARM PGM

D SDS
DPGM 1 10

Phil

Discuss This Question:  

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following