Gracefully ending a program at ENDJOB or ENDSBS

ENDJOB or ENDSBS

When you are writing a program, acting as a long running loop in a subsystem, and you want to give it a normal...

end in case of an ENDJOB or ENDSBS (with *CNTRLD option), you can use RTVJOBA ENDSTS(&ENDSTS) at the beginning of the loop. This bit is set to zero under normal conditions and gets a value of 1 when the job is ending controlled. Be sure to set the length of the loop to about 25 seconds or less to be able to do normal end of job processing.


 Pgm /*Runs forever*/
Dcl Var(&ESTS) Type(*CHAR) Len(1)
Loop: Rtvjoba ENDSTS(&ESTS)
  If Cond(&ESTS *Eq '1') Then(Return)
  Dlyjob Dly(25)
  .... Do your stuff .... 
Goto Cmdlbl(Loop)
Endpgm 
This was last published in June 2001

Dig Deeper on RPG iSeries programming

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close