Section
1, Task 3: Create a Test PDB and
Process, Reduce, and Report on Data Action 1: Create your test PDB |
|
Allocate
Review the model job's job steps
//CMQSTART JOB (accounting info),'CPE Quick Start', #1 // MSGLEVEL=(1,1),TIME=20,REGION=32M,NOTIFY= . . #2 . //******************************************************************* //* ** //* Delete the old PDB data libraries, to make this job re-runnable.* //* ** //******************************************************************* //CLEANUP EXEC PGM=IDCAMS #3 //SYSPRINT DD SYSOUT=* //SYSIN DD DATA,DLM='$$' DELETE 'YOUR.NEWPDB.*' SET MAXCC=0 $$ //******************************************************************* //* ** //* Allocate IT Service Vision for MVS Performance Data Base data ** //* libraries. ** //* ** //******************************************************************* //ALLOC EXEC PGM=IEFBR14 #4 //DETAIL DD DSN=YOUR.NEWPDB.DETAIL,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(120,20)),UNIT=SYSDA #5 //DAY DD DSN=YOUR.NEWPDB.DAY,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(99,25)),UNIT=SYSDA //WEEK DD DSN=YOUR.NEWPDB.WEEK,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(30,25)),UNIT=SYSDA //MONTH DD DSN=YOUR.NEWPDB.MONTH,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(99,10)),UNIT=SYSDA //YEAR DD DSN=YOUR.NEWPDB.YEAR,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(20,5)),UNIT=SYSDA //ADMIN DD DSN=YOUR.NEWPDB.ADMIN,DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(15,10)),UNIT=SYSDA //COLLECT DD DSN=YOUR.NEWPDB.COLLECT,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(9,9)),UNIT=SYSDA //PDBWORK DD DSN=YOUR.NEWPDB.PDBWORK,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(180,80)),UNIT=SYSDA
Notes:
Warning: This job step will delete all datasets that started with this prefix, so be sure that you have no other datasets that begin with the same qualifiers!
In addition to the changes mentioned in the notes above, change YOUR.NEWPDB to the name that you want to use for your test PDB.
For example,
Collector | Test PDB Name |
DB2 | YOUR.TESTDB2.PDB |
Review this job step.
You could use this job step to invoke IT Service Vision and then invoke the IT Service Vision data dictionary macro to add the tables to the PDB.
//DDUTL EXEC SAS,WORK='42000,6300', // CONFIG='your.itsv.CPMISC(CMCONFIG)' #1 //SYSIN DD DATA, DLM='$$'
*------------------------------------------------------------* * IT Service Vision will not run unless %CPSTART has been * * executed. %CPSTART allocates the IT Service Vision * * software and the PDB. * * The ROOTSERV= and SHARE= parameters should be only used if * * SAS/SHARE is being used with IT Service Vision. * * If the _RC= parameter is nonzero from %CPSTART * * check the explanatory message in the SAS log. * *------------------------------------------------------------*;
/* Verify root= and pdb= parameters in the following */ %CPSTART (MODE=BATCH, SYSTEM=MVS, ROOT='your.itsv.', #2 ROOTSERV=, PDB='your.test.pdb.', #3 DISP=OLD, SHARE=N/A, _RC=cpstrc);
%PUT CPSTART return code is &cpstrc;
*-------------------------------------------------------------------* * The %CPCAT and the %CPDDUTL macro can be used for maintaining the * * IT Service Vision data dictionary * *-------------------------------------------------------------------*;
%CPCAT; CARDS4; #4 add table name=XRMFINT; #5 add table name=XTY70; add table name=XTY71; add table name=XTY72; add table name=XTY74; ;;;; /* these semicolons must begin in col. 1 */ %CPCAT (CAT=WORK.CPDDUTL.ADDTABLE.SOURCE); #6 %CPDDUTL (ENRTYNAM=WORK.CPDDUTL.ADDTABLE.SOURCE, LIST=Y); #7 $$
Notes:
Define the start of the week for your test PDB. The default is Sunday. If your site uses a different start of week, insert the following code after the above code:
%cppdbopt(cpsow=start_of_week);
For example, this call
%cppdbopt(cpsow=Monday);
will set the start of week in the PDB to Monday. The values MUST be specified as day name, not day number, and the day names cannot be abbreviated. Invalid values are thrown away; any badly specified days will default to Sunday.