home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 3 / MA_Cover_3.iso / bazy / dbmsv2.2 / arexx / db_copy.rexx next >
Encoding:
OS/2 REXX Batch file  |  1996-10-18  |  658 b   |  2 lines
  1. /* Optimized with RexxOpt 1.8 */
  2. lan='Sys:Prefs/DBMS_PLT.prefs';k=0;OPTIONS RESULTS;IF ~OPEN('Prefs','Sys:Prefs/DBMS.prefs','r') THEN EXIT;DO FOREVER;w=READLN('Prefs');IF LEFT(w,1)=';' THEN LEAVE;END;DO FOREVER;w=READLN('Prefs');IF w=''|EOF('Prefs') THEN LEAVE;IF LEFT(w,8)='ENGLI = '&RIGHT(w,1)='1' THEN lan='Sys:Prefs/DBMS_ENT.prefs';END;s=CLOSE('Prefs');s=OPEN('lan',lan,'r');DO UNTIL EOF('lan');k=k+1;t.k=READLN('lan');END;s=CLOSE('lan');FIRSTFIELD;name=result;DO UNTIL name='RESULT';ADDRESS 'DB.1';GETFIELD name;data=result;ADDRESS 'DB.2';CURRENTFIELD name;IF RC>0 THEN;DO;OKAY1 name||t.14;END;ELSE PUTFIELD data;ADDRESS 'DB.1';NEXTFIELD;name=result;END