DEL-
        UI.PROD.TEMP.TAXCOPY-
        NOERASE

    IF LASTCC=8 THEN-
        SET MAXCC=0

    DEFINE-
      CLUSTER(-
        NAME (UI.PROD.TEMP.TAXCOPY)-
        KEYS (4,0)-
        RECSZ (314,314)-
        CYL (50,15)-
        FREESPACE (0 0)-
        SHR (2,3)-
        SPEED-
        VOL (DES39Q,DES39M)-
        UNQ)-
      DATA -
        (NAME(UI.PROD.TEMP.TAXCOPY.DATA))-
      INDEX -
        (NAME(UI.PROD.TEMP.TAXCOPY.INDEX)-
         CISZ(1024))