Determine who is holding the specified data set.
Figure 176 DO SYSREQ Parameter Example
RL: WHOHAS LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
ON RULE = WHOHAS
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION FIND WHO OWNS A DATASET.
DESCRIPTION THIS RULE RECEIVES AS PARAMETER A DATASET NAME,
DESCRIPTION FINDS WHAT DATASETS ARE HOLDING THE JOB AND RETURNS
DESCRIPTION THE JOBNAME OF THE FIRST OWNER IN VARIABLE %%DS_NAME.
DESCRIPTION WHEN THE DATASET IS NOT HELD BY ANY JOB, THE VALUE IS
DESCRIPTION SET TO 'NONE'.
DESCRIPTION
===========================================================================
/* GET DATASET NAME PASSED AS PARAMETER
DO SET = %%DSNAME = %%$ARGS GLOBAL N
/* GET ALL THE OWNERS OF THE DATASET
DO SYSREQ = ENQINFO STATUS OWNER SCOPE ALL JOBNAME
QNAME SYSDSN RNAME %%DSNAME
/* GET THE FIRST OWNER
IF %%$SYSLINES GE# 1
DO SET = %%$PARSE %%$SYSLINE1 %%$EITEMPLATE GLOBAL N
DO SET = %%DS_OWNER = %%EIJOBN GLOBAL N
ELSE
/* NO JOB IS OWNING THE DATASET: SET OWNER TO 'NONE'
DO SET = %%DS_OWNER = NONE GLOBAL N
ENDIF
/* WRITE A LOG ENTRY TO THE IOA LOG
DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
MESSAGE DATASET %%DATASET IS HELD BY %%DS_OWNER
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 10.58.07
Parent Topic |