- 1
- Define the desired utility name and parameters in a UTILITY entry.
|
You want SMP/E to call a user routine, USERRCVR, rather than
IEBCOPY, to recover from x37 abends. This
is the processing you need: - The program must receive parameter TYPE=FAST.
- The output should go to X37PRINT rather than SYSPRINT.
- A return code of 4 or less is acceptable.
- You want to suppress the listing of member names during retry
processing done by your program.
The following UCL defines the desired UTILITY entry for
your program: SET BDY(GLOBAL) /* Set to global zone. */.
UCLIN /* */.
ADD UTILITY(MYX37) /* Retry/recovery program. */
NAME(USERRCVR) /* Program name. */
PARM(TYPE=FAST) /* PARM value. */
PRINT(X37PRINT) /* SYSPRINT ddname. */
RC(4) /* Highest acceptable */
/* return code. */
LIST(NO) /* No list of member names. */
/* */.
ENDUCL /* */.
|
- 2
- Connect the UTILITY entry to an OPTIONS entry.
|
Once you have created the desired UTILITY entry, you need
to point to it from an OPTIONS entry. The following UCL defines an
OPTIONS entry (MYOPT1) that points to UTILITY entry MYX37: SET BDY(GLOBAL) /* Set to global zone. */.
UCLIN /* */.
ADD OPTIONS(MYOPT1) /* New OPTIONS entry. */
RETRY(MYX37) /* Connect to retry. */
/* */.
ENDUCL /* */.
|
- 3A
- Use the zone definition entry to specify your OPTIONS entry as
the default OPTIONS entry.
|
You might want your OPTIONS entry to be the default for processing
target zone TGT1. In this case, the TARGETZONE entry for TGT1 must
point to your OPTIONS entry. The following UCL updates the existing
TARGETZONE entry for TGT1 so it points to OPTIONS entry MYOPT1: SET BDY(TGT1) /* Set to target zone, TGT1.*/.
UCLIN /* */.
REP TARGETZONE /* Update zone definition. */
OPTIONS(MYOPT1) /* OPTIONS entry to be used.*/
/* */.
ENDUCL /* */.
|
- 3B
- Use the SET command to have your OPTIONS entry override the default
OPTIONS entry for the zone.
|
Instead of changing the default OPTIONS entry, you might want
to override whatever the default might be and use OPTIONS entry (MYOPT1)
for processing particular commands or SYSMODs. In this case, the SET
command preceding the commands you want to process must point to your
OPTIONS entry. The following UCL points the SET command to OPTIONS
entry MYOPT1: SET BDY(TGT1) /* Set to target zone, TGT1.*/
OPTIONS(MYOPT1) /* OPTIONS entry used. */.
⋮
|