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; |
![]() |
|