Example of long-term archival

A long-term archive is created:

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

Some files are archived, and the archive directory is written last onto the save volume:

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

Extract of the log file edited for printing:

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 

The files are subsequently deleted. 

Restoring the files from long-term archival

If the long-term archive and the archive directory are deleted (or are lost), the archive directory must be imported before the files are restored:

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

Extract of the log file edited for printing:

                             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

The archive can now be created again with the archive directory:

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

The files can then be restored:

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