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

ENQ Information Returned in the EDQ

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

Word Number: 1

Contains the jobname of the ENQ requestor or the jobname of the ENQ provider and requestor that is 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

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 that is 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, treat everything after the tenth word as part of the RNAME. Each record contains at least 11 words.

Length: 255

Examples: OPSENQ function in various scenarios

• This example illustrates serializing the use of a pseudo resource that is named 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 the use of 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 the use 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 the use of 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