!ECHO ON
!.     SET F:11 THRU F:20 TO DATA BASE AREAS BEFORE XEQ
!DONT ECHO
!.STEP 2.  EXTRACT SET INFORMATION FROM EDMS DATA BASE AREAS
!.
!.          THIS JOB STEP MAY REQUIRE DISK SPACE FOR EVAL_WF2
!.          AND EVAL_WF3 THAT IS AS LARGE AS THE DATA BASE.
!.          FURTHERMORE THIS JOB STEP MAY REQUIRE A LARGE
!.          AMOUNT OF CPU TIME.  THEREFORE THIS JOB STEP MAY
!.          BE BEST RUN AS A SEPARATE JOB WITH OUTPUT TO TAPES
!.          FOR EVAL_WF2 AND EVAL_WF3.
!.
!.
!.EXTRACTION DCBS:  F:1  IS THE CONSECUTIVE SCHEMA (EVAL_WF1)
!.                       CREATED IN EVAL_BA1.
!.                  F:3  IS THE EG FILE            (EVAL_WF2)
!.                  F:4  IS THE PT FILE            (EVAL_WF3)
!.                  F:5  IS USER INPUT(BLOCKING FACTORS
!.                       FOR EG AND PT FILES)
!.                  F:6  IS USER OUTPUT
!.                  F:7  IS DIAGNOSTIC OUTPUT
!.                  F:11 IS AREA 1
!.                     ...
!.                  F:20 IS AREA 10
!.
!SET F:1 DP/EVAL_WF1;IN
!SET F:3 DP/EVAL_WF2;OUT;SAVE
!SET F:4 DP/EVAL_WF3;OUT;SAVE
!SET F:5 SI
!SET F:6 LO
!SET F:7 LO
!EVAL_2.:CONVERT
!.     There are maximum limits to the following.
!.          ARALIM   LIMIT TO # OF AREAS (60)
!.          GRPLIM   LIMIT TO # OF GROUPS (50)
!.          SETLIM   LIMIT TO # OF SETS (60)
!.          DEFLIM   LIMIT TO # OF POINTERS (SUM OF OWNER
!.                   PLUS MEMBER DEFINITIONS GIVEN BY AN
!.                   ESTIMATED MAX AVE # OF GROUPS PER SET.)
!.
!.     If these limits are exceeded, please EDIT EVAL_IN01
!.     and set the above values to the desired limits.
!.     Re-compile by batching EVAL_CL.
