This document illustrates how to reduce the amount of space used by a View database.
In the event that a View database has been over-allocated, or if the requirements of the database has changed such that the amount of disk space needs to be reduced, here are procedures that can be used to alter the amount of space used by the database, depending on the availability of DASD space:
//XXXXXXXX JOB ...//SARDBASE EXEC PGM=SARDBASE //STEPLIB DD DISP=SHR,DSN=VIEW.CAILIB <=== Modify, if used//SARUNLD DD DSN=XXXXXX.XXXXXX.SARUNLD, <=== Modify DSN // DISP=(,CATLG,),// DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760),...//SYSPRINT DD SYSOUT=* //SYSIN DD * NAME VIEW.DB1 <=== Modify DB nameUNLOAD/*//
//XXXXXXXX JOB ...//SARDBASE EXEC PGM=SARDBASE //STEPLIB DD DISP=SHR,DSN=VIEW.CAILIB <=== Modify, if used//SYSPRINT DD SYSOUT=* //SYSIN DD * NAME VIEW.DB1 <=== Modify DB nameDELETE/*//
//XXXXXXXX JOB ...//SARDBASE EXEC PGM=SARDBASE //STEPLIB DD DISP=SHR,DSN=VIEW.CAILIB <=== Modify, if used//SYSPRINT DD SYSOUT=* //SYSIN DD * NAME VIEW.DB1 <=== Modify DB nameADDDS DATA ...ADDDS INDEX .../*//
//XXXXXXXX JOB ...//SARDBASE EXEC PGM=SARDBASE //STEPLIB DD DISP=SHR,DSN=VIEW.CAILIB <=== Modify, if used//SARLOAD DD DSN=XXXXXX.XXXXXX.SARUNLD, <=== Modify DSN // DISP=SHR//SYSPRINT DD SYSOUT=* //SYSIN DD * NAME VIEW.DB1 <=== Modify DB nameLOAD/*//
//XXXXXXXX JOB ...//SARDBASE EXEC PGM=SARDBASE //STEPLIB DD DISP=SHR,DSN=VIEW.CAILIB <=== Modify, if used//SYSPRINT DD SYSOUT=* //SYSIN DD * NAME VIEW.DB2 <=== New DB nameADDDS DATA ...ADDDS INDEX .../*//
//XXXXXXXX JOB ...//SARDBASE EXEC PGM=SARDBASE //STEPLIB DD DISP=SHR,DSN=VIEW.CAILIB <=== Modify, if used//SYSPRINT DD SYSOUT=* //SYSIN DD * NAME VIEW.DB2 <=== New DB nameCOPY VIEW.DB1 <=== Original DB name (copied from)/*//
//XXXXXXXX JOB ...//SARDBASE EXEC PGM=SARDBASE //STEPLIB DD DISP=SHR,DSN=VIEW.CAILIB <=== Modify, if used//SYSPRINT DD SYSOUT=* //SYSIN DD * NAME VIEW.DB1 <=== Original DB nameRENAME VIEW.DB3 <=== Temporary DB name/*//
//XXXXXXXX JOB ...//SARDBASE EXEC PGM=SARDBASE //STEPLIB DD DISP=SHR,DSN=VIEW.CAILIB <=== Modify, if used//SYSPRINT DD SYSOUT=* //SYSIN DD * NAME VIEW.DB2 <=== New DB nameRENAME VIEW.DB1 <=== Original DB name/*//
//XXXXXXXX JOB ...//SARDBASE EXEC PGM=SARDBASE //STEPLIB DD DISP=SHR,DSN=VIEW.CAILIB <=== Modify, if used//SYSPRINT DD SYSOUT=* //SYSIN DD * NAME VIEW.DB3 <=== Temporary DB nameDELETE/*//