Magazyn Amiga 3/MA_Cover_3.iso/bazy/dbmsv2.2/arexx/db_dopus.rexx

OS/2 REXX Batch file | 1996-10-18 | 1.2 KB | 2 lines

/* Optimized with RexxOpt 1.8 */
DOpusPort='DOPUS.1';DBPort='DB.1';lan='Sys:Prefs/DBMS_PLT.prefs';k=0;OPTIONS RESULTS;s=OPEN('Prefs','Sys:Prefs/DBMS.prefs','r');DO FOREVER;w=READLN('Prefs');IF LEFT(w,1)=';' THEN LEAVE;END;DO FOREVER;w=READLN('Prefs');IF LEFT(w,1)=''|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');if ~show(l,"rexxsupport.library") then;call addlib("rexxsupport.library",0,-30,0);if showlist('Ports', DOpusPort)=0 then;do;OKAY1 t.15;end;if showlist('Ports', DBPort)=0 then;do;OKAY1 t.16;end;SORT;ADDRESS 'DOPUS.1';OPTIONS RESULTS;'GetNextSelected -1';zaznaczony=result;if zaznaczony='0' then;do;Notify t.17;EXIT 0;end;plik=result;litera=LEFT(plik,5);TopText t.18||plik;ADDRESS;MODE 'Find';CURRENTFIELD 'Nazwa';PUTFIELD litera;MODE 'Normal';FindNext;RECORDSUM;ilerec=result;CURRENTRECORD;rec=result;zaznaczony=UPPER(zaznaczony);znaleziono=0;DO i=rec TO ilerec BY 1;GETFIELD 'Nazwa';r=UPPER(result);IF (INDEX(zaznaczony,r)>0) THEN;DO;OKAY1 'Jest!';znaleziono=1;LEAVE;END;NEXTRECORD;END;IF znaleziono=0 THEN;DO;OKAY2 t.19;IF result=0 THEN EXIT;ADD;CURRENTFIELD 'Nazwa';PUTFIELD zaznaczony;END