Beispiel zur Langzeitsicherung

Ein Langzeitarchiv wird eingerichtet:

//CREATE-ARCHIVE ARCHIVE-NAME=ARC.ARF,ALLOWED-USAGE=*ARCHIVAL,
                 DIRECTORY-NAME=DIR.ARF,RETENTION-PERIOD=9

Einige Dateien werden archiviert und das Archivverzeichnis wird als letztes auf den Sicherungsdatenträger geschrieben:

//ARCHIVE-FILES FILE-NAMES=U.,SAVE-DIRECTORY=*YES,ARCHIVE-NAME=ARC.ARF,
               OPERATION-CONTROL=*PARAMETERS(REPORT=*FULL,OUTPUT=REPORT.FULL)

Auszug aus der druckaufbereiteten Protokolldatei:

SAVE FILE IDENTIFIER - S.160516.155430     SAVE-VERSION-DATE=16-05-16  SAVE-VERSION-TIME=15:54:32
 
%  ARC0820 DIRECTORY ':A:$USERA.DIR.ARF' SAVED ON VSN 'TAPE01'
 
                      ***   CATALOG - A         USER - USERA      ***
          FILE/JOB VARIABLE NAME                  LASTPG/  SAVE   INPUT DEV  SUB  OUTPUT
                                         VERS       SIZE  TYPE    VSN  TYP SAVE  VSN(S)
 
DIR.ARF                                       1          6  FULL  PUBA00  D     0  TAPE01
U.1                                           1          1  FULL  PUBA00  D     0  TAPE01
U.2                                           1          1  FULL  PUBA00  D     0  TAPE01
U.3                                           1          1  FULL  PUBA00  D     0  TAPE01
 
    ***  DIRECTORY NAME IS :A:$USERA.DIR.ARF
 
NUMBER OF FILES=           4 GLOBAL SIZE=        9 START= 2016-05-16 15:54:18 END= 2016-05-16 15:55:30 

Danach werden die Dateien gelöscht. 

Restaurieren der Dateien aus der Langzeitsicherung

Werden jetzt das Langzeitarchiv und das Archivverzeichnis gelöscht (oder gehen verloren), muss vor dem Restaurieren der Dateien zunächst das Archivverzeichnis importiert werden:

//IMPORT-FILES FILE-NAMES=*DIRECTORY,SAVE-FILE=*BY-VOLUME(VOLUMES=TAPE01),
               OPERATION-CONTROL=*PARAMETERS(REPORT=*FULL,OUTPUT=REPORT.FULL)

Auszug aus der druckaufbereiteten Protokolldatei:

                                       SAVE FILE IDENTIFIER - S.160516.155430
           SUBSAVE
            NUMBER       VSNS
               0        TAPE01
 
                      ***   CATALOG - A         USER - USERA      ***
           FILE/JOB VARIABLE NAME                  LASTPG/   SAVE VERSION  SAVE  INPUT   SUB OUTPUT
                                           VERS       SIZE    IDENTIFIER   TYPE   VSN   SAVE DISK(S)
 
DIR.ARF                                       1          6  160516.155432  FULL  TAPE01   0  PUBA00

Nun kann das Archiv mit dem Archivverzeichnis wieder eingerichtet werden:

//CREATE-ARCHIVE ARCHIVE-NAME=ARC.ARF,ALLOWED-USAGE=*ARCHIVAL,
                 DIRECTORY-NAME=DIR.ARF(
                           NEW-DIRECTORY=*NO(RECONSTRUCT-ARCHIVE=*YES))

Danach können die Dateien wieder restauriert werden:

//RESTORE-FILES FILE-NAMES=*ALL,ARCHIVE-NAME=ARC.ARF,
               OPERATION-CONTROL=*PARAMETERS(REPORT=*FULL,OUTPUT=REPORT.FULL)