Allocate the UPSTREAM for FDRPAS required execution data sets


Once the installation data sets are received you will need to create the files required by UPSTREAM for FDRPAS to execute. Follow the steps below to complete the installation.

Edit member PASINST in the Installation Control Library (ICL) downloaded previously (see Sample PASINIT ICL Member). The sample job contains 3 steps:

  1. The BLDZEROS step creates a temporary file containing a record of all zeros to prime the repository files.
  2. The DEFINE step runs the supplied USTCAMS utility to define the 2 keyed repository files required by UPSTREAM for FDRPAS. These are the USTCATLG and USTFILEI control files. By default, these files are defined as IAM files.
  3. Finally, the CONFIG step allocates a file and runs the UPSTREAM configurator program to generate a basic configuration required to run UPSTREAM for FDRPAS.

Tailor this job specifying valid data set names and allocation values conforming to your installation requirements:

  • Specify the JOBLIB data set name of the Upstream load library you downloaded previously.
  • In the DEFINE step, do not uncomment the DELETE statements unless you are rerunning this step. Specify valid data set names and allocation information such as the STORCLAS or VOLUME values for the 2 UPSTREAM control files in the DEFINE and REPRO statements.
  • In the CONFIG step, specify a valid data set name to generate a basic configuration for UPSTREAM for FDRPAS. You also must specify a valid TCP/IP TCPPORT number if you don't use the UPSTREAM for FDRPAS default value of 2017 and include the name of your TCP/IP started task under z/OS as the TCPNAME.


Warning

Important

These 3 data set names need to be specified later when you Copy-and-update-the-USTPAS-UPSTREAM-for-FDRPAS-PROC to your system PROCLIB).

Once you have completed tailoring the sample PASINST job, you can run it and check the results. In the event you need to rerun the job, you will first need to delete the 3 files that it created (the USTCATLG, USTFILEI, and USTCONFG files). Delete these 3 files and rerun the job as needed.

Sample PASINIT ICL Member

//PASINST   JOB
//JOBLIB    DD DISP=SHR,DSN=ustpas.load.library <<<=== CHANGE THIS
//****************************************************
//BLDZEROS  EXEC PGM=IEBDG
//SYSPRINT  DD SYSOUT=*
//ZEROS     DD DSN=&&ZEROFILE,UNIT=SYSDA,SPACE=(TRK,(1)),
//             DCB=(DSORG=PS,RECFM=V,LRECL=60,BLKSIZE=64),
//             DISP=(NEW,PASS,DELETE)
//SYSIN     DD *
  DSD       OUTPUT=(ZEROS)
  CREATE    QUANTITY=1,FILL=X'00'
  END
//****************************************************
//DEFINE    EXEC PGM=USTCAMS,COND=(0,NE)
//INFILE    DD DSN=&&ZEROFILE,DISP=(OLD,PASS)
//SYSPRINT  DD SYSOUT=*
//USTINFO   DD SYSOUT=*
//SYSIN     DD *
/*DELETE    <hlq>.USTPAS.$UST.CATALOG */
/*DELETE    <hlq>.USTPAS.$UST.FILEINFO */
  DEFINE    CLUSTER (NAME(hlq.USTPAS.$UST.CATALOG) - <<<=== CHANGE THIS
            CYLINDERS(20 1) -
            STORCLAS(storclas) /*<<<=== CHANGE THIS*/ -
            FSPC(0 0) -
            INDEXED -
            KEYS(18 0) -
            RECORDSIZE(50 500) -
            SHAREOPTIONS(2 3) -
            REUSE -
            RECOVERY)
  DEFINE    CLUSTER (NAME(hlq.USTPAS.$UST.FILEINFO) - <<<=== CHANGE THIS
            CYLINDERS(5) -
            STORCLAS(<storclas>) /*<<<=== CHANGE THIS*/ -
            FSPC(0 0) -
            INDEXED -
            KEYS(50 0) -
            RECORDSIZE(136 500) -
            SHAREOPTIONS(2 3) -
            REUSE -
            RECOVERY -
            BUFSP(380000) )
  REPRO     INFILE(INFILE) -
            ODS(<hlq>.USTPAS.$UST.CATALOG) <<<=== CHANGE THIS
  REPRO     INFILE(INFILE) -
            ODS(<hlq>.USTPAS.$UST.FILEINFO) <<<=== CHANGE THIS
//USTOVRID  DD *
   CREATE   DD=&ALLDD,B=2,VARO=YES,REL=NO,PRO=YES
//****************************************************
//CONFIG    EXEC PGM=USTCONFG,COND=(0,NE)
//USTCFGIN  DD DUMMY
//USTLOG    DD SYSOUT=*
//USTCONFG  DD DSN=<hlq>.UPSTREAM.USTPAS.CONFIG, <<<=== CHANGE THIS
//             DCB=(DSORG=PS,RECFM=FB,LRECL=120,BLKSIZE=2400),
//             SPACE=(TRK,(1)),STORCLAS=storclas, <<<=== CHANGE THIS
//             DISP=(,CATLG)
//SYSPRINT  DD SYSOUT=*
//USTSRCE   DD *
  MAIN      TCPPORT=2017,TCPNAME=<tcpname>, <<<=== CHANGE THIS
            APPLID=NONE,DASDBLK=27998,SORTUNIT=SYSDA,SUBSYS=UPSTREAM
            MAXTASKS=500
  PRINT
/*
//


 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*

BMC Compuware FDRPAS 05.04