BEGIN JOB AUTOUNLOAD(STRING VOLUMETITLE,STRING HOSTNAME, 00100000
STRING USERCODE,BOOLEAN AUTOREMOVE, 00101000
INTEGER COPYWRITEMIXNO,STRING NOTE); 00102000
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 00103000
% COPYWRITE AutoUnload % 00104000
% % 00105000
% This is an example of an external AUTOUNLOAD WFL which is % 00106000
% started by COPYWRITE after a CD-ROM volume image hase been % 00107000
% created. % 00108000
% % 00109000
% If the file AUTOUNLOAD is label equated to the COPY statement, % 00110000
% COPYWRITE starts the WFL specified by the TITLE attribute. % 00111000
% For Example, % 00112000
% % 00113000
% TASK T; % 00114000
% T(FILE AUTOUNLOAD(TITLE=COPYWRITE/EXAMPLE/AUTOUNLOAD, % 00115000
% NOTE="This is a Note")); % 00116000
% T(OPTIONS=(*,AUTORM)); % 00117000
% COPY = TO CD(CD,HOSTNAME=CD,AUTOUNLOAD=ON)[T]; % 00118000
% % 00119000
% COPYWRITE starts the WFL with these parameters, % 00120000
% % 00121000
% VOLUMETITLE - The filename of the CD-ROM volume image. % 00122000
% HOSTNAME - The HOSTNAME attribute for the COPY. % 00123000
% USERCODE - The USERCODE attribute for the COPY. % 00124000
% AUTOREMOVE - The AUTORM option for the COPY. % 00125000
% COPYWRITEMIXNO - The MIXNUMBER of the COPYWRITE task which % 00126000
% created the CD-ROM volume image. % 00127000
% NOTE - The NOTE attribute for the label equated % 00128000
% AUTOUNLOAD file. This may be used to pass % 00129000
% information from the originating WFL to % 00130000
% the AUTOUNLOAD WFL. % 00131000
% % 00132000
% History % 00133000
% ------- % 00134000
% 13/11/98 Initial Version % 00135000
% % 00136000
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 00137000
JOBSUMMARY=SUPPRESSED; 00138000
00139000
DISPLAY("Transfer " & VOLUMETITLE & " 00140000
to " & 00141000
HOSTNAME & " with usercode " & USERCODE); 00142000
DISPLAY("Started by COPYWRITE # " & 00143000
STRING(COPYWRITEMIXNO,*)); 00144000
DISPLAY(NOTE); 00145000
IF AUTOREMOVE THEN 00146000
DISPLAY(VOLUMETITLE & " will be removed"); 00147000
END JOB; 00148000
|
