Re: *INH1

Hi Javier,

no, I don't think so - the H1-H8 indicators had the effect, than when one of them was turned *ON at return, the calling program received an automatic *ESCAPE message.

You could say H1-H8 was the "poor mans esxception" at times, when we all wrote RPG/III code - it worked, and you were able to communicate an unsuccessful program execution to the called, without resorting to QMHSNDPM, which was (IMHO) a huge PITA in RPG/III.

Today SND-MSG *ESCAPE ... %TARGET(...) is clearly a superior solution.

Regards,
Daniel

Am 08.01.2023 um 21:10 schrieb Javier Sanchez <javiersanchezbarquero@xxxxxxxxx>:

Ok, I misunderstood your point. You want to end a whole job. Well, try to
submit (SBMJOB) a job with the ENDJOB command right after at the line where
you get the error. You can use the "system()" Unix-type API or the QCMDEXC
program.

Something like system("ENDJOB JOB(123456/YOURJOBUSR/YOURJOBNAME)")
and make sure to include the *IMMED option.
Use the QBATCH job queue to also make sure it will run.

Then use the exit(-1) API call.


I think this should work well.

Javier
--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.