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



Try :


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


Cordialement,

Jean-Marc DUVAL
Pôle développement IT
Développeur IBM i consultant

 +33 (0) 6 48 30 21 09
     +33 (0) 2 34 59 52 91

-----Message d'origine-----
De : RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> De la part de Jean-Marc DUVAL
Envoyé : mardi 17 décembre 2019 11:12
À : RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Objet : RE: cl program to call two rpgle programs

[EXTERNAL MAIL]

Hi,

Perhaps because of CPF2415...

Regards,

Jean-Marc DUVAL

-----Message d'origine-----
De : RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> De la part de techie21 IT Envoyé : mardi 17 décembre 2019 10:41 À : RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx> Objet : Re: cl program to call two rpgle programs

[EXTERNAL MAIL]

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

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.