RE: cl program to call two rpgle programs

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