OPS/REXX Built-in Functions › OPSENQ Function › ENQ Information Returned in the EDQ

ENQ Information Returned in the EDQ

The following is the format of the data returned in the EDQ for the C and Q function codes:

Word Number: 1

Contains the jobname of the ENQ requestor or the jobname of the ENQ provider and requestor delimited with a slash.

Length: 17

Word Number: 2

Contains the system name of the ENQ requestor.

Length: 8

Word Number: 3

Contains the ENQ major name (QNAME).

Length: 8

Word Number: 4

Contains the scope of the ENQ request:

• SYS-a scope of SYSTEM
• SYSS-a scope of SYSTEMS
• STEP-a scope of STEP
• UNKN-this should never occur

Length: 4

Word Number: 5

Contains the global (G) or local (L) request.

Length: 1

Word Number: 6

Contains the ASID of ENQ requester or the ASID of ENQ provider and requestor delimited with a slash in hexadecimal format.

Length: 9

Word Number: 7

Contains the TCB address of ENQ requestor in hexadecimal format.

Length: 8

Word Number: 8

Contains the status of O = Owns the resource or W = Waiting for the resource.

Length: 1

Word Number: 9

Contains the type of S = Shared or E = Exclusive.

Length: 1

Word Number: 10

Contains the device number (if the request was a RESERVE request) or N/A.

Length: 1

Word Number: 11

Contains the ENQ minor name (RNAME).

Note: The minor name (RNAME) may contain embedded blanks; therefore, everything after the tenth word should be treated as part of the RNAME. Each record contains at least eleven words, however, there may be more.

Length: 255

Examples: OPSENQ function in various scenarios

• This example illustrates serializing the use of a pseudo resource called RESOURCEA on the current system:

  temp = OPSENQ(“E”,,”RESOURCEA”,”E”,”SYSTEM”,”HAVE”)
     .
     .
     .
  OPS/REXX code that requires serialization
     .
     .
     .
  temp = OPSENQ(“D”,,”RESOURCEA”)
  

• This example illustrates using OPSENQ to query ENQ information, on the local system, about a CA OPS/MVS rule data set:

  lines=OPSENQ('Q','SYSDSN','SYS1.OPS.SUPPRESS.RULES',,'SYSTEM')
  

• This example illustrates using OPSENQ to return ENQ information about all the ISPF Editor ENQs held for the high level qualifier of a TSO user ID throughout the global serialization complex:

  lines=OPSENQ('Q','SPFEDIT','MYUID.*',,'ALL')
  

• This example illustrates using OPSENQ to return information about all ENQ conflicts in the global serialization complex:

  lines=OPSENQ('C','*','*',,'ALL')
  

• This example illustrates the data format returned in the EDQ if one serialization job is executed on behalf of another. The provider and requestor jobnames are delimited with a slash. Their ASIDs are also concatenated with a slash.

  CATALOG/T01403A CA11 SYSIGGV2 SYS  L 001F/01E8 006DCBC8 O S 2E6A ICF.IDI.USERCAT2