Troubleshooting
Problem
This document provides information about changing GO SAVE Option 21 so that the tape is not unloaded from the drive when complete.
Resolving The Problem
By design, GO SAVE Option 21 will eject or unload the cartridge that was used when the save completes successfully. There are times when users do not wish for this tape to be unloaded from the drive. For example, if the users want to append another save to this tape, they would prefer that the tape be left in the drive.
The program that unloads the volume is QSRSAVIA. The user can retrieve the source for that program, change ENDOPT(*UNLOAD) to ENDOPT(*LEAVE), and create a new version of program QSRSAVIA. We recommend keeping a copy of the original QSRSAVIA if this program is modified. Do the following:
Note: It is not recommended to modify IBM-supplied CL programs. If this option is pursued, you should retain a copy of the original IBM program. Also, this program will be overwritten on a release upgrade and would have to be changed again.
The program that unloads the volume is QSRSAVIA. The user can retrieve the source for that program, change ENDOPT(*UNLOAD) to ENDOPT(*LEAVE), and create a new version of program QSRSAVIA. We recommend keeping a copy of the original QSRSAVIA if this program is modified. Do the following:
| 1. | On the operating system command line, type the following: RTVCLSRC PGM(QSYS/QSRSAVIA) SRCFILE(QGPL/QCLSRC) Press the Enter key. |
| 2. | On the operating system command line, type the following: STRPDM Press the Enter key. |
| 3. | Select Option 3, Work with members, and specify file QCLSRC, library QGPL and member QSRSAVIA. |
| 4. | Select Option 2 to change this program. Search for the ENDOPT(*UNLOAD). |
| 5. | Change each of the two instances of ENDOPT(*UNLOAD) to ENDOPT(*LEAVE). |
| 6. | Re-compile the CL program using Option 14 and Function 4 to prompt for parameters: Program . . . . . . . . . . . . > QSRSAVIA Name Library . . . . . . . . . . . > QSYS Name, *CURLIB Source file . . . . . . . . . . > QCLSRC Name Library . . . . . . . . . . . > QGPL Name, *LIBL, *CURLIB Source member . . . . . . . . . > QSRSAVIA Name, *PGM Text 'description' . . . . . . . *SRCMBRTXT Additional Parameters Replace program . . . . . . . . > *YES *YES, *NO |
[{"Type":"MASTER","Line of Business":{"code":"LOB68","label":"Power HW"},"Business Unit":{"code":"BU070","label":"IBM Infrastructure"},"Product":{"code":"SWG60","label":"IBM i"},"ARM Category":[{"code":"a8m0z0000001gnSAAQ","label":"Backup Recovery Install Migration-\u003ESave\/restore"}],"ARM Case Number":"","Platform":[{"code":"PF012","label":"IBM i"}],"Version":"All Versions"}]
Historical Number
478220768
Was this topic helpful?
Document Information
Modified date:
29 November 2024
UID
nas8N1013865