!JOB
!LIMIT (TIME,6),(CORE,40),(ACCOUNT)
!.     THE FOUR STEPS IN THIS JOB ARE BROKEN UP IN EVAL_BA1 ...EVAL_BA4
!.     THE STEPS MAY BE DONE ON-LINE USING EVAL_XEQ1...EVAL_XEQ4
!.************************************************************
!.STEP 1.  CONVERT SUBSCHEMA (COMPONENTS ALL) TO EVAL_WF1
!.
!.         THIS IS A SHORT STEP WHICH IS NOT RESOURCE INTENSIVE.
!SET F:1 DP/SUBSCHEMA;IN
!SET F:2 DP/EVAL_WF1;OUT;SAVE
!RUN (LMN,EVAL_1)
!SET F:SORTIN DP/EVAL_WF1
!SET F:SORTOUT DP/EVAL_WF1
!SET M:SI DP/EVAL_ID13
!SORT
!STEP EQ,0
!.************************************************************
!.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)
!.                  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:12 IS AREA 2
!.
!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:11 DP/DB1
!SET F:12 DP/DB2
!SET F:13 DP/DB3
!SET F:14 DP/DB4
!SET F:15 DP/DB5
!SET F:16 DP/DB6
!SET F:17 DP/DB7
!SET F:18 DP/DB8
!SET F:19 DP/DB9
!SET F:20 DP/DB10
!RUN (LMN,EVAL_2)
!STEP EQ,0
!PCL
LIST EVAL_WF2,EVAL_WF3
END
!.************************************************************
!.STEP 3.  SORT EVAL_WF3
!.
!.          THIS JOB STEP UTILIZES A SEQUENTIAL DP   SORT THROUGH THE
!.          FOLLOWING DCBS.
!.
!.SORT DCBS:        F:SCRF1
!.                  F:SCRF2
!.                  F:SCRF3
!.                  F:SCRF4
!.                  F:SCRF5
!.                  F:SCRF6
!.
!.          SET THESE SCRF DCBS TO 9T FOR A TAPE SORT.
!.          ADD '.LIMIT (DCBS,3)' TO SORT DIRECTIVES TO
!.          RESTRICT THE NUMBER OF TAPE DRIVES.
!.
!.          THIS JOB STEP MAY BE RESOURCE INTENSIVE DEPENDING
!.          UPON THE SIZE OF EVAL_WF3.  HEAVY DEMAND MAY BE PUT
!.          ON CPU TIME AND UPON DISK SPACE - ENOUGH TO RUN
!.          THIS STEP AS A SEPARATE JOB.
!.
!SET F:SORTIN DP/EVAL_WF3;REL
!SET F:SORTOUT DP/EVAL_WF3;SAVE
!SORT
.REC(20)
.BLOCK(500)
.KEYS(13,4,BN),(9,4,BN)
!STEP EQ,0
!.************************************************************
!.STEP 4.  VALIDATE THE SET POINTERS - PRODUCE A LISTING OF
!.         REF-CODES THAT ARE IN NEED OF REPAIR.
!.
!SET F:1 DP/EVAL_WF1;IN
!SET F:3 DP/EVAL_WF2;IN
!SET F:4 DP/EVAL_WF3;IN
!.
!.VALIDATION DCBS:  F:1  IS THE CONSECUTIVE SCHEMA (EVAL_WF1)
!.                  F:3  IS THE EG FILE            (EVAL_WF2)
!.                  F:4  IS THE PT FILE            (EVAL_WF3)
!.                  F:6  IS USER OUTPUT
!.                  F:7  IS DIAGNOSTIC OUTPUT
!RUN (LMN,EVAL_3)
!.STEP 5.  USING THE LISTING FROM STEP 4 AND EVAL_4 - REPAIR
!.         SET POINTERS THAT HAVE BEEN IDENTIFIED.
!.         !XEQ EVAL_XEQ5
