DOS/V Power Report 1998 July/Vpr9807b.iso/IBM_OS/CSD/WARP4/FX00505/CSDINST.CMD

OS/2 REXX Batch file | 1998-04-17 | 2KB | 2 lines

/* */;parse source . . myname;call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs';call SysLoadFuncs;call SysCls;tmp=left(myname,lastpos('\',myname));iname=tmp'csdinst.dat';tmp=substr(tmp,3);sname=tmp'syslevel.os2' tmp'csdlevel.os2';map=SysDriveMap(,'LOCAL');do ii=1 to words(iname);do jj=1 while lines(word(iname,ii));gv.rdata.ii.jj=linein(word(iname,ii));end;gv.rdata.ii.0=jj-1;rc=lineout(word(iname,ii));end;do ii=1 to words(map);do jj=1 to words(sname);sdata=word(map,ii)||word(sname,jj);ldata.ii.jj='';if stream(sdata,'c','query exist')='' then iterate;ldata.ii.jj=charin(sdata,,chars(sdata));rc=lineout(sdata);ldata.ii.jj=strip(substr(ldata.ii.jj,45,8),,'_');end;end;do ii=1 to gv.rdata.1.0;if substr(gv.rdata.1.ii,2,1)<>'|' then iterate;say substr(gv.rdata.1.ii,3);end;say;say;do ii=1 to words(map);if ldata.ii.1='' then iterate;do jj=1 to words(iname);do kk=1 to gv.rdata.jj.0;if left(gv.rdata.jj.kk,1)=';'|left(gv.rdata.jj.kk,3)<>'XRJ' then;iterate;if left(gv.rdata.jj.kk,7)=ldata.ii.1 then;do;if ldata.ii.2=''&substr(gv.rdata.jj.kk,40,4)='(GM)' then;do;pos=pos(';',gv.rdata.jj.kk);if pos<>0 then;ddata=word(map,ii) left(gv.rdata.jj.kk,pos-1);else;ddata=word(map,ii) gv.rdata.jj.kk;ddata=right(ddata,length(ddata)+9,' ');tdata=ddata;ddata=''||ddata||'';say ddata;leave;end;else;do;if substr(gv.rdata.jj.kk,40,7)=ldata.ii.2|substr(gv.rdata.jj.kk,40,7)=ldata.ii.3 then;do;pos=pos(';',gv.rdata.jj.kk);if pos<>0 then;ddata=word(map,ii) left(gv.rdata.jj.kk,pos-1);else;ddata=word(map,ii) gv.rdata.jj.kk;ddata=right(ddata,length(ddata)+9,' ');tdata=ddata;ddata=''||ddata||'';say ddata;leave;end;end;end;end;end;end;fExit=0;rc=SysCurState(OFF);do while fExit<>1;key=SysGetKey(NOECHO);if c2d(key)=13|c2d(key)=27 then;fExit=1;end;if c2d(key)=13 then;do;call SysCls;say;say;say;say;tdata=strip(tdata);say 'OS/2 version :' substr(tdata,13,30);say 'OS/2 drive   :' word(tdata,1);say 'SYSLEVEL     :' word(tdata,2);say 'FixPak name  :' substr(tdata,43,7);end;exit