Example 1: Running ODE with run-level control

The following figure shows example JCL for extracting data from multiple online areas. With run-level control, there is one set of selection criteria for all areas (the FPXIN DD statement or FPXCTL DD statement) and one output for all areas.

The format of the output file is standard format, and every segment defined in the DBD is extracted.

Figure 1. Run-level control using FPXIN DD

//EXTRACT  EXEC FPUTIL,REGION=1024K,DBD=dbdname,IMSID=IMS1
//STEPLIB  DD DISP=SHR,DSN=HPFP.SHFPLMD0
//         DD DISP=SHR,DSN=IMSVS.SDFSRESL
//FPXOFILE DD SYSOUT=*
//FPXIN    DD       *
     EXTRACT AREA=(AREA1,AREA2,AREA3) 
     FPXCTL OUTPUT=STD
     OUTPUT SEG=ALL
/*

The SYSPRINT and SYSUDUMP DD statements are coded in the FPUTIL cataloged procedure.

This example JCL stream runs similarly to the following JCL stream, which is for ODE with SYSIN and FPXCTL DD.

Figure 2. Run-level control using SYSIN and FPXCTL DD

//EXTRACT  EXEC FPUTIL,REGION=1024K,DBD=dbdname,IMSID=IMS1
//STEPLIB  DD DISP=SHR,DSN=HPFP.SHFPLMD0
//         DD DISP=SHR,DSN=IMSVS.SDFSRESL
//FPXOFILE DD DISP=(NEW,CATLG),DSN=HPFP.FPXOFILE,UNIT=SYSDA,
//         SPACE=(CYL,(5,5),RLSE)
//SYSOUT   DD SYSOUT=*
//FPXCTL   DD       *
FPXCTL OUTPUT=STD
OUTPUT SEG=ALL
/*
//SYSIN    DD       *
     TYPE    TOOL
     EXIT    EXTRACT
     AREA    AREA1
     GO
     EXIT    EXTRACT
     AREA    AREA2
     GO
     EXIT    EXTRACT
     AREA    AREA3
     GO
/*