DEL-
        DOESTAX.DEVL.TEMP.TAXCOPY-
        NOERASE

    IF LASTCC=8 THEN-
        SET MAXCC=0

    DEFINE-
      CLUSTER(-
        NAME (DOESTAX.DEVL.TEMP.TAXCOPY)-
        KEYS (4,0)-
        RECSZ (314,314)-
        CYL (30,10)-
        FREESPACE (0 0)-
        SHR (2,3)-
        SPEED-
        VOL (DES39Q)-
        UNQ)-
      DATA -
        (NAME(DOESTAX.DEVL.TEMP.TAXCOPY.DATA))-
      INDEX -
        (NAME(DOESTAX.DEVL.TEMP.TAXCOPY.INDEX)-
         CISZ(1024))