Maintaining a PROTSYM File › IN25UTIL › Examples

Examples

The following examples contain sample JCL for performing common symbolic file maintenance tasks.

Initializing a Symbolic File

Initializing a Symbolic File

The following example initializes a symbolic file:

//UTILITY  JOB
//STEP1    EXEC PGM=IN25UTIL
//STEPLIB  DD DSN=CAI.CAVHLOAD,DISP=SHR
//MESSAGE  DD SYSOUT=*
//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR
//CARDS    DD *
PASSWORD=12345678
INITIALIZE
/*

Purging Symbolic Information by Age

Purging Symbolic Information by Age

The following example purges all programs that have not been compiled or assembled within the last 20 days:

//UTILITY  JOB
//STEP1    EXEC PGM=IN25UTIL
//STEPLIB  DD DSN=CAI.CAVHLOAD,DISP=SHR
//MESSAGE  DD SYSOUT=*
//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR
//CARDS    DD *
PASSWORD=12345678
PURGE=20
/*

Deleting Symbolic Information by Program

Deleting Symbolic Information by Program

The following example deletes all symbolic data for programs ORDEDIT and TEST1:

//UTILITY  JOB
//STEP1    EXEC PGM=IN25UTIL
//STEPLIB  DD DSN=CAI.CAVHLOAD,DISP=SHR
//MESSAGE  DD SYSOUT=*
//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR
//CARDS    DD *
PASSWORD=12345678
DELETE=ORDEDIT
DELETE=TEST1
/*

Generating Reports and Purging Programs

Generating Reports and Purging Programs

The following example generates a system report, purges all programs that have not been compiled or assembled within 90 days, and generates another system report:

//UTILITY  JOB
//STEP1    EXEC PGM=IN25UTIL
//STEPLIB  DD DSN=CAI.CAVHLOAD,DISP=SHR
//MESSAGE  DD SYSOUT=*
//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR
//CARDS    DD *
PASSWORD=12345678
REPORT
PURGE=90
REPORT
/*

Unloading Programs

Unloading Programs

The following example unloads all programs on the symbolic file to tape:

//UTILITY  JOB
//STEP1    EXEC PGM=IN25UTIL
//STEPLIB  DD DSN=CAI.CAVHLOAD,DISP=SHR
//MESSAGE  DD SYSOUT=*
//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR
//UNLOAD   DD UNIT=TAPE,VOL=SER=UNLDTP,
//   LABEL=(,NL),DISP=(OLD,KEEP),
//   DCB=(RECFM=FB,LRECL=2042,BLKSIZE=20420) 
//CARDS    DD *
UNLOAD=ALL
/*

Reloading Programs

Reloading Programs

The following example reloads all programs on tape to the symbolic file:

//UTILITY  JOB
//STEP1    EXEC PGM=IN25UTIL
//STEPLIB  DD DSN=CAI.CAVHLOAD,DISP=SHR
//MESSAGE  DD SYSOUT=*
//RELOAD   DD UNIT=TAPE,
//    VOL=SER=UNLDTP,
//    LABEL=(,NL),
//    DISP=(OLD,KEEP),
//    DCB=(RECFM=FB,LRECL=2042,BLKSIZE=20420) 
//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR
//CARDS    DD *
PASSWORD=12345678
RELOAD=ALL
/*

Printing a Program Listing

Printing a Program Listing

The following example prints the saved listing for program ORDEDIT:

//UTILITY  JOB
//STEP1    EXEC PGM=IN25UTIL
//STEPLIB  DD DSN=CAI.CAVHLOAD,DISP=SHR
//MESSAGE  DD SYSOUT=*
//OUTPUT   DD SYSOUT=A,DCB=(LRECL=133,BLKSIZE=3990)
//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR
//CARDS    DD *
PRINT=ORDEDIT
/*

Reorganizing the Symbolic File

Reorganizing the Symbolic File

The following example reorganizes or changes the size of the symbolic file. This job unloads all programs, deletes and defines the symbolic file, initializes the symbolic file, reloads all programs, and generates a system report.

//UTILITY  JOB
//UNLOAD   EXEC PGM=IN25UTIL
//STEPLIB  DD DSN=CAI.CAVHLOAD,DISP=SHR
//SYSUDUMP DD SYSOUT=*
//MESSAGE  DD SYSOUT=*
//UNLOAD   DD DISP=(,PASS),   
//     UNIT=TAPE,
//     VOL=SER=RELDTAP,
//     LABEL=(,NL),
//     DCB=(RECFM=FB,LRECL=2042,BLKSIZE=20420) 
//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR
//CARDS    DD *
UNLOAD=ALL
/*
//IDCAMS   EXEC PGM=IDCAMS,COND=(0,NE,UNLOAD)
//SYSUT1   DD  UNIT=SYSDA,VOL=SER=SYMVOL,DISP=SHR
      DELETE 'CAI.PROTSYM'
      DEFINE CLUSTER (NAME(CAI.PROTSYM) -
                  VOLUME(SYMVOL)   -
                  FILE(SYSUT1)     -
                  CYLINDERS(20)    -
                  CISZ(2048)       -
                  RECSZ(2040 2040) -
                  SHR(4 4)         -
                  NUMBERED)        -
     DATA (NAME(CAI.PROTSYM.DATA))
/*
//RELOAD   EXEC PGM=IN25UTIL,COND=(0,NE,UNLOAD)
//STEPLIB  DD DSN=CAI.CAVHLOAD,DISP=SHR
//SYSUDUMP DD SYSOUT=*
//MESSAGE  DD SYSOUT=*
//RELOAD   DD DISP=(OLD,KEEP),   
//     UNIT=TAPE,
//     VOL=SER=RELDTAP,
//     LABEL=(,NL),
//     DCB=(RECFM=FB,LRECL=2042,BLKSIZE=20420) 
//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR
//CARDS    DD *
PASSWORD=12345678
INITIALIZE
RELOAD=ALL
REPORT
/*