Backbutton

Example 13

Example 13 - Copying a PrinterBackup file to an ISO9660 CD Image
COMPILE "COPYWRITE LIBRARY" DCALGOL [T] LIBRARY;
COMPILER FILE CARD(KIND=DISK,DEPENDENTSPECS,FILENAME=COPYWRITE/LIBRARY);
COMPILER FILE LINE(KIND=PRINTER,USERBACKUPNAME,FILENAME=#MYTESTVOLUME/LISTING, FAMILYNAME=#MYSOURCEFAMILY);
IF T IS COMPILEDOK AND FILE #MYTESTVOLUME/LISTING IS RESIDENT THEN
BEGIN
COPY #MYTESTVOLUME/LISTING AS "COPYWRITE.TXT" TO #MYTESTVOLUME(CD, SCRATCHPOOL=WINDOWSNT, HOSTNAME=CPNTA,USERCODE='anonymous', AUTOUNLOAD=ON)[T];OPTIONS=(*,AUTORM);

END;
 
Example13
 
  1. The PrinterBackup file generated by the compiler was copied to an ISO9660 CD image in Windows NT format, ASCII variable length records separated by CR and LF.
  2. Each logical print file record was passed to the transform.
  3. No FF is inserted for SKIP control words.