Use EVENTS instead WAIT. El mar, 6 may 2025, 23:16, [email protected] <[email protected]> escribió:
> I'm looking for different solutions -..I have a Task (TCB) that needs to > wait on two ECBS -The main program issues a STIMERM as Follows: > . L R9,STIMER_EXIT@ > . STIMERM SET,ID=(2), > . WAIT=NO, > . DINTVL=DINTVL$, > . PARM=STIMERP, > . EXIT=(9) > . > The Main Task program can either call a local function via a BRAS > instruction > or an external function via a Program Call (PC) instruction - > . > In either case when either function routine returns to the main program, > the main program issues a WAIT on one of Two Event Control Blocks - > . WAIT 1,ECBLIST=STIMR_WAIT_LIST > . > The STIMR_WAIT_LIST has two ECB's; one is the Timer Expiry posted by > the SRIMERM Exit and the second a completion ECB posted by > either the BRAS local function or the PC Service Function - > . > My confusion is how to determine which ECB got posted first without > developing any complicated code. I can test each ECB for the post > bit, and set a switch in the STIMERM Exit Routine to indicate > the function has Timed out (EXPIRED). > . > The completion ECB could be posted after the Expiry ECB meaning the > transaction timed out - > . > Are there any recommendations/guidelines/suggestions, > to determine which ECB has been posted first? > .paul dangelo > . > . > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
