Archiving and Compressing the CCDB › Overview › Sample JCL and Syntax › Sample z/OS and OS/390 JCL

Sample z/OS and OS/390 JCL

//JOBNAME  JOB YOUR.JOBCARD.INFORMATION
//JOBLIB   DD DISP=SHR,DSN=usercv.loadlib
//         DD DISP=SHR,DSN=ndvrdb.loadlib
//         DD DISP=SHR,DSN=idms.loadlib
//*
//*********************************************************************
//*
//*  JOB:      SAMPARCO
//*
//*  PURPOSE:  ARCHIVE, COMPRESS AND PURGE OLD CHANGE LOG ENTRIES.
//*
//*  STEP:     FUNCTION:
//*  =====     =========
//*
//*  ARCHCOMP  RUNS PROGRAM NDVRARCO.  USERID MUST BE AUTHORIZED.
//*
//*********************************************************************
//*
//ARCHCOMP EXEC PGM=NDVRARCO,REGION=1000K
//*
//*   OUTPUT ARCHIVE FILE: COMPATIBLE WITH CULPRIT REPORTING.
//*   EXAMPLE ASSUMES YOU WILL USE GENERATION DATA GROUPS.
//*
//SYS020   DD DSN=user.xxxxccdb.archgdg (+1),
//         DISP=(,CATLG),UNIT=tape,
//         DCB=(user.gdgmodel,BLKSIZE=14400,LRECL=288,RECFM=FB)
//SYSCTL   DD DISP=SHR,DSN=idms.sysctl
//NDVRLST  DD SYSOUT=*
//NDVRERR  DD SYSOUT=*
//SYSUDUMP DD DUMMY
//SYSIDMS  DD *
DMCL=dmcl-name
DICTNAME=dictionary-name
Other Optional SYSIDMS Parameters
/*
//NDVRIPT  DD *
   SIGNON
     USER = youruserid PASSWORD = yourpswd
          DICTNAME userdict.
   COMPRESS TO AGE nn.
/*