Create job code:

SQL.Text := 'SELECT * FROM Jobs WHERE Name=' + 
EDBEngine1.QuotedSQLStr('Maintenance');
Open; // check if the job already exists
if RecordCount = 0 then begin
   Close;
   SQL.Clear;
   SQL.Add('CREATE JOB Maintenance');
   SQL.Add('RUN AS "System"');
   SQL.Add('FROM DATE ''2008-01-05'' TO DATE ''2108-01-06''');
   SQL.Add('EVERY 1 DAYS');
   SQL.Add('BETWEEN TIME ''02:00 AM'' AND TIME ''02:14 AM''');
   SQL.Add('BEGIN');
   SQL.Add('   USE RCS;');
   SQL.Add('   CALL ProcPurgeLog;');
   SQL.Add('   CALL ProcGenerateUpdates;');
   SQL.Add('   USE;');
   SQL.Add('END');
   {$IF Defined(DEBUG)}
   AddToLog('creating "Maintenance" job');
   {$IFEND}
   ExecSQL;
   {$IF Defined(DEBUG)}
   AddToLog('  success');
   {$IFEND}
end
else begin
   {$IF Defined(DEBUG)}
   AddToLog('"Maintenance" job already exists');
   {$IFEND}
   Close;
end;

Publish code:

if Config.Gen_PrimaryServer then begin
   SQL.Text := 'PUBLISH DATABASE "RCS"';
   {$IF Defined(DEBUG)}
   AddToLog('publishing the database');
   {$IFEND}
   ExecSQL;
   {$IF Defined(DEBUG)}
   AddToLog('  success');
   {$IFEND}
end;