home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 3 / MA_Cover_3.iso / bazy / dbmsv2.2 / arexx / db_showdatabase.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-10-18  |  1.1 KB  |  2 lines
  1. /* Optimized with RexxOpt 1.8 */
  2. OPTIONS RESULTS;MODE 'Normal';FIRST RECORD;tab= D2C(9);lan='Sys:Prefs/DBMS_PLT.prefs';pref='Sys:Prefs/DBMS.prefs';k=0;s=OPEN('Prefs',pref,'r');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');OKAY2 t.21;IF result=0 THEN EXIT;i=OPEN('Baza','RAM:Baza','w');i=WRITELN('Baza','Nazwa'||tab||'Opis'||tab||'Objëtoôê'||tab||'Wymagania'||tab||'HD'||tab||'FD'||tab||'Typ'||tab||'Rodzaj');DO UNTIL RC>0;GETFIELD 'Age';ef=result;if ~(ef='*') THEN;DO;GETFIELD 'Nazwa';name=result;GETFIELD 'Opis';desc=result;GETFIELD 'Objëtoôê';obj=result;GETFIELD 'Wymagania';wymag=result;GETFIELD 'HD';hd=result;GETFIELD 'FD';fd=result;GETFIELD 'Typ';typ=result;GETFIELD 'Rodzaj';rodzaj=result;i=WRITELN('Baza',name||tab||desc||tab||obj||tab||wymag||tab||hd||tab||fd||tab||typ||tab||rodzaj);END;NEXTRECORD;END;i=CLOSE('Baza')