Example of a CHANGEFILE Statement

The following program changes A/B to C/D and then removes C/D.

BEGIN
   ARRAY OLD, NEW[0:44];
   BOOLEAN B;
   REPLACE POINTER(OLD) BY 8"A/B.";
   REPLACE POINTER(NEW) BY 8"C/D.";
   IF B := CHANGEFILE(OLD,NEW) THEN
      DISPLAY("CHANGEFILE ERROR");
   IF B := REMOVEFILE(8"C/D.") THEN
      DISPLAY("REMOVEFILE ERROR");
END.