OPS/REXX Built-in Functions › OPSTATUS Function › Sample Output from OPSTATUS

Sample Output from OPSTATUS

These REXX statements produce output similar to that shown in the following example:

say 'Count of address spaces:' OPSTATUS('A','I','*')
do while queued() > 0
  pull x
  say x
end

Output:

Count of address spaces: 12
*MASTER* NONE     NONE    0001 NSW SYS ....(more columns here)...
PCAUTH   PCAUTH   NONE    0002 NSW SYS ..........................
TRACE    TRACE    NONE    0003 NSW SYS ..........................
GRS      GRS      NONE    0004 NSW SYS ..........................
DUMPSRV  DUMPSRV  DUMPSRV 0005 OWT SYS ..........................
CONSOLE  CONSOLE  NONE    0006 NSW SYS ..........................
ALLOCAS  ALLOCAS  NONE    0006 NSW SYS ..........................
SMF      SMF      IEFPROC 0007 NSW SYS ..........................
ACF2     ACF2     IEFPROC 0008 NSW STC ..........................
NIT      STEP2    NONE    0011 OWT INI ..........................
BATJOB1  STEP2    NONE    0012 NSW JOB ..........................
TSOID1   NONE     NONE    0009 OWT TSU ..........................

Examples: OPSTATUS

Reviewing the following examples gives you a better understanding of OPSTATUS:

• Example 1: The following example shows you how to use the OPSTATUS function to determine whether the CICSPROD address space is active:

  jobname = "CICSPROD"
  status = OPSTATUS("A","A",jobname)
  if status=1 then TASKSTAT = "UP"
  

• Example 2: The following example illustrates using OPSTATUS to determine whether a TSO user (whose user ID is TSOUSER) is logged on:

  userid = "TSOUSER" /* Replace TSOUSER with a valid TSO user ID */
  if OPSTATUS("T","A",userid) <> 1 then
    say userid "is not logged on at this time."
  

• Example 3: The following example shows you how to use OPSTATUS to extract information about outstanding WTORs and the address spaces that issued them:

  say "Count of Outstanding Replies" OPSTATUS("R","I","*")
  

  do while QUEUED() > 0
    pull line
    say  line
  end
  

• Example 4: The following example shows you how to use OPSTATUS to extract information about outstanding WTORs that were issued on this system and that have been outstanding for more than five minutes:

  ThisSys = OPSINFO("SYSNAME")
  temp = OPSTATUS("R","S","*")
  do while QUEUED() > 0
    parse pull ReplyID Text 
    parse pull jbnm jbid asid syna uid secs .
    if (syna = ThisSys) & (secs > 300) then
      say jbnm jbid asid uid secs ReplyID Text
  end