Creating the SCLM control data set

The SCLM VSAM control data set is optional. It contains control information such as the SCLM administrators that have been defined to the SCLM project.

Use the IDCAMS utility to define the control data set. The control data set for the project must be a VSAM cluster. The JCL example shownhere defines the control data set.

Note: This example JCL is called FLM02CNT. It is stored in the ISPF sample library ISP.SISPSAMP.

Figure 1. SCLM Control Data Set Example

//jobname  JOB (wkpkg,dpt,bin),'name'
//* code additional JOBCARD statements here
//*********************************************************************
//*
//*  THIS JCL EXAMPLE DEFINES A VSAM CLUSTER TO BE USED AS THE
//*    SCLM CONTROL DATA SET FOR A GIVEN PROJECT.
//*  THE HIGH LEVEL QUALIFIER MUST BE AN ENTRY IN A VSAM CATALOG
//*    IN ORDER TO CREATE THIS CLUSTER.
//*  TO SPECIFY THE FILE, CHANGE THE DEFINE CLUSTER STATEMENT BELOW
//*    AS FOLLOWS:
//*
//*    1) ADD THE FOLLOWING LINE OF JCL TO DELETE THE VSAM CLUSTER
//*       BEFORE THE ALLOCATION IF THE DATA SET ALREADY EXISTS
//*       AND IT NEEDS TO BE DELETED:
//*       DELETE 'project.control.file' CLUSTER
//*       ADD THIS STATEMENT BETWEEN THE //SYSIN ALLOCATION AND THE
//*       DEFINE CLUSTER LINE OF JCL.
//*    2) CHANGE ALL project.control.file TO THE DESIRED FILE NAME.
//*        THIS VALUE IS SPECIFIED ON THE FLMCNTRL MACRO
//*    3) MODIFY CYLINDERS (PRIMARY SECONDARY)
//*    4) SPECIFY THE VOLUME VVVVVV ON WHICH IT WILL BE ALLOCATED
//*
//*  A JOB STEP IS THEN EXECUTED TO INITIALIZE THE FILE.
//*
//**********************************************************************

//STEP1   EXEC PGM=IDCAMS
//*
//SYSPRINT  DD SYSOUT=H
//*
//SYSIN     DD *
     DEFINE CLUSTER +
        (NAME('project.control.file') +
         CYLINDERS(4 1) +
         VOLUMES(VVVVVV) +
         KEYS(26 0) +
         RECORDSIZE(264 32000) +
         SHAREOPTIONS(4,3) +
         SPEED +
         SPANNED +
         UNIQUE) +
         INDEX(NAME('project.control.file.INDEX') -
         ) +
         DATA(NAME('project.control.file.DATA') -
         CISZ(2048) +
         FREESPACE(50 50) +
         )
  //*
)CM 5665-402 (C) COPYRIGHT IBM CORP 2005