z/VSE Sample JCL

This document contains sample JCL of the jobs referred to in the installation procedure.

A. JCLINST1
B. JCLINST2
C. JCLINST4
D. JCLINST5
E. JCLINST6
F. JCLINST7
H. JCLINST9

A. JCLINST1

* $$ JOB JNM=JCLINST1,  ..... JECL CARD INFORMATION .....
* $$ LST DISP=D,CLASS=A
// JOB    JCLINST1      ..... JOB CARD INFORMATION  .....
/*
/* THIS IS THE INSTALLATION JOB1.
/*
/* THIS JOB DOWNLOADS THE DATASETS, AS SUPPLIED ON THE
/* INSTALLATION TAPE, TO DISK FOR USE DURING THE
/* INSTALLATION PROCEDURE.
/*
/* THE FOLLOWING CHANGES HAVE TO BE PERFORMED BEFORE RUNNING THIS JOB
/*
/*   1. INSERT A VALID JECL AND JOB CARD.
/*   2. CHANGE vrs    TO THE VERSION, RELEASE AND SM LEVEL.
/*   3. CHANGE vvvvvv TO THE REQUIRED VOLSER.
/*   4. CHANGE ttttt  TO THE REQUIRED TRACK.
/*   5. CHANGE nnnn   TO THE REQUIRED NUMBER OF TRACKS.
/*   6. CHANGE cuu    TO THE REQUIRED TAPE/CASS UNIT.
/*   7. CHANGE xx     TO THE REQUIRED FILE NUMBER.
/*
/*
// PAUSE   ..... WAIT FOR TAPE UNIT
// ASSGN   SYS006,CUU
// DLBL    SAGLIB,'.......LIBRARY'
// EXTENT  ,VVVVVV,1,0,TTTTTT,NNNN
/*
/* =========================================================
*  RESTORE SAGLIB.COMvrs    DISTRIBUTION COM-PLETE LIBRARY
*                            SOURCE, OBJ and PHASE
/* =========================================================
/*
// MTC     REW,SYS006
// MTC     FSF,SYS006,xx
// EXEC    LIBR
   RESTOR  SUB=SAGLIB.COMvrs : SAGLIB.COMvrs   -
           R=Y TAPE=SYS006
/*

Notes:

The cuu here must be set to an installation unit name relating to the medium device to be used to load the medium.
vrs relates to the Version, Release and SM Level of the Com-plete being installed, for example, the medium volser for Com-plete 5.1.0 would be called COM510.
The volser vvvvvv should be changed to the volume serial number on which you wish the data set to be downloaded.
The track tttttt must be changed to the track for the specified volume.
The number nnnn must be changed to the number of tracks for the specified data set.
For the value of xx, use the relevant number from the Software AG Product Delivery Report.

B. JCLINST2

* $$ JOB   JNM=JCLINST2,   ..... JECL CARD INFORMATION ....
* $$ LST   DISP=D,CLASS=A
// JOB     JCLINST2        ..... JOB CARD INFORMATION .....
/*
/* THIS IS THE Com-plete INSTALLATION JOB2
/*
/* THIS JOB CREATES THE Com-plete USER DATA LIBRARY
/* THE FOLLOWING CHANGES HAVE TO BE PERFORMED BEFORE RUNNING THIS
/* JOB.
/*
/* 1. INSERT A VALID JECL AND JOB CARD
/* 2. CHANGE THE OUT DSN TO THE REQUIRED LIBRARY.
/*
/* ===========================================================
*  CREATE    SUBLIB SAGLIB.COMUSER
/* ===========================================================
/*
// EXEC    LIBR
   DEFINE  SUB=SAGLIB.COMUSER  -
               REPLACE=YES
/*
/&
* $$ EOJ

C. JCLINST4

* $$ JOB   JNM=JCLINST4,   ..... JECL CARD INFORMATION .....
* $$ LST   DISP=D,CLASS=A
// JOB     JCLINST4        ..... JOB CARD INFORMATION  .....
/*
/*   THIS IS Com-plete INSTALLATION JOB4
/*
/*   THIS JOB ALLOCATES AND INITIALISES THE Com-plete SYSTEM DATASETS.
/*
/*   THE FOLLOWING CHANGES HAVE TO BE PERFORMED BEFORE RUNNING THIS
/*   JOB:#
/*
/*
/*   1. INSERT A VALID JECL AND JOB CARD.
/*   2. CHANGE VVVVVV TO THE REQUIRED VOLSER.
/*   3. CHANGE vrs    TO THE Com-plete VERSION, RELEASE AND SM LEVEL.
/*   4. CHANGE CCCC   TO THE REQUIRED NUMBER OF CYLINDERS.
/*   5. CHANGE ?????  TO THE REQUIRED CATALOG FILE NAME.
/*
/* =================================================================
*  CREATE Com-plete COMSYS.USERS    DATA SET (VSAM)
*  CREATE Com-plete COMSYS.CATALOG  DATA SET (VSAM)
/* =================================================================
// EXEC    IDCAMS
      /*   DELETE (COM.COMSYS.USERS)    CLUSTER -   */
      /*           CATALOG (????????)               */
      /*   DELETE (COM.COMSYS.CATALOG)  CLUSTER -   */
      /*           CATALOG (????????)               */

/*                                                    */
  /*   COMSYS.USERS                                     */
  /*                                                    */
   DEFINE  CLUSTER -
       ( NAME (COM.COMSYS.USERS)   -
         INDEXED -
         SHAREOPTIONS (2 3) -
         RECORDSIZE (2041 2041) -
         KEYS (16 0)  -
         SPEED REUSE) -
     DATA -
       ( NAME (COM.COMSYS.USERS.DATA)   -
         CISZ (4096) -
         VOLUMES (VVVVVV) -
         CYLINDERS (0003 03) ) -    
     INDEX -
       ( NAME (COM.COMSYS.USERS.INDEX)  -
         CISZ (2048) -
         VOLUMES (VVVVVV) -
         TRACKS (002 01) ) -
     CATALOG (????????)
  IF LASTCC = 0   -
     THEN
      LISTCAT ENT (COM.COMSYS.USERS) ALL -
         CATALOG (????????)
  /*                                                    */
  /*   COMSYS.CATALOG                                   */
  /*                                                    */


   DEFINE  CLUSTER -
       ( NAME (COM.COMSYS.CATALOG)   -
         INDEXED -
         SHAREOPTIONS (2 3) -
         RECORDSIZE (313 313) -
         KEYS (16 0)  -
         SPEED REUSE) -
     DATA -
       ( NAME (COM.COMSYS.CATALOG.DATA)   -
         CISZ (4096) -
         VOLUMES (VVVVVV) -
         TRACKS  (0005 02) ) -     
     INDEX-
       ( NAME (COM.COMSYS.CATALOG.INDEX)  -
         CISZ (2048) -
         VOLUMES (VVVVVV) -
         TRACKS (001 01) ) -
     CATALOG (????????)
  IF LASTCC = 0   -
     THEN
      LISTCAT ENT (COM.COMSYS.CATALOG) ALL -
         CATALOG (????????)
/*
/*
// IF     $RC > 0 THEN     /*  DEFINE CLUSTER SUCCESSFULL ??? */
// GOTO   $EOJ             /*  NO - GO TO END OF JOB          */
/*
/*
/* =============================================================
*  LOAD COMSYS.BASE        VSAM DATA SET
/* =============================================================
// PAUSE      WAITING FOR TAPE UNIT
// ASSGN      SYS004,???                  <------ CUU FOR TAPE UNIT
// MTC        REW,SYS004
// TLBL       INUSE,'COMSYS.USERS',,,,3
// TLBL       INCAT,'COMSYS.CATALOG',,,,4
/*
// DLBL       OUTUSE,'COM.COMSYS.USERS',,VSAM,CAT=COMCAT
// DLBL       OUTCAT,'COM.COMSYS.CATALOG',,VSAM,CAT=COMCAT
/*
// DLBL      COMCAT,'?????????',,VSAM     <----- VSAM CATALOG NAME
/*
// EXEC      IDCAMS
   /* ===============================================  */
   /*     LOAD COMSYS.BASE                             */
   /* ===============================================  */
   REPRO  INFILE (INBAS -
             ENVIRONMENT -
                (PDEV  (2400)     -    /*  TAPE INPUT  */
                 RECFM (VARBLK)   -
                 BLKSZ (16384) -
                 REWIND   ))      -
          OUTFILE (OUTBAS)  REPLACE REUSE

   /* ================================================ */
   /*     LOAD COMSYS.USERS                            */
   /* ================================================ */
   REPRO  INFILE (INUSE -
             ENVIRONMENT -
                (PDEV  (2400)     -    /*  TAPE INPUT  */
                 RECFM (VARBLK)   -
                 BLKSZ (16384) -
                 REWIND   ))      -
          OUTFILE (OUTUSE)  REPLACE REUSE
   /* ================================================ */
   /*     LOAD COMSYS.CATALOG                          */
   /* ================================================ */
   REPRO  INFILE (INCAT -
             ENVIRONMENT -
                (PDEV  (2400)     -    /*  TAPE INPUT  */
                 RECFM (VARBLK)   -
                 BLKSZ (16384) -
                 REWIND   ))      -
          OUTFILE (OUTCAT)  REPLACE REUSE
/*
/&
* $$ EOJ

D. JCLINST5

* $$ JOB   JNM=JCLINST5,   ..... JECL CARD INFORMATION .....
* $$ LST   DISP=D,CLASS=A
// JOB     JCLINST5        ..... JOB CARD INFORMATION  .....
/*
/*   THIS IS THE Com-plete INSTALLATION JOB5.
/*
/*   THIS JOB ALLOCATES AND INITIALISES THE Com-plete CAPTURE DATA SETS
/*
/*   THE FOLLOWING CHANGES HAVE TO BE PERFORMED BEFORE RUNNING THIS JOB
/*
/*   1. INSERT A VALID JOBCARD.
/*   2. CHANGE VVVVVV TO THE REQUIRED VOLSER(S).
/*   3. CHANGE ?????  TO THE REQUIRED CATALOG FILE NAME.
/*
// EXEC    IDCAMS
   /*  DELETE (COM.VSAM.CAPTUR1) cluster -  */
   /*      CATALOG (????????)               */
   /*  DELETE (COM.VSAM.CAPTUR2) cluster -  */
   /*      CATALOG (????????)               */
 DEFINE CLUSTER -
        ( NAME (COM.VSAM.CAPTUR1) -
          NONINDEXED -
          SHAREOPTIONS (1) -
          RECORDSIZE (0032 4096) -
          SPEED REUSE ) -
        DATA -
        ( NAME (COM.VSAM.CAPTUR1.DATA) -
          CISZ (8192) -
          VOLUMES (VVVVVV) -
          CYLINDERS (3 0)) -
        CATALOG (????????)
 DEFINE CLUSTER -
        ( NAME (COM.VSAM.CAPTUR2) -
          NONINDEXED -
          SHAREOPTIONS (1) -
          RECORDSIZE (0032 4096) -
          SPEED REUSE ) -
        DATA -
       ( NAME (COM.VSAM.CAPTUR2.DATA) -
          CISZ (8192) -
          VOLUMES (VVVVVV) -
          CYLINDERS (3 0)) -
        CATALOG (????????)
/*
*   INIT CAPTURE FILES
/*
// DLBL      COMCAT,'????????',,VSAM          <---- VSAM CATALOG NAME
/*
// DLBL      CAPTUR1,'COM.VSAM.CAPTUR1',,VSAM,CAT=COMCAT
// DLBL      CAPTUR2,'COM.VSAM.CAPTUR2',,VSAM,CAT=COMCAT
// LIBDEF    PHASE,SEARCH=SAGLIB.COMvrs,TEMP
// EXEC      TUSACAPT,SIZE=220K
/*
/&
* $$ EOJ

E. JCLINST6

* $$ JOB   JNM=JCLINST6,   ..... JECL CARD INFORMATION .....
* $$ LST   DISP=D,CLASS=A
// JOB     JCLINST6        ..... JOB CARD INFORMATION  .....
/*
/*   THIS IS THE Com-plete INSTALLATION JOB6.
/*
/*   THIS JOB ALLOCATES AND INITIALISES THE Com-plete SD-FILE DATA SET
/*
/*   THE FOLLOWING CHANGES HAVE TO BE PERFORMED BEFORE RUNNING THIS JOB
/*
/*   1. INSERT A VALID JOBCARD.
/*   2. CHANGE VVVVVV TO THE REQUIRED VOLSER.
/*   3. CHANGE ?????  TO THE REQUIRED CATALOG FILE NAME.
/*
/*
/*
/* =================================================================
*  DEFINE Com-plete COM.VSAM.SDFILE DATA SET
/* =================================================================
// EXEC    IDCAMS
      /*   DELETE (COM.VSAM.SDFILE)     CLUSTER -   */
      /*           CATALOG (????????)               */
   DEFINE  CLUSTER -
       ( NAME (COM.VSAM.SDFILE)   -
         NUMBERED -
         SHAREOPTIONS (2 3) -
         RECORDSIZE (4080 4080) -
         SPEED REUSE) -
     DATA -
       ( NAME (COM.VSAM.SDFILE.DATA)   -
         CISZ (4096) -
         VOLUMES (VVVVVV) -
         CYLINDERS (0020 00) ) -
     CATALOG (????????)
/*
/* =============================================================
*  INIT   Com-plete COM.VSAM.SDFILE
/* =============================================================
// LIBDEF     PHASE,SEARCH=SAGLIB.COMvrs,TEMP
// ASSGN      SYS003,SYSLST
/*
// DLBL       COMCAT,'????????',,VSAM          <---- VSAM CATALOG NAME
/*
// DLBL       COMSD,'COM.VSAM.SDFILE',,VSAM,CAT=COMCAT
// EXEC       TUSDUTIL,SIZE=220K,PARM='INIT,SDFILES=0200,DMPSPAC=8'
/*
/* =============================================================
*  DISPLAY Com-plete COM.VSAM.SDFILE
/* =============================================================
// EXEC    IDCAMS
      LISTCAT ENT (COM.VSAM.SDFILE) ALL -
         CATALOG (????????)
/*
/&
* $$ EOJ

F. JCLINST7

* $$ JOB   JNM=JCLINST7,   ..... JECL CARD INFORMATION .....
* $$ LST   DISP=D,CLASS=A
// JOB     JCLINST7        ..... JOB CARD INFORMATION  .....
/*
/*   THIS IS THE Com-plete INSTALLATION JOB7.
/*
/*   THIS JOB ALLOCATES AND INITIALISES THE Com-plete
/*   PRINTOUT-SPOOL DATA SET 
/*
/*   THE FOLLOWING CHANGES HAVE TO BE PERFORMED BEFORE RUNNING THIS JOB
/*
/*   1. INSERT A VALID JOBCARD.
/*   2. CHANGE VVVVVV TO THE REQUIRED VOLSER.
/*   3. CHANGE ?????  TO THE REQUIRED CATALOG FILE NAME.
/*
/*
/* =================================================================
*  DEFINE Com-plete COM.VSAM.SPOOL DATA SET
/* =================================================================
// EXEC    IDCAMS
      /*   DELETE (COM.VSAM.SPOOL)    CLUSTER -   */
      /*           CATALOG (????????)               */
   DEFINE  CLUSTER -
       ( NAME (COM.VSAM.SPOOL)  -
         NUMBERED -
         SHAREOPTIONS (2 3) -
         RECORDSIZE (4080 4080) -
         SPEED REUSE) -
     DATA -
       ( NAME (COM.VSAM.SPOOL.DATA)   -
         CISZ (4096) -
         VOLUMES (VVVVVV) -
         CYLINDERS (0010 00) ) -
     CATALOG (????????)
/*
/* =============================================================
*  INIT   Com-plete COM.VSAM.SPOOL
/* =============================================================
// LIBDEF     PHASE,SEARCH=SAGLIB.COMvrs,TEMP
// ASSGN      SYS003,SYSLST
/*
// DLBL       COMCAT,'????????',,VSAM          <---- VSAM CATALOG NAME
/*
/* RECS= NUMCYL * NUMTRC * NUMREC
/* ==============================
/*       WHERE:
/*              NUMCYL = NUMBER OF CYLINDER
/*              NUMTRC = NUMBER OF TRACKS PER CYLINDER
/*              NUMREC = NUMBER CONTROLINTERVAL PER TRACK
/*
/*
// DLBL       COMSPL,'COM.VSAM.MSGLIB',,VSAM,CAT=COMCAT
// EXEC       TUMSUTIL,SIZE=220K
INIT RECS=1500
/*

/* =============================================================
*  DISPLAY Com-plete COM.VSAM.SPOOL
/* =============================================================
// EXEC    IDCAMS
      LISTCAT ENT (COM.VSAM.SPOOL) ALL -
         CATALOG (????????)
/*
/&
* $$ EOJ

H. JCLINST9

* $$ JOB   JNM=JCLINST9,   ..... JECL CARD INFORMATION .....
* $$ LST   DISP=D,CLASS=A
// JOB     JCLINST9        ..... JOB CARD INFORMATION  .....
/*
/*   THIS IS THE Com-plete INSTALLATION JOB9
/*
/*   DEFINE THE VTAM APPLICATION FOR Com-plete
/*
/*   THE FOLLOWING CHANGES HAVE TO BE PERFORMED BEFORE RUNNING THIS JOB
/*
/*   1. INSERT A VALID JOBCARD.
/*   2. CHANGE THE VTAM APPLICATION ID TO THE REQUIRED NAME.
/*
/*
/* =================================================================
*  DEFINE THE VTAM APPLICATION FOR Com-plete
/* =================================================================
// EXEC    LIBR,PARM='MSHP'
   ACC  SUB=PRD2.CONFIG
   CATALOG  APPLCOM.B   R=Y
APPLCOM  VBUILD TYPE=APPL
COMPLETE    APPL   AUTH=(ACQ,PASS),APPC=YES
/+
/*
/&
* $$ EOJ