þ  ... î  . Intel P200Pro, RAID DAC960 45 ç, ï÷ 128 í. þ    Seagate Scorpion 24. þ  .

â       Netware. ¡   ,       DBF (FoxPro). ¡     - "  " NT  . ë            Netware. â  OS/2 (ACP1). ë ,   DAC960   . ä    Novell   attach2.

ô   :

-- cut --
c:
cd \netware
attach2 server1 user rassword 
map root O:=server1\DATA:
attach2 server2 user rassword
map root F:=server2\DATA:
map del L:
-- cut --

dsync.exe -v dsync_day.cfg

dsync.exe -v dsync_NIGHT.cfg

\BACKUP
ÊÊÊ \DAY            - 12  
ÊÊÊ ÊÊÊ \SERVER1    - 1 
ÊÊÊ ÊÊÊ \SERVER2    - 2 
ÊÊÊ \NIGTH          - 0 
ÊÊÊ ÊÊÊ \SERVER1    - 1 
ÊÊÊ ÊÊÊ \SERVER2    - 2 

¡     Oracle. ¤  :

1. ô Oracle   (Windows NT)       NT.
2. é    NT
     :

   --cut startlanserver.cmd --
   NET START SERVER
   @if errorlevel 2 C:\IBMLAN\NETPROG\lserr.exe
   logon user /p:password
   --cut--
   

       RSched    N:

    -- cut att.cmd --
   net use n: \\nt\disk
   call c:\start\beep.cmd
   --cut--
   

     ,   :)     REXX`

   --- beep.cmd ---
   /* C scale */
   note.1 = 262    /* middle C */
   note.2 = 294    /*    D     */
   note.3 = 330    /*    E     */
   note.4 = 349    /*    F     */
   note.5 = 392    /*    G     */
   note.6 = 440    /*    A     */
   note.7 = 494    /*    B     */
   note.8 = 524    /*    C     */
   do i=1 to 8
     call beep note.i,250    /* hold each note for */
                             /* one-quarter second */
   end
   do i=1 to 8
     call beep note.i,250    /* hold each note for */
                             /* one-quarter second */
   end
   do i=1 to 8
     call beep note.i,250    /* hold each note for */
                             /* one-quarter second */
   end
   --- beep.cmd ---
   

3. ô  BackAgain/2000    Oracle  . BackAgain         "". ë       (    ). þ  5 ,     ,       . þ     RSched    :

   -----
   /* ¡   */
   call RxFuncAdd 'BaiiLoadFuncs', 'BAIIREXX', 'BaiiLoadFuncs'
   call BaiiLoadFuncs 
   ret = RxFuncAdd('BaiiCheckReady', 'BAIIREXX', 'BaiiCheckReady')
   ret = BaiiCheckReady('ScsiTape:0')
   say 'BaiiCheckReady result = ' ret
   IF ret  \= "READY" then do
   '@c:\netware\send.exe /P'
   '@c:\netware\send.exe "   " ADMIN /B'
   '@c:\netware\send.exe "   " SMENA /B'
   call RxFuncAdd 'RexxwebLoadFuncs', 'REXXWEB', 'RexxwebLoadFuncs'
   call RexxwebLoadFuncs
   server = 'ip    '
   sender = 'control@mydomain.ru'
   recipient = 'control@mydomain.ru'
   subject = ' '
   message = DATE() || " - " || TIME() || '     !'
   rc = sendsmtp(server, sender, recipient, subject, 'message','','P')
   end
   ret = RxFuncDrop('BaiiCheckReady')
   exit
   -----
   

   E-mail,     --      Weasel. ð   4 .

   â RXWEB    hobbes. æ BaiiCheckReady  "NOT READY",     . î         . å     ,   ,    ,   "  ". ð    -  .

¤ ¡

ä | î | ç  | ¡   | î  | ¡ | OS/2 FAQ | þ |   ¡ | í | #OS2Russian | RDM/2 | þÓ  | î  | ä  | ë  | ¡ïéôë | æï¤÷í