Troubleshooting
Problem
This document discusses using a user exit program to tailor Operational Assistant Backup.
Resolving The Problem
How can I end subsystems before running my Operational Assistant backup (GO BACKUP)?
The following example of a user-written program, also known as an exit program, for Operational Assistant backup can be used to tailor your backup, such as ending subsystems, unloading the tape, and so on. To use the user exit program (after written and compiled), on an operating system command line, type the following:
CHGBCKUP
Press F4 to prompt, and enter *DAILY (or *WEEKLY or *MONTHLY). Roll to the second screen and type your User Exit Program and Library.
PGM PARM(&PRODID &FLAG &OPTIONS &DEVS &TAPSET &RETCODE)
DCL VAR(&PRODID) TYPE(*CHAR) LEN(10) /* Calling product. +
Will be 'QEZBACKUP' when called from Operational Assistant. */
DCL VAR(&FLAG) TYPE(*CHAR) LEN(10) /* Indicates whether +
before or after backup. */
DCL VAR(&DEVS) TYPE(*CHAR) LEN(40) /* Devices used. */
DCL VAR(&TAPSET) TYPE(*CHAR) LEN(4) /* Tape set name */
DCL VAR(&RETCODE) TYPE(*CHAR) LEN(7) /* Return code */
DCL VAR(&OPTIONS) TYPE(*CHAR) LEN(10) /* Options used */
IF COND(&FLAG *EQ '*BEFORE ') THEN(DO)
/*--------------------------------------------------------*/
/* Insert commands to be run before the backup here. */
/*--------------------------------------------------------*/
ENDDO
IF COND(&FLAG *EQ '*AFTER ') THEN(DO)
/*--------------------------------------------------------*/
/* Insert commands to be run after the backup here. */
/*--------------------------------------------------------*/
STRSBS SBSD(controlling-subsystem)
ENDDO
ENDPGM
Note: Assistance in writing and debugging a user exit program is available only through a consulting agreement.
Historical Number
10343646
Was this topic helpful?
Document Information
Modified date:
18 December 2019
UID
nas8N1018472