Running DEDB Reload

The reload program (FABCUR3) is run as one or more standard z/OS® batch jobs. You need to specify an EXEC statement and DD statements that define the input and output data sets in your JCL.

Procedure

  1. Estimate the region size required to run the function.
  2. Code the JCL for reload (DFSORT, IDCAMS, and FABCUR3) job steps.
  3. Specify the DD statements to define input data sets, output data sets, and how the function is run.
  4. Run the JCL.
    Note: FPB allows you to specify site default parameters for DEDB Reload (FABCUR3). Macros and sample JCL streams are provided to generate the site default table.

Example

The following figure shows example JCL for DEDB reload.

Figure 1. Example JCL for DEDB reload (FABCPRD)
//STEP2A   EXEC PGM=SORT
//SYSOUT   DD SYSOUT=A
//SYSIN    DD DSN=HPFP.UR.FILEzzz.SORTCARD,
//            DISP=(OLD,DELETE,KEEP)
//SORTIN   DD DSN=HPFP.UR.FILEzzz.SEGDATA,
//            DISP=(OLD,DELETE,KEEP)
//SORTOUT  DD DSN=HPFP.UR.FILEzzz.SORTED.SEGDATA,
//            DISP=(NEW,CATLG,DELETE),UNIT=TAPE
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(???,??))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(???,??))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(???,??))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(???,??))
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(???,??))
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(???,??))
//*
//*
//STEP3A   EXEC PGM=IDCAMS,REGION=1024K
//*********************************************************
//**  DELETE AND DEFINE AREA AND WORK DATA SET DATASETS  **
//*********************************************************
//SYSPRINT DD SYSOUT=A
//SYSIN    DD *,DCB=BLKSIZE=80
   ... control statements ...
/*
//STEP4A   EXEC PGM=FABCUR3,REGION=1024K
//******************************
//**  RELOAD THE AREA(S)      **
//******************************
//STEPLIB  DD DSN=HPFP.SHFPLMD0,DISP=SHR 
//SYSPRINT DD SYSOUT=A
//DURAUDIT DD SYSOUT=A
//SYSIN    DD *
   ... control statements ...
/*
//DURDBDFN DD DSN=HPFP.UR.DURDBDFN,
//            DISP=(OLD,DELETE,KEEP)
//DURIWRK  DD DSN=VSAM.RUNn.WORK,
//            DISP=OLD
//DURDATA  DD DSN=HPFP.UR.FILEzzz.SORTED.SEGDATA,
//            DISP=(OLD,DELETE,KEEP)
//areaxxx  DD DSN=VSAM.AREAxxx,DISP=OLD