IBM Support

Tailoring the Operational Assistant Backup Exit

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.

[{"Product":{"code":"SWG60","label":"IBM i"},"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Component":"Save\/Restore","Platform":[{"code":"PF012","label":"IBM i"}],"Version":"7.3;7.2.0;7.1.0;6.1.0;5.4.0;5.3.0","Edition":"","Line of Business":{"code":"LOB08","label":"Cognitive Systems"}},{"Product":{"code":"SSC3X7","label":"IBM i 6.1"},"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Component":" ","Platform":[{"code":"","label":""}],"Version":"","Edition":"","Line of Business":{"code":"","label":""}},{"Product":{"code":"SSC52E","label":"IBM i 7.1"},"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Component":" ","Platform":[{"code":"","label":""}],"Version":"","Edition":"","Line of Business":{"code":"","label":""}},{"Product":{"code":"SSTS2D","label":"IBM i 7.3"},"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Component":" ","Platform":[{"code":"","label":null}],"Version":"","Edition":"","Line of Business":{"code":"","label":""}},{"Product":{"code":"SSC5L9","label":"IBM i 7.2"},"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Component":" ","Platform":[{"code":"","label":null}],"Version":"","Edition":"","Line of Business":{"code":"","label":""}}]

Historical Number

10343646

Document Information

Modified date:
18 December 2019

UID

nas8N1018472