Re: cl program to call two rpgle programs

Hi,
Thanks indeed program 1 had error that is why it was coming to error part
but problem with below program is that in good scenarios when both
of these programs don't have any error then for example when program 1 ran
successfully then it will show like below:-
'Program 1 ran successfully'
then at command prompt will ask like below
Type reply, press Enter.

Reply . . .





F3=Exit F12=Cancel




If i press enter then same happens with program 2 and once it also runs
successfully i get same screen like 'Program2 Ran successfully'
and then again it asks on command prompt to reply and when i press enter
then only after some time once this second program also runs without any
error then only
it comes to main screen from where i had called this program.



Thanks

PGM
MONMSG MSGID(CPF0000) EXEC(GOTO ERROR)
CALL PROGRAM 1
SNDUSRMSG MSG('Program1 Ran successfully')
CALL PROGRAM 2
SNDUSRMSG MSG('Program2 Ran successfully')
GOTO END
ERROR:
SNDPGMMSG MSGID(CPF9898) MSGF(QSYS/QCPFMSG) +
MSGDTA('Unexpected errors detected, see +
messages in job log') TOPGMQ(*PRV *) +
TOMSGQ(*TOPGMQ) MSGTYPE(*ESCAPE)
END: ENDPGM


On Tue, Dec 17, 2019 at 11:55 AM Pieter Henrico via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

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...

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com