Step 7 – Create User Data Sets

Customization › Customization Steps › Step 7 – Create User Data Sets

Step 7 – Create User Data Sets

After selecting Step 7, the CUSTJT07 job to create work data sets is displayed.

//JOBNAME JOB(ACCOUNT),'PMA',CLASS=A,
//             MSGLEVEL=(1,1),MSGCLASS=H,NOTIFY=&SYSUID,REGION=0M
//*
//*
//*
//********************************************************************
//* CUSTJT07:   CREATE PMA USER DATA SETS                            *
//*                                                                  *

//* COPYRIGHT (C) 2012 CA. ALL RIGHTS RESERVED.
//* COPYRIGHT (C) TRILOG AG.
//********************************************************************
//*
//*********************************************************************
//*    CREATE PMA USER EXEC LIBRARY
//*********************************************************************
//APCEXEC EXEC PGM=IEFBR14
//EXEC    DD DISP=(NEW,CATLG),
//           DSN=CAMAT.PMA.EXEC,
//           SPACE=(TRK,(1,2,5)),
//           DCB=(RECFM=FB,LRECL=80),
//           UNIT=SYSDA,VOL=SER=VOL001
//*|
//*********************************************************************
//*    CREATE PMA USER CNTL LIBRARY
//*********************************************************************
//APCCNTL EXEC PGM=IEFBR14
//CNTL    DD DISP=(NEW,CATLG),
//           DSN=CAMAT.PMA.CNTL,
//           SPACE=(CYL,(1,1,30)),
//           DCB=(RECFM=FB,LRECL=80),
//           UNIT=SYSDA,VOL=SER=VOL001
//*
//*********************************************************************
//*    CREATE PMA BATCH MEASUREMENT INVOKE REQUEST FILE
//*********************************************************************
//APCADDRQ EXEC PGM=IEFBR14
//NEW      DD DISP=(NEW,CATLG),
//            DSN=CAMAT.PMA.ADDRQ,
//            UNIT=SYSDA,SPACE=(CYL,(1,2)),
//            VOL=SER=VOL001,
//            DCB=(DSORG=PS,LRECL=80,RECFM=FB)
//*


//*********************************************************************
//*    CREATE PMA BATCH MEASUREMENT INVOKE DELETE LAST REQUEST FILE
//*********************************************************************
//APCDELRQ EXEC PGM=IEFBR14
//NEW      DD DISP=(NEW,CATLG),
//            DSN=CAMAT.PMA.DELRQ,
//            UNIT=SYSDA,SPACE=(CYL,(1,2)),
//            VOL=SER=VOL001,
//            DCB=(DSORG=PS,LRECL=80,RECFM=FB)
//*
//*********************************************************************
//*    CREATE PMA BATCH MEASUREMENT INVOKE DELETE NEW REQUEST FILE
//*********************************************************************
//APCDQTOM  EXEC PGM=IEBGENER
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DISP=SHR,
//            DSN=CAMAT.PMA.CEETSAMP(CUSTBLAN)
//SYSUT2   DD DISP=(NEW,CATLG),
//            DSN=CAMAT.PMA.DELRQTOM,
//            UNIT=SYSDA,SPACE=(CYL,(1,2)),
//            VOL=SER=VOL001,
//            DCB=(DSORG=PS,LRECL=80,RECFM=FB)
//*
//*********************************************************************
//*    CREATE PMA CICS MEASUREMENT INVOKE DELETE LAST REQUEST FILE
//*********************************************************************
//APCCICDQ  EXEC PGM=IEFBR14
//NEW      DD DISP=(NEW,CATLG),
//            DSN=CAMAT.PMA.CICRQ,
//            UNIT=SYSDA,SPACE=(CYL,(1,2)),
//            VOL=SER=VOL001,
//            DCB=(DSORG=PS,LRECL=80,RECFM=FB)
//*
//*********************************************************************
//*    CREATE PMA IMS MEASUREMENT INVOKE DELETE LAST REQUEST FILE
//*********************************************************************
//*
//APCIMSDQ  EXEC PGM=IEFBR14
//NEW      DD DISP=(NEW,CATLG),
//            DSN=CAMAT.PMA.IMSRQ,
//            UNIT=SYSDA,SPACE=(CYL,(1,2)),
//            VOL=SER=VOL001,
//            DCB=(DSORG=PS,LRECL=80,RECFM=FB)
//*

//*********************************************************************
//*    CREATE PMA BATCH JOB LOG FILE
/*********************************************************************
//APCLOG  EXEC PGM=IEBGENER
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DISP=SHR,
//            DSN=CAMAT.PMA.CEETSAMP(CUSTBLAN)
//SYSUT2   DD DISP=(NEW,CATLG),
//            DSN=CAMAT.PMA.LOG,
//            UNIT=SYSDA,SPACE=(CYL,(1,2)),
//            VOL=SER=VOL001,
//            DCB=(DSORG=PS,LRECL=80,RECFM=FB)
//*
//*********************************************************************
//*    CREATE PMA SMF SPOOL GDG BASE ENTRY
//*********************************************************************
//APCGDG   EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DEFINE GENERATIONDATAGROUP -
        (NAME(CAMAT.PMA.SPLGDG) -
        NOEMPTY -
        SCRATCH -
        LIMIT(3)
/*
//*-----------------------------------------------------------------*
//*  CREATE FIRST PMA SMF SPOOL FILE                                *
//*-----------------------------------------------------------------*
//STEP0    EXEC PGM=IEBGENER
//SYSUT1   DD DUMMY,
//            DCB=(RECFM=FB,LRECL=360,BLKSIZE=30600)
//SYSUT2   DD DSN=CAMAT.PMA.SPLGDG(+1),
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(1)),UNIT=SYSDA,
//            VOL=SER=VOL001,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=360,BLKSIZE=30600)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//*
//********************************************************************
//*    CREATE PMA SMF SPOOL WORK DATASET
//********************************************************************
//APCWRK   EXEC PGM=IEFBR14
//DSCBMOD  DD DISP=(NEW,CATLG),
//            DSN=CAMAT.PMA.SPLWRK,
//            UNIT=SYSDA,SPACE=(TRK,(5,1)),
//            VOL=SER=VOL001,
//            DCB=(DSORG=PS,LRECL=80,RECFM=FB)
//*

//*
//********************************************************************
//*    CREATE PMA SMF SPOOL MODEL DSCB ENTRY
//********************************************************************
//APCDSCB  EXEC PGM=IEFBR14
//DSCBMOD  DD DISP=(NEW,CATLG),
//            DSN=CAMAT.PMA.SPLDSCB,
//            UNIT=SYSDA,SPACE=(TRK,0),
//            VOL=SER=VOL001,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=400,BLKSIZE=30800)
//*
//*--------------------------------------------------------------------
//*    ALLOC AND INIT THE PMA SERVER DMDS FILE
//*--------------------------------------------------------------------
//DMDSALOC EXEC  PGM=IEFBR14
//PDSDEF   DD DSN=CAMAT.PMA.DMDS,
//            DISP=(,CATLG),UNIT=SYSDA,
//            DCB=(RECFM=F,LRECL=25600,BLKSIZE=25600),
//            VOL=SER=VOL001,
//            SPACE=(25600,(180,40,20))
//*
//DMDSINIT EXEC  PGM=IEBDG
//SYSPRINT DD SYSOUT=*
//SEQOUT   DD DISP=SHR,DSN=CAMAT.PMA.DMDS(S001)
//SYSIN    DD *
  DSD OUTPUT=(SEQOUT)
  CREATE QUANTITY=5,FILL=X'00'
/*
//*
//*--------------------------------------------------------------------
//*    CREATE PMA SERVER DMDS COMMUNICATION MEMBER
//*--------------------------------------------------------------------
//DMDSCOPY EXEC  PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//I        DD DISP=SHR,DSN=CAMAT.PMA.DMDS
//O        DD DISP=SHR,DSN=CAMAT.PMA.DMDS
//SYSIN    DD *
  COPY I=I,O=O
    SELECT MEMBER=((S001,S002,R))
 COPY I=I,O=O
    SELECT MEMBER=((S002,S003,R))
  COPY I=I,O=O
    SELECT MEMBER=((S003,S004,R))
  COPY I=I,O=O
    SELECT MEMBER=((S004,S005,R))
  COPY I=I,O=O
    SELECT MEMBER=((S005,S006,R))
  COPY I=I,O=O
    SELECT MEMBER=((S006,S007,R))
  COPY I=I,O=O
    SELECT MEMBER=((S007,S008,R))
  COPY I=I,O=O
    SELECT MEMBER=((S008,S009,R))
  COPY I=I,O=O
    SELECT MEMBER=((S009,S010,R))
  COPY I=I,O=O
    SELECT MEMBER=((S010,S011,R))
 COPY I=I,O=O

    SELECT MEMBER=((S011,S012,R))
  COPY I=I,O=O
    SELECT MEMBER=((S012,S013,R))
  COPY I=I,O=O
    SELECT MEMBER=((S013,S014,R))
  COPY I=I,O=O
    SELECT MEMBER=((S014,S015,R))
  COPY I=I,O=O
    SELECT MEMBER=((S015,S016,R))
  COPY I=I,O=O
    SELECT MEMBER=((S016,S017,R))
  COPY I=I,O=O
    SELECT MEMBER=((S017,S018,R))
  COPY I=I,O=O
    SELECT MEMBER=((S018,S019,R))
  COPY I=I,O=O
    SELECT MEMBER=((S019,S020,R))
  COPY I=I,O=O
    SELECT MEMBER=((S020,S021,R))
  COPY I=I,O=O
    SELECT MEMBER=((S021,S022,R))
  COPY I=I,O=O
    SELECT MEMBER=((S022,S023,R))
  COPY I=I,O=O
    SELECT MEMBER=((S023,S024,R))
  COPY I=I,O=O
    SELECT MEMBER=((S024,S025,R))
  COPY I=I,O=O
    SELECT MEMBER=((S025,S026,R))
  COPY I=I,O=O
    SELECT MEMBER=((S026,S027,R))
  COPY I=I,O=O
    SELECT MEMBER=((S027,S028,R))
  COPY I=I,O=O
    SELECT MEMBER=((S028,S029,R))
  COPY I=I,O=O
    SELECT MEMBER=((S029,S030,R))
  COPY I=I,O=O
    SELECT MEMBER=((S030,S031,R))
  COPY I=I,O=O
    SELECT MEMBER=((S031,S032,R))
/*
/*

//********************************************************************
//*    WRITE PMA CUSTOMIZATION NOTIFICATION MESSAGE
//********************************************************************
//*
//NOTIFY   EXEC PGM=IEBGENER,COND=(0,NE)
//SYSUT1   DD DISP=SHR,
//            DSN=CAMAT.PMA.CUST(CUST$JOB)
//         DD *
2011/02/22 07:35  #7 CUSTJT07   CREATE PMA USER DATA SETS - SUCCESSFUL
//SYSUT2   DD DISP=SHR,
//            DSN=CAMAT.PMA.CUST(CUST$JOB)
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*

Review the JCL in the CUSTJT07 job.
Choose one of the following actions:
- Submit the job to start the creation of the work data sets. After the job has finished, press Enter to leave the job display.
  After the succesful execution of job CUSTJT07, Step 7 is marked as COMPLETED, as shown following, and you can continue with Step 8.
```
CUSTPT00 ------------------- PMA V90 Customization Dialog ---------------
 COMMAND ===> 8
      Step                                                Status
      ===============================================================
       7 Create PMA User Data Sets                        COMPLETED
```
- Specify CANCEL to go back to the Customization Main Menu without saving any entered value. The status of Step 7 stays NOT COMPLETED.