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


On Sat, Dec 7, 2019 at 3:15 PM <dfreinkel@xxxxxxxxxxxxxxxxx> wrote:

I would use a parameter that has a return code to inform the CL what the
status is of the first and second calls. In this way you can control what
happens.


Darryl Freinkel
Telephone: 770.321.8562 Mobile: 678.355.8562

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Carel
Sent: Tuesday, December 3, 2019 1:10 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: cl program to call two rpgle programs

True. But then the most generic one or (a) specific one(s)

Without knowing the conditions for running pgm2, I just put down a generic
sk;eton of a CLP PGM.


Op 3-12-2019 om 18:50 schreef Jon Paris:

You should add a MONMSG in there to catch any errors in pgm1 - without

that pgm2 can run even when it shouldn't.

On Dec 3, 2019, at 11:20 AM, Carel <coteijgeler@xxxxxxxxx> wrote:

Simple:

PGM
CALL pgm1
CALL pgm2
ENDPGM

KInd regards,
Carel Teijgeler

Op 3-12-2019 om 18:06 schreef techie21 IT:

Hi,

I am trying to write a CL prgram which should call two independent

RPGLE

Programs,
I am trying this to club these 2 different RPGLE programs so that they
should run in a same job but problem is that these 2 RPGLE programs are
very complex and have different if else conditions so how can I club

them

together also once first RPGLE program gets completed then only

secondone

should be invoked.


Thanks

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

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

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