COPY                                                                          
      COPYWRITE/= TO #MYTESTVOLUME(CD,HOSTNAME=LOCAL)[T];                         
    IF (T(TASKVALUE)=0) THEN                                                      
    BEGIN                                                                         
      T(STATUS=NEVERUSED);                                                        
      COPY *=                                                                     
        FROM #MYTESTVOLUME(CD,LOCKEDFILE)                                         
        TO   NULL(CD,HOSTNAME=LOCAL)[T];                                          
    END;                                                                          

1. After copying the files to an archive volume, a COPY to NULL was performed.
2. The files were copied from the archive volume. As each block was read from the file, the checksum was calculated, and compared to the original, and then the block was discarded.
3. This provides a verification feature.
4. The source volume may be DISK or CD or TAPE.