Re: cl program to call two rpgle programs

[techie21 IT <techiei876@xxxxxxxxx>]

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