×
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.
Hi
From what I can see your program structure is fine, and the program is
doing what you tell it to do. The error message subroutine is invoked
because program 1 had a problem. You will need to check the joblog to see
if there were errors that could cause the error routine to be invoked.
How do you know program 1 completed successfully?
Hth.
Pieter
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of techie21
IT
Sent: Tuesday, 17 December 2019 11:41 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: cl program to call two rpgle programs
Hi,
I just tried below program but inspite of program1 runs successfully it
goes in to error part and keeps displaying that \unexpected error ...'
message.
PGM
MONMSG MSGID(CPF0000) EXEC(GOTO ERROR)
CALL PROGRAM 1
SNDUSRMSG MSG('Program1 Ran successfully')
CALL PROGRAM 2
SNDUSRMSG MSG('Program2 Ran successfully')
RETURN
ERROR:
SNDPGMMSG MSGID(CPF9898) MSGF(QSYS/QCPFMSG) +
MSGDTA('Unexpected errors detected, see +
messages in job log') TOPGMQ(*PRV *) +
TOMSGQ(*TOPGMQ) MSGTYPE(*ESCAPE)
ENDPGM
What is going wrong here any idea please?
Thanks much...
midrange.com
