Rui Miguel Feio

When you require to add an exit routine to an exit you may use the most simple form of the Add command:

/SETPROG EXIT,ADD,EXITNAME=exit_name,MODNAME=mod_name,DSNAME=dsname

Example:

exit_name = SYS.IEFACTRT

mod_name = IEFACTRT

dsname = SYS2.LINKLIB.TST1

/SETPROG EXIT,ADD,EXITNAME=SYS.IEFACTRT,MODNAME=IEFACTRT,DSNAME=SYS2.TST1.LINKLIB

Other parameters:

When adding an Exit routine to an Exit you may also have the need to use one or more of the following parameters:

STATE=active_inactive - Indicates the state of the exit routine. ACTIVE is the default value.

JOBNAME=jobname – The job(s) name(s) for which this exit routine is to get control. If some other job calls the exit, this exit routine does not get control. The default value is * which means all the jobs.

ABENDNUM=(n[,CONSEC]) – indicates that the exit routine is not to be given control after the n abends occur. CONSEC indicates that there must be n consecutive abends before the system stops giving control to the exit routine.

FIRST – Specifies that the system is to call the exit routine before all other exit routines associated with this exit, unless another exit routine, added after it, also specifies FIRST.

LAST - Specifies that the system is to call the exit routine after all other exit routines associated with this exit, unless other exit routines are added after it.

Examples:

/SETPROG EXIT,ADD,EX=SYS.IEFU83,MOD=CYN1FU83,DSN=CYN.SCYNAUTH,FIRST

/SETPROG EXIT,ADD,EX=SYS.IEFU83,MOD=CYN1FU83,DSN=CYN.SCYNAUTH,FIRST,STATE=INACTIVE

/SETPROG EXIT,ADD,EX=SYSSTC.IEFACTRT,MOD=IEFACTRT,ABENDNUM=(5)

/SETPROG EXIT,ADD,EX=SYSSTC.IEFACTRT,MOD=IEFACTRT,ABENDNUM=(5,CONSEC)

The following are some of the most common ways to display Exits and Exit Routines:

1. Display the names of all the Exits

/D PROG,EXIT,ALL

Example of what this command returns:

CSV460I 13.31.32 PROG,EXIT DISPLAY 941
EXIT             DEF EXIT             DEF EXIT             DEF
SYSSTC.IEFACTRT   E  SYSSTC.IEFUJI     E  SYSSTC.IEFUJV     E
SYS.IEFACTRT      E  SYS.IEFUJI        E  SYS.IEFUJV        E
SYS.IEFU83        E  SYS.IEFU84        E  SYS.IEFU85        E
SYSSTC.IEFU83     E  SYSSTC.IEFU84     E  SYSSTC.IEFU85     E
...


2. Display the names of all exit routines associated with the named exit

/D PROG,EXIT,EXITNAME=exit_name

Example:

exit_name = SYS.IEFACTRT

/D PROG,EXIT,EXITNAME=SYS.IEFACTRT

Returns:

RESPONSE=TST1
CSV461I 14.15.02 PROG,EXIT DISPLAY 068
EXIT MODULE STATE MODULE STATE MODULE STATE
SYS.IEFACTRT IEFACTRT A STRBACTR A


3. Display the names of the exits with which the specified exit routine is associated

/D PROG,EXIT,MODNAME=mod_name

Example:

mod_name = IEFACTRT

/D PROG,EXIT,MODNAME=IEFACTRT

Returns:

RESPONSE=TST1
CSV462I 14.20.25 PROG,EXIT DISPLAY 906
MODULE  IEFACTRT
EXIT(S) SYSSTC.IEFACTRT  SYS.IEFACTRT


The following command deletes an exit routine from an exit:

/SETPROG EXIT,DELETE,EXITNAME=exit_name,MODNAME=mod_name,FORCE=yes_no

Example:

exit_name = SYSSTC.IEFACTRT

mod_name = IEFACTRT

/SETPROG EXIT,DELETE,EXITNAME=SYSSTC.IEFACTRT,MODNAME=IEFACTRT

Note:

FORCE = NO is the default value and therefore we don’t need to specify it. This changes the state of the exit routine to inactive and the system does not free the storage.

FORCE=YES frees the storage of the exit routine immediately and it should be used only if you are sure that no exit is running that exit routine.

Let’s say for instance that you have a DASD volume (TSTCT1) and you would like to know who’s using it (allocating it).

In order to do this we first need to know the unit address of said device:

/D U,VOL=volume_name

In our example:

/D U,VOL=TSTCT1

Result:

RESPONSE=TST1
IEE457I 09.53.10 UNIT STATUS 444
UNIT TYPE STATUS        VOLSER     VOLSTATE
7001 3390 A             TSTCT1     PRIV/RSDNT

Note: In this case as we can see the unit address of TSTCT1 is 7001.

Once we know the unit address then we can check who’s allocating it by using the command:

/D U,,ALLOC,address,1

In our case:

/D U,,ALLOC,7001,1

Result:

RESPONSE=TST1
IEE106I 09.56.08 UNITS ALLOCATED 623
UNIT    JOBNAME  ASID   JOBNAME  ASID   JOBNAME  ASID   JOBNAME  ASID
7001 *MASTER* 0000   *MASTER* 0001   XCFAS    0006   OMVS     000E
7001 CATALOG  0023   LLA      0024   JES2     0028

Note:

We use “1″ in the end of the command so that we only get the display for the single device we’ve specified in the command.