Backbutton

Example 28

Example 28 - Label Equating the TITLE of the CD-ROM Archive Image
    T(FILE #MYTESTVOLUME(FILENAME=#MYTESTVOLUME/SPECIAL,
                         FAMILYNAME=LIBRARY));
    COPY *METALOGIC/COPYWRITE AS *JUNK 
      TO #MYTESTVOLUME(CD,HOSTNAME=LOCAL)[T]; 
    IF (T(TASKVALUE)=0) THEN 
    BEGIN            
      T(STATUS=NEVERUSED); 
      T(FILE #MYTESTVOLUME(FILENAME=#MYTESTVOLUME/SPECIAL,
                           FAMILYNAME=LIBRARY));                      
      COPY *JUNK AS JUNK
        FROM #MYTESTVOLUME(CD,LOCKEDFILE,HOSTNAME=LOCAL)[T];
    END;
  1. If the CD-ROM archive volume should have a filename other than the name given as the <destination volume> in the COPY statement, or the family should be different from the current path of the WFL, then the <destination volume> can be used as theNTNAME of a label equated file which specifies a FILENAME and FAMILYNAME.
  2. In this example, #MYTESTVOLUME was given a multi level filename, and located on a family different from the WFL.
  3. This is the only way a multi-level filename can be created, as the WFL COPY statement disallows multi level family names.