Disk Files Data Set (FDS) Unload and Reload process

Products

• Disk Backup and Restore - MVS

Issue/Introduction

Disk Files Data Set (FDS) Unload and Reload process when Files Data Set is full.

Resolution

The following are UNLOAD and RELOAD steps.

1. Before running UNLOAD JCL, Run the FDS status report. Below is sample JCL.

//STATUS EXEC PGM=ADSMI002,PARM=ADSDM107,REGION=512K
//STEPLIB DD DISP=SHR,DSN=CA.DISK.CCUWLOAD
//ABNLDUMP DD DUMMY
//FILES DD DISP=SHR,DSN=CA.DISK.FILES
//MSGPRINT DD SYSOUT=A
//PARMLIB DD DISP=SHR,DSN=CA.DISK.CCUWPARM
//SYSPRINT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A

2. UNLOAD the existing FDS with UNLOAD ALL and keep the SEQFILES output as input for the following RELOAD (and of course as a Backup). Adjust the Space parm as needed.

/FILEUNLD EXEC PGM=ADSMI000,PARM=ADSDM177,REGION=0M
//STEPLIB  DD DISP=SHR,DSN=YOURHLQ.CCUWLOAD   
//ABNLDUMP DD SYSOUT=*
//CMDPRINT DD SYSOUT=*
//FILES    DD DISP=SHR,DSN=CAI.DISK.FILES
//MSGPRINT DD SYSOUT=*
//PARMLIB  DD DISP=SHR,DSN=YOURHLQ.CCUWPARM
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SEQFILES DD DSN=YOUR.UNLOADED.FDS.BACKUP,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(300,100),RLSE),     <==  Adjust as needed
//            UNIT=SYSDA,
//            DCB=(BLKSIZE=0,DSORG=PS,RECFM=VB)
//SYSIN    DD *
  UNLOAD ALL

 

3. Run FDS Status report. Validate if the record count increased.

4. Increase the FILEDEFN on first line to 10 million. Something like below.
 DSINDEX256044C10000000YNNY

If the FILEDEFN member is not present in your parmlib then copy the member FDSAMPLE from *.CCUPARM to your parmlib.
Please review the tech doc section 'Files Data Set (FDS) Capacity' to understand the maximum capacity of the FDS.

5. Run FILEINIT for temp file . The sample JCL is in *.CCUWJCL(FILEINIT)

6. Run STATUS on temp file and validate

7. Stop the DMSAR task using  the following command
S DMSAR,DMSAR=REMOVE

After the above command, check the DMSAR status using the command
S DMSAR,DMSAR=STATUS

8. Run the Reload job. 

//RELOAD   EXEC PGM=ADSDM287
//STEPLIB  DD DSN=CA.DISK.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SEQFILES DD DSN=YOUR.UNLOADED.FDS.BACKUP,DISP=SHR
//FILES    DD DSN=YOUR.TARGET.FDS,DISP=SHR
//SYSIN    DD *
RELOAD ALL
/*

9. Start the DMSAR task using the command
S DMSAR,DMSAR=INSTALL

Check the DMSAR status (installed) using the command
S DMSAR,DMSAR=STATUS

10. Run the FDS Status report and compare the initial stats.