Implement ENQ/DEQ logic before POSTing? Use the low-order three bytes of the ECB to store a STCK? You've have to decide which bits of the STCK result provide sufficient resolution. But that could indicate who got there first. Richard Zierdt Fresche Solutions
________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of [email protected] <[email protected]> Sent: Tuesday, May 6, 2025 5:16 PM To: [email protected] <[email protected]> Subject: Looking for different strategies/solutions This Message Is From an Untrusted Sender You have not previously corresponded with this sender. 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 Confidentiality Warning/Avertissement de confidentialité: This message is intended only for the named recipients. This message may contain information that is privileged or confidential. If you are not the named recipient, its employee or its agent, please notify us immediately and permanently destroy this message and any copies you may have. Ce message est destiné uniquement aux destinataires dûment nommés. Il peut contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas le destinataire dûment nommé, son employé ou son mandataire, veuillez nous aviser sans tarder et supprimer ce message ainsi que toute copie qui peut en avoir été faite. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
