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

OS/2 REXX Batch file | 1997-05-30 | 1KB | 2 lines

/* */;trace off;parse source . . myname;'@echo off';gv.copy='copy';gv.unpack='unpack2.exe';gv.false=0;gv.true=1;retcode=gv.false;gv.del_list='service2.cmd unpack2.exe csdwprf.dll csdcmd.exe';gv.del_list=gv.del_list 'attrib.exe os2\dll\csfinit.exe csfkill.exe';gv.del_list=gv.del_list 'svgaid.exe csfkick.cmd xcsfkick.cmd rplserv2.cmd';gv.del_list=gv.del_list 'csfcrc.exe csffchk.cmd xcsfinit.cmd xcsflchk.cmd';gv.del_list=gv.del_list 'csfrecov.cmd csfrdini.cmd';rc=setlocal();gv.source=value('csd_source',,'OS2ENVIRONMENT');gv.target=value('csd_target',,'OS2ENVIRONMENT');gv.boot=value('csd_boot',,'OS2ENVIRONMENT');gv.copy gv.source||'\unpack2.exe' gv.target||'\ 1>NUL 2>NUL';gv.copy gv.source||'\csdcmd.exe' gv.target||'\ 1>NUL 2>NUL';gv.copy gv.source||'\csdinst.exe' gv.target||'\os2\install 1>NUL 2>NUL';gv.unpack gv.source||'\csdtools' gv.target||'\ /P 1>NUL 2>NUL';rc=directory(gv.target);if gv.boot<>'A:' then retcode=xcsfkick();else retcode=csfkick();do ii=1 to words(gv.del_list);del_file=gv.target||'\'||word(gv.del_list,ii);'del' del_file '1>NUL 2>NUL';end;rc=endlocal();exit retcode