Running the Extract function

FPA runs the Extract function as a standard z/OS® batch job. You must specify an EXEC statement and DD statements that define the input and output data sets in your JCL.

Procedure

  1. Optional: Estimate the region size that is required to run the job.
  2. Specify the EXEC statement in the following format:
    //EXTRACT  EXEC PGM=HFPMAIN0,REGION=rrrrM,
    //         PARM='DBRCGRP=dbrcgrp,GSGNAME=gsgname,IMSPLEX=imsplex'

    For the parameters, see the following table.

    Parameter Description
    DBRCGRP= DBRCGRP is an optional 1- to 3-character parameter that specifies the identifier assigned to a group of DBRC instances (DBRC sharing group) that access the same RECON data set in the IMSplex.
    GSGNAME= GSGNAME is an optional 1- to 8-character parameter that specifies the global service group.
    IMSPLEX= IMSPLEX is an optional 1- to 5-character parameter that specifies the IMSplex group names to share either databases or message queues.
  3. Specify the DD statements to define input data sets and output data sets.
  4. Run the JCL job.

Example

The following figure shows a JCL example for the EXTRACT command.

Figure 1. JCL example for the EXTRACT command
//******************************                                 
//**  EXATRACT THE AREA(S)    **                                 
//******************************                                 
//EXTRACT  EXEC PGM=HFPMAIN0
//*                                                              
//STEPLIB  DD DISP=SHR,DSN=HPFP.SHFPLMD0                         
//         DD DISP=SHR,DSN=IMSVS.SDFSRESL                        
//         DD DISP=SHR,DSN=IMSVS.PGMLIB                          
//IMSACB   DD DISP=SHR,DSN=IMSVS.ACBLIB                          
//HFPPRINT DD SYSOUT=A                                           
//HFPRPTS  DD SYSOUT=A                                           
//*                                                              
//HFPSYSIN DD *                                                  
  GLOBAL DBRC=NO                                                 
  EXTRACT                                                        
      DBD=IVPDB3, 
      EFORMAT=STD
    SELECT 
      SEGMENT=ROOTSEG,
      WHERE=(3:2 GT X'0123')                                
/*                                                               
//DFSIVD3A  DD DISP=SHR,DSN=IMSVS.DFSIVD31      
//DFSIVD3B  DD DISP=SHR,DSN=IMSVS.DFSIVD33   
//OAREA001  DD DISP=SHR,DSN=HPFP.OUTFILE1,SPACE=(CYL,5,1)),
//             UNIT=SYSDA,VOL=HFPVOL
//OAREA002  DD DISP=SHR,DSN=HPFP.OUTFILE2,SPACE=(CYL,5,1)),
//             UNIT=SYSDA,VOL=HFPVOL
//*