Re: ENDSBS *ALL in a batch job -- MIDRANGE-L

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

On 13 Aug 2013 10:11, rob@xxxxxxxxx wrote:

I have a UPS monitoring program that runs in <<SNIP>>
our controlling subsystem. When it tried to do the
ENDSBS SBS(*ALL) OPTION(*CNTRLD) DELAY(120)
I got CPF1052 "ENDSBS *ALL not allowed in current environment."
Cause . . . . : <<SNIP>> ENDSBS *ALL is only
allowed in a batch job when the BCHTIMLMT parameter is specified.

Is this as simple as changing this to
ENDSBS SBS(*ALL) OPTION(*CNTRLD) DELAY(120) BCHTIMLMT(*NOMAX)

<<SNIP>>

That should be all that is required.

The remaining program is simply:

/* Wait for CPF0968: System ended to restricted condition. */
DOUNTIL (&SysStatus='1')
DLYJOB DLY(10)
CALL PGM(QWCRSSTS) PARM(&Ssts0200 &Len0200 &Format &ResetSts &ErrCode)
ENDDO
PWRDWNSYS DELAY(60) RESTART(*NO)
END:
DLCOBJ OBJ((&MsgQLib/&MsgQName *MSGQ *EXCL))
ENDPGM

Should there be a LEAVE from the loop, to escape if the total delay time is exceeds what is allowable for awaiting the restricted-state condition being reached? And if the DLCOBJ can execute, might the QUPSDLYTIM need updating before that request is performed?

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.