!JOB
!LIMIT (TIME,6),(CORE,40),(ACCOUNT),(9T,3)
!.  !BATCH EVAL_BA3T.:CONVERT ,;
!.  $'REEL1'='scratch-tape-reel-1',;
!.  $'REEL2'='scratch-tape-reel-2',;
!.  $'REEL3'='scratch-tape-reel-3'
!.  This job uses three scratch tapes to sort EVAL_WF3
!.  This job sorts EVAL_WF3 using tape for SORT scratch fles.
!.
!.
!.    THIS JOB STEP UTILIZES A SEQUENTIAL TAPE SORT THROUGH THE
!.    FOLLOWING DCBS.
!.
!.    THE FILE THAT IS TO BE SORTED IS CREATED BY EVAL_BA2
!.  SORT DCBS:
!.   F:SCRF1
!.   F:SCRF2
!.   F:SCRF3
!.
!.  This job may require a large amount of cpu time depending
!.  upon the size of EVAL_WF3 which is being sorted here.
!.  If EVAL_WF3 was put on tape in EVAL_BA2 make sure the
!.  tape assignments are carried through here.
!.  The scratch files for the SORT can be assigned to a private
!.  if public disk space is not sufficient.
!.
!SET F:SCRF1 FT#REEL1
!SET F:SCRF2 FT#REEL2
!SET F:SCRF3 FT#REEL3
!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)
.LIMIT (DCBS,3)
!EOD
